vhLISTO ;Initialisatie van oude lijst functies [ 11/21/95  2:02 PM ]
 
INIT(sGrp,sId,L) 
 ;L oproepen via .Local
 ;New sI,sJ,sStr,sFetch,sDefFmt,sDelim
 Kill L
 Set L(8)=$P($G(^RES(sGrp,"LD",sId,"HO",1)),"`",3) ; Hoofding
 Xecute:$E(L(8))="$" "S L(8)="_L(8)
 Set L(11)=$P($G(^RES(sGrp,"LD",sId,"TI",1)),"`",3) ; Titel
 Set L(10)=$P($G(^RES(sGrp,"LD",sId,"CP"),$G(^RES(sGrp,"LD",sId,"CF"))),"`",2) ; 
 Set L(5)=$P(^RES(sGrp,"LD",sId),"`",5)
 Set L(5)=$P(L(5),";",4)-$P(L(5),";",2)+($P(L(5),";",2)'="C")
 Set L(13)=sGrp_"`"_sId
 Set sFetch=""
 Set L(1)=$G(^RES(sGrp,"LD",sId,"F"))
 Do EXEC^vhRES($P(L(1),"`"),$P(L(1),"`",2),"sFetch")
 Set L(1)=sFetch
 Set sI=""
 Set sDelim=$P(^RES(sGrp,"LD",sId),"`",6)
 For  Set sI=$O(^RES(sGrp,"LD",sId,"L",sI)) Quit:sI=""  Do
 .Set sGK=$P(^(sI),"`"),sDK=$P(^(sI),"`",2),sStr=""
 .For sJ=1:1:$O(^RES(sGK,"LK",sDK,""),-1) Do
 ..Set sStr=sStr_"\"_$TR($P(^(sJ),"`",3,11),"`",";")
 .Set L(2,sI)=sDelim_"\"_$E(sStr,2,999)
 Set sDefFmt=$P(^RES(sGrp,"LD",sId),"`",10)
 Set:'$L(sDefFmt) sDefFmt=$O(L(2,""))
 Set L(2)=L(2,sDefFmt)
 If $D(^RES(sGrp,"LD",sId,"CM")) Do 
 .Set sMax=0,sQty=99999,sRec=""
 .Do EXECS^vhRES(^RES(sGrp,"LD",sId,"CM"),"sMax","(sMax,sQty,sRec)")
 Quit