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

PSGSSP.m

Go to the documentation of this file.

PSGSSP ;BIR/CML3-SHOW CURRENT SITE PARAMETERS ;16 DEC 97 / 1:38 PM

 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

 D ENCV^PSGSETU I '$D(XQUIT) S DIC="^PS(59.4,",DA=PSJSYSW,DR=$S($D(PSGSSF):"0;1",1:0)_";5" W ! D EN^DIQ K DA,DIC,DR,PSGSSF Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGSSP   238     printed  Apr 09, 2024@21:08:33                                                                                                                                                                                                       Page 2

PSGSSP    ;BIR/CML3-SHOW CURRENT SITE PARAMETERS ;16 DEC 97 / 1:38 PM

 +1       ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

 +2        DO ENCV^PSGSETU

           IF '$DATA(XQUIT)

               SET DIC="^PS(59.4,"

               SET DA=PSJSYSW

               SET DR=$SELECT($DATA(PSGSSF):"0;1",1:0)_";5"

               WRITE !

               DO EN^DIQ

               KILL DA,DIC,DR,PSGSSF

               QUIT