| Code |
Q:'$D(^OR(100,+ORID,0))
I TXTOD D TXTSAV(.ORY,ORID,PARM1,PARM2) Q
N REFID,PICKID,ACT,IX,TXT,REFPOS,NDQUIT
S (REFID,PICKID,ACT,REFPOS,NDQUIT)=0,ORY=""
S ACT=+$P(ORID,";",2) S:ACT'>0 ACT=1
S REFID=$O(^OR(100,+ORID,4.5,"ID","REFILLS",0))
S PICKID=$O(^OR(100,+ORID,4.5,"ID","PICKUP",0))
S:$D(^OR(100,+ORID,4.5,REFID,1)) ^(1)=PARM1
S:$D(^OR(100,+ORID,4.5,PICKID,1)) ^(1)=PARM2
S IX=0 F S IX=$O(^OR(100,+ORID,8,ACT,.1,IX)) Q:('IX)!(NDQUIT) D
. S TXT=$G(^OR(100,+ORID,8,ACT,.1,IX,0))
. I ($$UP^XLFSTR(TXT)["QUANTITY:"),($$UP^XLFSTR(TXT)["REFILLS:") D
. . S REFPOS=$F($$UP^XLFSTR(TXT),"REFILLS")-$L("REFILLS")-1
. . S TXT=$E(TXT,1,REFPOS)_"Refills: "_PARM1
. . S ^OR(100,+ORID,8,ACT,.1,IX,0)=TXT,NDQUIT=1 Q
D GETBYIFN^ORWORR(.ORY,+ORID)
|