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

Call Graph Total: 4

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
Inpatient Medications 20 PSGOE3  PSGOE31  PSGOE4  PSGOE41  PSGOE42  PSGOE6  PSGOE8  PSGOE81  
PSGOE82  PSGOE9  PSGOE91  PSGOE92  PSGOEC  PSGOER0  PSIVEDT1  PSJCLOR3  
PSJCLOR4  PSJDOSE  PSJLIACT  PSJOCDC  

Entry Points

Name Comments DBIA/ICR reference
ENUMK ;
ENCOM ;
3 ;TYPE 3 OI
ENAH ; help text for "ACTION" prompt
ENCAM ;
ENFF ; up-arrow to another field
ENDC ;
2 ;TYPE 2 OI
ENVM ;
SC ;
DURHLP(PSGSTR,PSGRF) ; Help text for Duration of Administration *315 drp
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: !!,"You must enter 'DC' to discontinue the order or leave blank and press return to continue without discontinuing the order."
  • Line Location: ENDC+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
Function Call: WRITE
  • Prompt: !!,"Enter the number of hours the medication will remain on the patient in the"
  • Line Location: DURHLP+4
Function Call: WRITE
  • Prompt: !,"Duration of Administration field. The BCMA user will be prompted to remove the"
  • Line Location: DURHLP+5
Function Call: WRITE
  • Prompt: !,"medication after the Duration of Administration period."
  • Line Location: DURHLP+6
Function Call: WRITE
  • Prompt: !!,"The Duration of Administration cannot match or exceed the order frequency"
  • Line Location: DURHLP+7
Function Call: WRITE
  • Prompt: !,"(the period of time between two Admin Times) except for BID, TID and QID schedules."
  • Line Location: DURHLP+8
Function Call: WRITE
  • Prompt: !,"The Duration of Administration is the period of time the medication remains on"
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !,"the patient before removal. If this medication order requires a drug-free period"
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !,"prior to the next administration, enter a Duration of Administration here."
  • Line Location: 2+3
Function Call: WRITE
  • Prompt: !!,"If this medication order does not require a drug-free period prior to the next"
  • Line Location: 2+4
Function Call: WRITE
  • Prompt: !,"administration, this field should be left blank."
  • Line Location: 2+5
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
@( DURHLP+2
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
PSGRF DURHLP~, DURHLP+1, DURHLP+2
>> PSGRRF ENAH+10
PSGSTR DURHLP~, DURHLP+1, DURHLP+3, 3+1
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