Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSJLMGUD

Package: Inpatient Medications

Routine: PSJLMGUD


Information

PSJLMGUD ;BIR/MLM - INITIALIZE UNIT DOSE ORDER FIELDS FOR DISPLAY ;Nov 10, 2020@14:21:01

Source Information

Source file <PSJLMGUD.m>

Entry Points

Name Comments DBIA/ICR reference
GETUD(DFN,PSGORD) ;
EN2 ;
SET ;
FINISH ;
ACCEPT ;
BYPASS ;
EDIT ;
DONE ;
31 ;;101^PSGOE8;PSGOPD;PSGPD;101;1
32 ;;109^PSGOE8;PSGODO;PSGDO;102;PSGODO]""
33 ;;3^PSGOE8;PSGOMR;PSGMR;3;1
34 ;;7^PSGOE8;PSGOST;PSGST;7;0
35 ;;26^PSGOE8;PSGOSCH;PSGSCH;26;1
36 ;;39^PSGOE81;PSGOAT;PSGAT;39;0
37 ;;1^PSGOE82;PSGOPR;PSGPR;1;1
38 ;;8^PSGOE81;PSGOSI;PSGSI;8;0
39 ;;2^PSGOE82;;;2;0
310 ;;40^PSGOE82;;;40;0
311 ;;66^PSGOE82;;;66;1
312 ;;10^PSGOE81;PSGOSD;PSGSD;10;0
313 ;;25^PSGOE81;PSGOFD;PSGFD;25;0
314 ;;5^PSGOE82;PSGOSM;PSGSM;5;0
AH ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"PLEASE NOTE: This order must have"
  • Line Location: FINISH+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(Y)+$X>78
  • Line Location: FINISH+4
Function Call: WRITE
  • Prompt: Y," "
  • Line Location: FINISH+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: FINISH+7
Function Call: WRITE
  • Prompt: !!?2,"Answer 'YES' to accept this order as a NON-VERIFIED UNIT DOSE order. Answer",!,"'NO' to edit this order now. Enter '^' to BYPASS this order, leaving it as",!,"a PENDING INPATIENT order."
  • Line Location: AH+1
Info |  Source |  Entry Points |  Interaction Calls