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 |  Local Variables |  All
Print Page as PDF
Routine: DGOASIH

Package: Registration

Routine: DGOASIH


Information

DGOASIH ;ALB/VAD - LIST OF PATIENTS ON ASIH ;Sep 27 1999

Source Information

Source file <DGOASIH.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 3 START^DGOASIH  CK^DGPASS  (CLOSE,ZIS)^DGUTQ  
VA Fileman 2 ^%DT  (C,NOW)^%DTC  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DG ASIH LIST  DGOASIH  DGPASS  

Entry Points

Name Comments DBIA/ICR reference
RT
QUIT
HEAD
WRCNT
START
EN3
WR
WR1
QUIT1

External References

Name Field # of Occurrence
^%DT EN3
C^%DTC EN3+10, START
NOW^%DTC START, START+1
START^DGOASIH EN3+11
CK^DGPASS START+4
CLOSE^DGUTQ QUIT
ZIS^DGUTQ EN3+11
$$FMTE^XLFDT START

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,$C(7),"You have entered a future date...to prevent the printing"
  • Line Location: EN3+3
Function Call: WRITE
  • Prompt: !?10,"of a negative report, remember to task this request for"
  • Line Location: EN3+4
Function Call: WRITE
  • Prompt: !?10,"the appropriate date."
  • Line Location: EN3+5
Function Call: WRITE
  • Prompt: !!?8,"*** THERE ARE NO PATIENTS OUT ON ASIH FOR "_DGDAY_" ***"
  • Line Location: START+5
Function Call: WRITE
  • Prompt: @IOF,!,DGHD,?35,"PRINTED: ",DGTIME,?72," PAGE: "_DGPG
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!,"NAME",?22,"PT ID",?38,"LEFT",?54,"LOCATION"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,DGCL,!!,?10,"DIVISION: ",$S(DGDV="ZUNKNOWN":"UNKNOWN",1:DGDV),!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: !,$E(DGP,1,20),?22,$P(DGNO,"^"),?38
  • Line Location: WR1+1
Function Call: WRITE
  • Prompt: X
  • Line Location: WR1+1
Function Call: WRITE
  • Prompt: X
  • Line Location: WR1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RT+1
Function Call: READ
  • Prompt: "Enter <RET> to continue or ^ to Quit"
  • Formatting: !?22
  • Timeout: DTIME
  • Variable: X
  • Line Location: RT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN3+10
^DGPM("AMV2" START+4
^UTILITY($J QUIT1!, START+5, WR+1, WRCNT

Label References

Name Line Occurrences
HEAD WR+1, WR1
QUIT EN3, EN3+2, START+5, START+7
RT EN3+6, WR+1, WR1
WR START+6
WR1 WRCNT
WRCNT WR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUIT1!, START, START+1
%DT EN3*, QUIT1!
%DT("A" EN3*
%I QUIT1!
%T QUIT1!
DFN QUIT1!, START+4*, WRCNT*
DG2 QUIT1!
DGA QUIT1!, START+2*
DGADM QUIT1!
DGASIH START+4*, START+5!
DGCA QUIT1!
DGCD QUIT1!
DGCL QUIT1!, START*, HEAD+2
DGD QUIT1!, WR+1*
DGDAT QUIT1!, START+3*, START+4
DGDAY EN3+10*, QUIT1!, START+5
DGDFN QUIT1!
DGDT QUIT1!, START+4*
DGDV QUIT1!, HEAD+2, WR*, WR+1*, WRCNT
DGF EN3!
DGFL QUIT1!, START*, START+4, WR*, WR+1, WRCNT*
DGHD EN3+10*, QUIT!, HEAD
DGI QUIT1!
DGIFN QUIT1!, START+4*
DGJ QUIT1!
DGLV QUIT1!
DGNO QUIT1!, WRCNT*, WR1+1
DGNOW QUIT1!, START+1*
DGP QUIT1!, WR*, WR+1*, WRCNT, WR1+1
DGPG EN3+10*, QUIT1!, START+3*, HEAD*, WR+1*
DGPGM EN3+11*, QUIT1!
DGRT QUIT1!
DGST QUIT!, START+3*
DGSTART QUIT1!, START*, START+4
DGT EN3+9*, EN3+10, QUIT1!, START, START+3
DGTIME QUIT1!, START*, HEAD
DGTP QUIT1!
DGTYP QUIT1!
DGU EN3+2, EN3+6*, QUIT1!, WR*, WR+1, WRCNT, WR1, RT+2*
DGVAR EN3+11*, QUIT1!
DGW QUIT1!
DGX QUIT1!
DGY QUIT1!
DT EN3+2, EN3+10
DTIME RT+2
IO EN3+11
IOF HEAD
IOSL WR1, RT+1
IOST WR1, RT
M QUIT1+1!, WR+1*
POP EN3+11, QUIT1!
TD EN3!
VA QUIT1!
VADAT QUIT1!
VADATE QUIT1!
VAERR QUIT1!
VAIP QUIT1+1!
VAIP("D" QUIT1+1!
X QUIT1!, START, WR1+1*, RT+1*, RT+2*
X1 EN3+10*, QUIT1!, START*
X2 EN3+10*, QUIT1!, START*
Y EN3, EN3+2, EN3+9, EN3+10*, QUIT1!, START*
>> ZTQUEUED QUIT
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All