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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSGPER

Package: Inpatient Medications

Routine: PSGPER


Information

PSGPER ;BIR/CML3-PRINTS PRE-EXCHANGE NEEDS REPORT ;04 JAN 95 / 5:08 PM

Source Information

Source file <PSGPER.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 4 (ENP,ENPAT)^PSGPER0  ($$DEFON,DEFCL,TASKPRGE)^PSGPER1  ENIVKV^PSGSETU  ENTSK^PSGTI  
VA FileMan 2 ^DIC  YN^DICN  
Kernel 1 ^%ZIS  

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

Package Total Caller Graph
Inpatient Medications 3 PSGOE  PSGVBW0  PSJOE  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point
AG ;
AGMSG ;
POP ; Abort?
DEV1 ; Get default device, select and validate device
CURDEF ;
DEV ; Select Device
DEFMSG ;
OUT ; Clean up on the way out

External References

Name Field # of Occurrence
^%ZIS DEV1+5, DEV1+7, POP+3
^DIC CURDEF+2
YN^DICN POP+2, AG+1, CURDEF+4
ENP^PSGPER0 DEV1+10
ENPAT^PSGPER0 DEV1+10
$$DEFON^PSGPER1 DEV1+1
DEFCL^PSGPER1 EN+1
TASKPRGE^PSGPER1 OUT+1
ENIVKV^PSGSETU OUT+5
ENTSK^PSGTI DEV1+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PRE-EXCHANGE UNITS REPORT"
  • Line Location: DEV1+2
Function Call: WRITE
  • Prompt: !,"Do you want another chance to choose a device"
  • Line Location: POP+2
Function Call: WRITE
  • Prompt: !?3,"Enter 'YES' to choose a device to print. Enter 'NO' to quit now."
  • Line Location: POP+2
Function Call: WRITE
  • Prompt: !!,"DO YOU NEED TO PRINT THIS REPORT AGAIN"
  • Line Location: AG+1
Function Call: WRITE
  • Prompt: $C(7)," ANSWER 'YES' OR 'NO' (Entry required)"
  • Line Location: AGMSG+1
Function Call: WRITE
  • Prompt: !," Enter 'YES' to print this report again. Enter 'NO' (or an '^') to quit",!,"now. PLEASE NOTE that you will NOT be able to retrieve this data at a later",!,"date. You should print this information now."
  • Line Location: AGMSG+2
Function Call: WRITE
  • Prompt: !!,"Keep ",ION," as the PRE-EXCHANGE REPORT DEVICE for this session"
  • Line Location: CURDEF+4
Function Call: WRITE
  • Prompt: !,$C(7)," ANSWER 'YES' OR 'NO' (Entry required)"
  • Line Location: DEFMSG+1
Function Call: WRITE
  • Prompt: !!," Enter 'YES' to make ",ION," the PRE-EXCHANGE REPORT default DEVICE"
  • Line Location: DEFMSG+2
Function Call: WRITE
  • Prompt: !," for the current session. PLEASE NOTE that this will override the ward"
  • Line Location: DEFMSG+3
Function Call: WRITE
  • Prompt: !," default PRE-EXCHANGE REPORT DEVICE for this session only."
  • Line Location: DEFMSG+4
Routine Call
  • DIC
  • Line Location:
    • CURDEF+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV1+5
    • DEV1+7
    • POP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(1 - [#3.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DEV1+6
^SC("B" CURDEF+5

Label References

Name Line Occurrences
AG DEV1+10
AGMSG AG+1
CURDEF DEV1+8
DEFMSG CURDEF+4
DEV EN+3, EN+5
DEV1 DEV+2, DEV1+7, DEV1+9, DEV1+11
EN EN+4
OUT EN+4, EN+6
POP EN+4, DEV1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+4, DEV1+7, DEV1+11, POP+1*, POP+2*, POP+3*, AG+1*, CURDEF+4*
>> %Y AGMSG+1, DEFMSG+1
%ZIS DEV1+5!*, DEV1+6!*, DEV1+7!
%ZIS("A" DEV1+6*
%ZIS("B" DEV1+6*
CLIEN CURDEF+5~*
D DEV1+3*, DEV1+4*, DEV1+5*, DEV1+6, DEV1+8, CURDEF+3~*, CURDEF+4, CURDEF+5
DA CURDEF+2!, CURDEF+6!
>> DFN DEV1+6
DIC CURDEF+2!*, CURDEF+6!
DIC(0 CURDEF+2*
DIE CURDEF+2!, CURDEF+6!
DN CURDEF+3~*, CURDEF+5
DR CURDEF+2!, CURDEF+6!
IO("Q" DEV1+6!, DEV1+9
ION DEV+1, DEV1+5, DEV1+8, CURDEF+2, CURDEF+4, DEFMSG+2
IOP DEV1+5*, DEV1+6!, POP+3*
>> POP EN+1*, EN+4, DEV1+7
PSGCURCL EN+1~, EN+5*, DEV1+3, DEV1+4, DEV1+6, CURDEF+5
>> PSGION DEV+1*, POP+3
PSGPERRF EN+1*, DEV1+11*, OUT+2!, POP+1, POP+2
PSGPRCL EN+2~
PSGPRCLD EN+1~*, EN+5
PSGPRCLD("DEV" EN+5, DEV1+4, DEV1+6, CURDEF+5*
PSGPRCLD("WARD" EN+3!, DEV1+6
PSGPRTYP EN+2~, EN+3*, EN+5*
>> PSGPXDEV DEV1+3, CURDEF+1, CURDEF+4*
PSGPXN EN+1, OUT+1, OUT+2!
>> PSGPXPT DEV1+10, OUT+5
>> PSGTIR DEV1+9*
PSGVBW OUT+4~
>> PSJCOM OUT+3
>> PSJPREX OUT+3
PSJPWD OUT+4~
PSJSYSL OUT+4~
PSJSYSW0 DEV1+3, OUT+4~, CURDEF+5*
PSJSYSW0("CLINIC" CURDEF+5*
U DEV1+3
X CURDEF+2!*, CURDEF+6!
Y CURDEF+2!, CURDEF+3, CURDEF+5, CURDEF+6!
>> ZTDESC DEV1+9*
>> ZTDTH DEV1+9*
ZTSAVE DEV1+9!
ZTSAVE("DFN" DEV1+9*
ZTSAVE("PSGCURCL" DEV1+9*
ZTSAVE("PSGPRTYP" DEV1+9*
ZTSAVE("PSGPXN" DEV1+9*
ZTSK DEV1+9!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All