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

PSGOEM1.m

Go to the documentation of this file.

PSGOEM1 ;BIR/CML3-MORE HELP MESSAGES ;16 DEC 97 / 1:37 PM

 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

ENCTM ;

 W !!,"Enter a 'Y' if the patient is being transferred to another ward (or service).   Enter an 'N' if not.  Enter an '^' if you no longer want to discontinue th",$S($D(PSGORD):"is",1:"ese")," order",$S($D(PSGORD):"",1:"s"),"." Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGOEM1   347     printed  Apr 09, 2024@21:09:45                                                                                                                                                                                                      Page 2

PSGOEM1   ;BIR/CML3-MORE HELP MESSAGES ;16 DEC 97 / 1:37 PM

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

 +2       ;

ENCTM     ;

 +1        WRITE !!,"Enter a 'Y' if the patient is being transferred to another ward (or service).   Enter an 'N' if not.  Enter an '^' if you no longer want to discontinue th",$SELECT($DATA(PSGORD):"is",1:"ese")," order",$SELECT($DATA(PSGORD):"",1:"s"),"

."

           QUIT