Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGOEM

Package: Inpatient Medications

Routine: PSGOEM


Information

PSGOEM ;BIR/CML3-PSGOE MESSAGES ;26 NOV 97 / 8:28 AM

Source Information

Source file <PSGOEM.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  FIELD^DID  
Inpatient Medications 1 $$CODES2^PSIVUTL  

Caller Graph

Caller Graph Total: 16

Package Total Caller Graph
Inpatient Medications 16 PSGOE3  PSGOE31  PSGOE4  PSGOE41  PSGOE42  PSGOE6  PSGOE8  PSGOE81  
PSGOE82  PSGOE9  PSGOE91  PSGOE92  PSGOEC  PSGOER0  PSJDOSE  PSJLIACT  

Entry Points

Name Comments DBIA/ICR reference
ENUMK ;
ENCOM ;
ENAH ; help text for "ACTION" prompt
ENCAM ;
ENFF ; up-arrow to another field
ENVM ;
SC ;
ENHLP(F1,F2) ; order entry fields' help
; Input: F1 - File #
; F2 - Field #

External References

Name Field # of Occurrence
^DIC ENFF+4
YN^DICN ENUMK+2
FIELD^DID ENHLP+6, ENHLP+10, ENHLP+13
$$CODES2^PSIVUTL ENFF+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter a 'Y' (or press the RETURN key) to ",$S(PSJSYSU:"",1:"mark for "),"discontinu",$S(PSJSYSU:"e",1:"ation")," all of this"
  • Line Location: ENCAM+1
Function Call: WRITE
  • Prompt: "orders. Enter an 'N' (or '^') to leave this option now."
  • Line Location: ENCAM+2
Function Call: WRITE
  • Prompt: !!,"Enter a 'Y' to ",$S(CF:"discontinue this order",1:"mark this order for discontinuation"),". Press the RETURN key (or"
  • Line Location: ENCOM+1
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: 'CF ! W:CF " " W "enter an 'N'" W:CF ! W:'CF
  • Line Location: ENCOM+1
Function Call: WRITE
  • Prompt: "or '^') to leave this option now."
  • Line Location: ENCOM+1
Function Call: WRITE
  • Prompt: " BEEN 'MARKED FOR DISCONTINUATION'."
  • Line Location: ENUMK+1
Function Call: WRITE
  • Prompt: !,"DO YOU WANT TO 'UNMARK' ",$S($D(PSGORD):"IT",1:"THEM")
  • Line Location: ENUMK+2
