Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSJPST50

PSJPST50.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJPST50   290     printed  Apr 09, 2024@21:09:39                                                                                                                                                                                                     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