- PSJPST50 ;BIR/MV-POE POST INIT ;6 DEC 00 / 3:11 PM
- ;;5.0; INPATIENT MEDICATIONS ;**50**;16 DEC 97
- ;
- POE ;Queue IV conversion to re-allign OI
- Q:$$PATCH^XPDUTL("PSJ*5.0*50")
- S ZTDTH=$H,ZTRTN="CNIV^PSJUTL1()",ZTIO="",ZTDESC="Inpatient medications order conversion"
- D ^%ZTLOAD
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJPST50 290 printed Feb 18, 2025@23:35:21 Page 2
- PSJPST50 ;BIR/MV-POE POST INIT ;6 DEC 00 / 3:11 PM
- +1 ;;5.0; INPATIENT MEDICATIONS ;**50**;16 DEC 97
- +2 ;
- POE ;Queue IV conversion to re-allign OI
- +1 if $$PATCH^XPDUTL("PSJ*5.0*50")
- QUIT
- +2 SET ZTDTH=$HOROLOG
- SET ZTRTN="CNIV^PSJUTL1()"
- SET ZTIO=""
- SET ZTDESC="Inpatient medications order conversion"
- +3 DO ^%ZTLOAD
- +4 QUIT