Function Call: WRITE
  • Prompt: !!?2,"Enter 'Y' to UNMARK "_$S($D(PSGORD):"this order",1:"these orders")_". Enter 'N' to leave the order"_$E("s",$D(PSGORD)[0)_" MARKED AS IS.",!
  • Line Location: ENUMK+2
Function Call: WRITE
  • Prompt: !?5
  • Line Location: ENHLP+4
Function Call: WRITE
  • Prompt: !?5
  • Condition for execution: $L(F3)+$X>78
  • Line Location: ENHLP+4
Function Call: WRITE
  • Prompt: F3_" "
  • Line Location: ENHLP+4
Function Call: WRITE
  • Prompt: !?5
  • Line Location: ENHLP+7
Function Call: WRITE
  • Prompt: !?5
  • Condition for execution: $L(F3)+$X>78
  • Line Location: ENHLP+7
Function Call: WRITE
  • Prompt: F3_" "
  • Line Location: ENHLP+7
Function Call: WRITE
  • Prompt: !?2,PSJD("DESCRIPTION",F)
  • Line Location: ENHLP+14
Function Call: WRITE
  • Prompt: !?2,^(0)
  • Line Location: ENHLP+15
Function Call: WRITE
  • Prompt: !?5,"CHOOSE FROM:",!?7,"W",?16,"WRITTEN",!?7,"P",?16,"TELEPHONE",!?7,"V",?16,"VERBAL",!
  • Line Location: ENHLP+16
Function Call: WRITE
  • Prompt: !?2,^(0)
  • Line Location: ENHLP+18
Function Call: WRITE
  • Prompt: !?2,^(0),"RB.."
  • Line Location: ENHLP+19
Function Call: WRITE
  • Prompt: !?5,"CHOOSE FROM:",!?7,"W",?16,"WRITTEN",!?7,"P",?16,"TELEPHONE",!?7,"V",?16,"VERBAL",!
  • Line Location: ENHLP+20
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM:",!?8,0,?16,"NO",!?8,1,?16,"YES"
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: ENFF+1
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: X="^301"
  • Line Location: ENFF+2
Function Call: WRITE
  • Prompt: $P("^DOSAGE ORDERED",X,2)
  • Line Location: ENFF+2
Function Call: WRITE
  • Prompt: !!,"YOU MAY SELECT:"
  • Line Location: ENAH+1
Function Call: WRITE
  • Prompt: !?5,"H to ",$S(HF:"place this order on",1:"take this order off of")," hold."
  • Line Location: ENAH+6
Function Call: WRITE
  • Prompt: !!,"You may also select:"
  • Line Location: ENAH+12
Function Call: WRITE
  • Prompt: !?5,"C to copy (duplicate) this order into a new, non-verified order."
  • Line Location: ENAH+12
Function Call: WRITE
  • Prompt: !?5,"P to print this order to a device.",!?5,"S to show this order again."
  • Line Location: ENAH+13
Function Call: WRITE
  • Prompt: !!,"PLEASE NOTE: This order is automatically verified, and unless discontinued",!?13,"now, will show as active."
  • Line Location: ENAH+14
Routine Call
  • DIC
  • Line Location:
    • ENFF+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( ENHLP+10
^PS(55 - [#55] ENAH+6

Label References

Name Line Occurrences
SC ENHLP+14

Naked Globals

Name Field # of Occurrence
^(0 ENAH+6
^(12 ENHLP+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENUMK+2*
>> CF ENCOM+1
DIC ENFF+4!*
DIC("S" ENFF+4*
DIC(0 ENFF+4*
F ENHLP+3~, ENHLP+7*, ENHLP+14*
F0 ENHLP+3~, ENHLP+7*
F1 ENHLP~, ENHLP+6, ENHLP+10, ENHLP+13
F2 ENHLP~, ENHLP+6, ENHLP+10, ENHLP+13, ENHLP+16, SC+1
F3 ENHLP+3~, ENHLP+7*
>> HF ENAH+6*
>> PSGACT ENAH+2, ENAH+3, ENAH+4, ENAH+5, ENAH+6, ENAH+7, ENAH+8, ENAH+9, ENAH+10, ENAH+11
>> PSGDI ENAH+12
>> PSGFOK ENFF+1
>> PSGFOK( ENFF+3
>> PSGODF ENAH+12
>> PSGOEA ENAH+12, ENAH+13
>> PSGOEAV ENAH+14
>> PSGOENG ENAH+12
>> PSGOETOF ENAH+15
>> PSGORD ENUMK+2, ENAH+6
>> PSGP ENAH+6
>> PSGPI ENAH+12
>> PSGRRF ENAH+10
PSJD ENHLP+3~
PSJD("DESCRIPTION" ENHLP+14
PSJHP ENHLP+3~
PSJHP("HELP-PROMPT" ENHLP+7
>> PSJON ENVM+1
>> PSJPCAF ENAH+12
>> PSJPRF ENVM+1
>> PSJSYSU ENCAM+1, ENCAM+2, ENAH+9
PSJX ENHLP+3~
PSJX("XECUTAB LE HELP" , ENHLP+10
>> X ENHLP+7, ENHLP+14, ENFF+3*
>> Y ENFF+1*, ENFF+3*, ENFF+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All