| Code |
N DFN,ORDG,ORLST,ORBDT,OREDT,ORDDT S ORDG=$$DG^ORQOR1("ALL")
S OREDT=$$NOW^XLFDT
S ORDDT=$$FMADD^XLFDT(OREDT,"-90")
S DFN=ORDFN,VA200="" D INP^VADPT
S ORBDT=$P($G(VAIN(7)),U)
S ORBDT=$S('$L($G(ORBDT)):$$FMADD^XLFDT(OREDT,"-30"),1:ORBDT) ;<= if no admission use past 30 days
S ORBDT=$S(ORDDT>ORBDT:ORDDT,1:ORBDT) ;max past days to use is 90 days
D AGET^ORWORR(.ORLST,ORDFN,9,ORDG,ORBDT,OREDT)
Q:+(@ORLST@(.1)) ;more left
N XQAKILL,ORVP,ORNIFN
S ORNIFN=$O(^ORD(100.9,"B","UNVERIFIED ORDER",0)),ORVP=ORDFN_";DPT("
S XQAKILL=$$XQAKILL^ORB3F1(ORNIFN)
I $D(XQAID) D DELETE^XQALERT
I '$D(XQAID) S XQAID=$P($G(^ORD(100.9,ORNIFN,0)),U,2)_","_+ORVP_","_ORNIFN D DELETEA^XQALERT K XQAID
|