| Code |
S ORY=0
Q:'$D(^OR(100,+ORIFN,0))
I TXTOD D TXTCAN(.ORY) Q
N OUTGRP,URELSTS,USIGSTS,RNTYPE,PDSTS
N ODGRP,ODREL,ODSIG,ODTYPE,LSTACT
S OUTGRP=$O(^ORD(100.98,"B","O RX",0))
S URELSTS=$O(^ORD(100.01,"B","UNRELEASED",0))
S PDSTS=$O(^ORD(100.01,"B","PENDING",0))
S USIGSTS=2 ; unsigned order
S RNTYPE=2 ; renew action
S LSTACT=$P($G(^OR(100,+ORIFN,3)),U,7)
S ODGRP=$P($G(^OR(100,+ORIFN,0)),U,11)
S ODREL=$P($G(^OR(100,+ORIFN,3)),U,3)
S ODSIG=$P($G(^OR(100,+ORIFN,8,LSTACT,0)),U,4)
S ODTYPE=$P($G(^OR(100,+ORIFN,3)),U,11)
I (ODGRP=OUTGRP),(ODREL=URELSTS),(ODSIG=USIGSTS),(ODTYPE=RNTYPE) S ORY=1
|