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: PSGOEH1

Package: Inpatient Medications

Routine: PSGOEH1


Information

PSGOEH1 ;BIR/CML3-PLACE (OR MARK TO BE PLACED) ORDERS ON HOLD ;30 OCT 97 / 4:03 PM

Source Information

Source file <PSGOEH1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Inpatient Medications 4 ^PSGAL5  (ENL,ENPOS)^PSGVDS  EN1^PSJHL2  $$ENNOO^PSJUTL5  
VA FileMan 4 NOW^%DTC  YN^DICN  ^DIE  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSGOE1  PSGOEHA  

Entry Points

Name Comments DBIA/ICR reference
HOK ;
DONE ;
MARK ;
HM ;
UM ;

External References

Name Field # of Occurrence
NOW^%DTC HOK+1
YN^DICN PSGOEH1+4, PSGOEH1+7
^DIE HOK+4
^DIR DONE+2
^PSGAL5 PSGOEH1+8, HOK+4, MARK+2
ENL^PSGVDS HOK+6
ENPOS^PSGVDS HOK+7
EN1^PSJHL2 HOK+5
$$ENNOO^PSJUTL5 PSGOEH1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Do you wish to place this order 'ON HOLD'"
  • Line Location: PSGOEH1+4
Function Call: WRITE
  • Prompt: !!,"This order has been marked for hold. Do you want to unmark it"
  • Line Location: PSGOEH1+7
Function Call: WRITE
  • Prompt: $C(7),!!,"THIS ORDER HAS ALREADY BEEN MARKED."
  • Line Location: MARK+1
Function Call: WRITE
  • Prompt: !,"ORDER MARKED TO BE PLACED ON HOLD."
  • Line Location: MARK+3
Function Call: WRITE
  • Prompt: !!,"Enter a 'Y' to place this order on hold. Enter an 'N' (or '^') if you do not wish to place this order on hold."
  • Line Location: HM+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: UM+1
Function Call: WRITE
  • Prompt: !!,"Enter a 'Y' to unmark this order. Enter an 'N' (or '^') to leave it as is."
  • Line Location: UM+2
Routine Call
  • DIE
  • Line Location:
    • HOK+4
Routine Call
  • DIR
  • Line Location:
    • DONE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] PSGOEH1+3, HOK+6*, DONE+1*

Label References

Name Line Occurrences
DONE PSGOEH1+3, PSGOEH1+5, PSGOEH1+7, PSGOEH1+9
HM PSGOEH1+4
HOK PSGOEH1+7
MARK PSGOEH1+3
UM PSGOEH1+7

Naked Globals

Name Field # of Occurrence
^(4 PSGOEH1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PSGOEH1+4*, PSGOEH1+5, PSGOEH1+6*, PSGOEH1+7*, PSGOEH1+8, HOK+1
DA PSGOEH1+8!*, HOK+3*, DONE+3!, MARK+2!*
DA(1 PSGOEH1+8*, HOK+3*, MARK+2*
DIE HOK+3*, DONE+3!
DIR DONE+2!, DONE+3!
DIR(0 DONE+2*
DP DONE+3!
DR HOK+3*, DONE+3!
DUZ HOK+6, MARK+2
>> EXPF HOK+5
H DONE+3!, UM+1
>> ND PSGOEH1+3*, HOK+1
>> PSGACT HOK+3
PSGAL DONE+3!
PSGAL("C" PSGOEH1+8*, HOK+3*, MARK+2*
PSGALR HOK+3*, DONE+3!
>> PSGCANFL HOK+8*
>> PSGDT HOK+1*, HOK+6, HOK+7, MARK+2
PSGND4 PSGOEH1+3*, PSGOEH1+7, PSGOEH1+8*, HOK+1*, HOK+2*, HOK+6, DONE+1, DONE+3!, MARK+1, MARK+2*
>> PSGORD PSGOEH1+3, PSGOEH1+8, HOK+3, HOK+5, HOK+6, HOK+7*, DONE+1, MARK+2
>> PSGP PSGOEH1+3, PSGOEH1+8, HOK+3, HOK+5, HOK+6, DONE+1, MARK+2
PSGPOSA HOK+7*, DONE+3!
PSGPOSD HOK+7*, DONE+3!
PSGTOL HOK+6*, DONE+3!
PSGTOO HOK+6*, DONE+3!
PSGUOW HOK+6*, DONE+3!
>> PSJACHLD HOK+1, HOK+4, HOK+8
>> PSJLMPRO DONE+2
>> PSJNOO PSGOEH1+6*
>> PSJSYSL HOK+6
>> PSJSYSO HOK+7
>> PSJSYSP0 PSGOEH1+3
>> PSJSYSU PSGOEH1+3, PSGOEH1+8, HOK+2, HOK+3, HOK+6
>> PSOC HOK+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All