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

Package: Registration

Routine: DGOIL


Information

DGOIL ;ALB/AAS - INPATIENT LIST ; 28-SEPT-90

Source Information

Source file <DGOIL.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 3 ^DGOIL1  $$ASKDIV^DGUTL  ZIS^DGUTQ  
VA FileMan 3 NOW^%DTC  D^DIQ  ^DIR  
Kernel 2 HOME^%ZIS  ^%ZISC  

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
Registration 2 DG INPATIENT LIST  DGOIL1  

Entry Points

Name Comments DBIA/ICR reference
WARD ; -- by ward or by name
FIRST ; -- get range of the output
BRKOUT ; -- with ward breakout
DRG ; -- with DGR breakout
DEV
DQ ; -- entry point to start processing
SORT ; -- sort inpatients, store in ^utility($j,
BYWARD ; -- if by ward get entries to print
BYNAME ; -- if by name get entries to print
SETU ; -- set utility($j,$s(sort by ward:ward,1:name),$s(sort by ward:name,1:ward),dfn)=pointer to dgpm
HDR
HDR1
END
END1
LEGEND ; -legend for flag column
CAP(X)

External References

Name Field # of Occurrence
NOW^%DTC DQ+2
HOME^%ZIS %+1
^%ZISC END1+1
^DGOIL1 BYWARD+1, BYNAME+1
$$ASKDIV^DGUTL FIRST+14
ZIS^DGUTQ DEV+2
D^DIQ DQ+2
^DIR WARD+1, FIRST+4, FIRST+8, BRKOUT+1, DRG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DGOIL+4
Function Call: WRITE
  • Prompt: !!,?32,"Inpatient List",!!!
  • Line Location: DGOIL+5
Function Call: WRITE
  • Prompt: !!,"End must be after beginning",!
  • Line Location: FIRST+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: BRKOUT+1
Function Call: WRITE
  • Prompt: !,"No Matches Found"
  • Line Location: SORT+6
Function Call: WRITE
  • Prompt: @IOF,"INPATIENT LIST",?(IOM-29)
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: DGDATE," PAGE: ",DGPG
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !?104,"Trim",?112,"Nat/Loc",?120,"Nat/Loc"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: ?45,"DIVISION(S): ",VAUTD(I),!
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LEGEND+1
Function Call: WRITE
  • Prompt: !,"'+' Before the Patient name indicates patient is currently ASIH, '!' Indicates patient chose not to be in Facility Directory"
  • Line Location: LEGEND+2
Function Call: READ
  • Formatting: !
  • Prompt: "Press '^' to QUIT or Return to Continue"
  • Variable: Z
  • Timeout: DTIME
  • Line Location: LEGEND+4
Routine Call
  • DIR
  • Line Location:
    • WARD+1
    • FIRST+4
    • FIRST+8
    • BRKOUT+1
    • DRG+1
Routine Call
  • %ZIS
  • Line Location:
    • %+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(43 - [#43] DQ+3
^DIC(42 - [#42] SORT+3
^DPT - [#2] SETU+1, SETU+2
^DPT("CN" SORT+2
^UTILITY($J DQ+1!, SORT+6, BYWARD+1, BYNAME+1, SETU+3*, HDR1+5, END!

Label References

Name Line Occurrences
$$CAP FIRST+5, FIRST+9
END DEV+2, SORT+6, BYNAME+2
END1 WARD+1, FIRST+4, FIRST+8, FIRST+14, BRKOUT+1, DRG+1
FIRST FIRST+12
HDR BYWARD+1
HDR1 SORT+6
LEGEND HDREND
SETU SORT+4

Naked Globals

Name Field # of Occurrence
^( SORT+2, BYWARD+1, BYNAME+1
^("GL" DQ+3
^(0 SORT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+2, END1!
ADM END1!
AFFIL DQ+3*, HDR1+1, HDR1+2, END1!
DFN SORT+2*, BYWARD+1*, BYNAME+1*, SETU+1, SETU+2, SETU+3, END1!
DGASIH END1!
DGBEG FIRST+5*, FIRST+6*, FIRST+12, DQ+4*, DQ+5*, SORT+1, BYNAME+1, END1!
DGBRK BRKOUT+1*, DRG+1, END1!
DGDATE DQ+2*, HDR1, END1!
DGDRG DRG+1*, DEVHDR1+1, HDR1+2, HDR1+3, END1!, LEGEND+3
DGEND FIRST+9*, FIRST+10*, FIRST+12, SORT+2, BYNAME+1, END1!
DGL END1!
DGOUT END1!
DGPG DQ+2*, HDR1*, END1!
DGPGM DEV+1*, END1!
DGPM SORT+2*, BYWARD+1*, BYNAME+1*, SETU+3, END1!
DGVAR DEV+1*, END1!
DGWARD WARD+1*, FIRST+1, FIRST+8, SORT+1, SORT+2, BYWARD+1, BYNAME+1, SETU+3, HDR1+5, END1!
>> DGWD SORT+3*
DIR WARD+1!, FIRST+4!, FIRST+8!, BRKOUT+1!, END1!
DIR("?" FIRST+2*, FIRST+3*
DIR("A" WARD+1*, FIRST+1*, FIRST+8*, BRKOUT+1*, DRG+1*
DIR("B" WARD+1*, FIRST+1*, FIRST+8*, BRKOUT+1*, DRG+1*
DIR(0 WARD+1*, FIRST+1*, FIRST+8*, BRKOUT+1*, DRG+1*
DIRUT WARD+1, FIRST+4, FIRST+8, BRKOUT+1, DRG+1, END, END1!
DIS END1!
DRG END1!
DRGCAL END1!
DTIME LEGEND+4
DUOUT BYWARD+1, BYNAME+1, HDREND, END1!, LEGEND+4*
I SORT+2*, BYWARD+1*, BYNAME+1*, HDR1+4*, HDR1+6*, END1!
IO DEV+2
IOF %+1, HDR1
IOM HDR1HDR1+4
IOSL LEGEND+1
IOST LEGEND+3, LEGEND+4
J SORT+2*, BYWARD+1*, BYNAME+1*, END1!
K BYWARD+1*, BYNAME+1*, END1!
L END1!, LEGEND+1*
M END1!
N BYWARD+1*, BYNAME+1*, HDR1+5, END1!
NAME SETU+2*, SETU+3, END1!
>> POP DEV+2, DQ+2*, END
U SORT+3
VA END1!
VAIN END1!
VAUTD SORT+3, END1!
VAUTD( SORT+3, HDR1+6
W SORT+1*, SORT+2*, SORT+3, BYWARD+1*, BYNAME+1*, SETU+3, HDR1+5, END1!
X END1!, CAP~, CAP+1
X1 END1!
X2 END1!
X3 END1!
Y WARD+1, FIRST+5, FIRST+9, BRKOUT+1, DRG+1, DQ+2*, END1!
Z END1!, LEGEND+4*
>> ZTQUEUED END
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All