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

Package: Inpatient Medications

Routine: PSGRET


Information

PSGRET ;BIR/CML3-ENTER RETURNS ;17 SEP 97 / 1:41 PM

Source Information

Source file <PSGRET.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 6 $$ENDDN^PSGMI  ^PSGO  (ENCHK,H2)^PSGON  ENL^PSGOU  ENDPT^PSGP  (ENCV,ENKV)^PSGSETU  
VA Fileman 3 ^DIC  ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJU RET  

Entry Points

Name Comments DBIA/ICR reference
H ;
R ;
DONE ;
GP ;

External References

Name Field # of Occurrence
^DIC R+8
^DIE R+9
^DIR R+5
$$ENDDN^PSGMI R+6
^PSGO GP+2
ENCHK^PSGON GP+3
H2^PSGON H+1
ENL^PSGOU GP+2
ENDPT^PSGP GP+1
ENCV^PSGSETU PSGRET+8
ENKV^PSGSETU DONE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"(Patient has NO active or old orders.)"
  • Line Location: GP+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: GP+3
Function Call: WRITE
  • Prompt: !!,"Select ORDER",$E("S",PSGON>1)," 1-",PSGON,": "
  • Line Location: GP+3
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: GP+3
Function Call: READ
  • Timeout: Y
  • Variable: G
  • Line Location: GP+4
Function Call: WRITE
  • Prompt: !!,"----------------------------------------",!,DRG,!,"Give: ",DO," ",MR," ",SCH
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !
  • Line Location: R+9
Routine Call
  • DIE
  • Line Location:
    • R+9
Routine Call
  • DIC
  • Line Location:
    • R+8
Routine Call
  • DIR
  • Line Location:
    • R+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] R+1
^PS(51.2 - [#51.2] R+2
^PS(55 - [#55] GP+1, R+1, R+3, R+6, R+9
^TMP("PSJON" GP+4, DONE+1!

Label References

Name Line Occurrences
DONE GP+1
GP GP+1, GP+2, GP+4, GP+5
H GP+3
R GP+4

Naked Globals

Name Field # of Occurrence
^( R+1, R+6
^(0 R+1, R+2, R+6, R+9*
^(2 R+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA GP+4!, R+8!*, R+9!*
DA(1 R+8*, R+9*
DA(2 R+8*, R+9*
DIC R+8!*
DIC(0 R+8*
>> DIE R+9*
DIR R+5~
DIR(0 R+5*
DO DONE+1!, R+1*, R+2
DR R+9!*
DRG DONE+1!, R+1*, R+2, R+6*, R+7
DTIME GP+3
>> DTOUT R+9
>> DUOUT R+9
MR DONE+1!, R+1*, R+2*
OD DONE+1!
PPAGE PSGRET+7~, GP+2*
PSGEFN PSGRET+7~
PSGLMT GP+2*, DONE+1!
PSGODDD GP+4, DONE+1!
PSGODDD( GP+4
PSGOL GP+2, DONE+1!
PSGON GP+2, GP+3, DONE+1!
PSGONC GP+2*, DONE+1!
PSGONNV PSGRET+8*, DONE+1!
PSGONR GP+2*, DONE+1!
PSGONV DONE+1!
PSGORD GP+4*, DONE+1!, R+1, R+3, R+6, R+8, R+9
>> PSGP GP+1, R+1, R+3, R+6, R+8, R+9
PSGPRP PSGRET+8!
PSGPTMP PSGRET+7~, GP+2*
PSGRET GP+4*, DONE+1!
PSGRET1 GP+4*, DONE+1!
PSGRET2 GP+4*, DONE+1!
PSGRETF PSGRET+8*, DONE+1!
PSJNEW PSGRET+7~*
>> PSJPAD GP+1
SCH DONE+1!, R+1*, R+2
>> UD R+6*, R+7
>> X GP+3*, GP+4, H+1
>> XQUIT PSGRET+8
>> Y GP+4, R+1*, R+5*, R+6*, R+8, R+9*
Y1 DONE+1!
Z DONE+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All