Code |
N DFN,ORDG,ORLST,ORBDT,OREDT,ORDDT S ORDG=$$DG^ORQOR1("RX") 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 MEDICATION 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
|