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

Package: Incomplete Records Tracking

Routine: DGJOPRT1


Information

DGJOPRT1 ;MAF/ALB - INCOMPLETE REPORTS ; SEP 11 1991@10:00

Source Information

Source file <DGJOPRT1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Incomplete Records Tracking 4 START^DGJOPRT1  ^DGJOPRT2  ^DGJTUDIS  (CLOSE,ZIS)^DGJUTQ  
Registration 2 ^VADATE  (DIVISION,FIRST,PATIENT)^VAUTOMA  
VA FileMan 2 ^%DT  (HELP,NOW)^%DTC  

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

Package Total Caller Graph
Incomplete Records Tracking 6 DGJOPRT  DGJOPRT1  DGJOPRT2  DGJPDEF2  DGJTVW1  DGJTVW3  

Entry Points

Name Comments DBIA/ICR reference
START
QUIT
CNT
CK
PAT
PHY
DAT ;DATE RANGE
BEG
END
SER
RECTYP(DGJTNODE) ; Get Default record type for Medical records.
; input variables
; DGJTNODE := IRT node string

External References

Name Field # of Occurrence
^%DT BEG, END
HELP^%DTC END
NOW^%DTC DGJOPRT1+10
START^DGJOPRT1 DGJOPRT1+11
^DGJOPRT2 START+1
^DGJTUDIS CK+12
CLOSE^DGJUTQ QUIT+1
ZIS^DGJUTQ DGJOPRT1+11
^VADATE DGJOPRT1+10
DIVISION^VAUTOMA DGJOPRT1+3
FIRST^VAUTOMA DGJOPRT1+8, PHY, SER, SER+1
PATIENT^VAUTOMA PAT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"This output requires 132 column output",!
  • Line Location: DGJOPRT1+9
Function Call: WRITE
  • Prompt: !!,"NO RECORDS"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!?5,"The ending date cannot be before the beginning date"
  • Line Location: END+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^DG(393.1 - [#393.1] Classic Fileman Calls
^VAS(393.3 - [#393.3] Classic Fileman Calls
^DIC(45.7 - [#45.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(393.1 - [#393.1] CK+18
^DG(40.8 - [#40.8] DGJOPRT1+4, CK, CK+13, RECTYP+11
^DGPM - [#405] CK+5
^DIC(45.7 - [#45.7] CK+18
^DPT - [#2] CK+14
^UTILITY("VAS" START+1, START+2, CK+15*, CK+16*, CK+17*, CK+19*
^VA(200 - [#200] CK+17
^VAS(393 - [#393] START
^VAS(393.3 - [#393.3] CK+5, CK+7

Label References

Name Line Occurrences
@( DGJOPRT1+5
CK START
CNT CK+15, CK+16, CK+17, CK+19
DAT DGJOPRT1+6
END END, END+2
QUIT DGJOPRT1+3, DGJOPRT1+5, DGJOPRT1+6, DGJOPRT1+12

Naked Globals

Name Field # of Occurrence
^(0 CK+13, CK+14, CK+17, CK+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DGJOPRT1+10
%DT QUIT!, BEG*
%DT("A" BEG*, END*
>> DFN START+1*, CK+14*, CK+15, CK+16, CK+17, CK+19
>> DGJ START+1*
DGJFL QUIT!, PHY*
>> DGJPHTOT( CNT+2*
DGJRTYP QUIT!
>> DGJSPTOT( CNT+4*
>> DGJSVTOT( CNT+3*
DGJTBEG QUIT!, BEG*
DGJTBG QUIT!, CK+11, BEG*, END+2
DGJTCK QUIT!
DGJTDAT DGJOPRT1+10*, QUIT!
DGJTDIR QUIT!
>> DGJTDIV CK+13*
>> DGJTDL CK+15, CK+16, CK+17, CK+19
>> DGJTDT START+1*, CK+16*
DGJTDV DGJOPRT1+4*, START+1*, QUIT!, CK+2
>> DGJTDV1 START*
>> DGJTDVN CNT, CNT+2, CNT+3, CNT+4, CK+13*, CK+15, CK+16, CK+17, CK+19*
DGJTEND QUIT!, CK+11, END+1*, END+2
>> DGJTF START+1*
>> DGJTFF START+1*
>> DGJTFLAG CK+12
DGJTL DGJOPRT1+5, DGJOPRT1+6, QUIT!, CNT, CNT+1, CNT+2, CNT+3, CNT+4, CK+6, CK+15
, CK+16, CK+17, CK+18, CK+19
>> DGJTLN START+1*
DGJTMESS QUIT!
DGJTMUL DGJOPRT1+3, DGJOPRT1+4, QUIT!
DGJTNODE START*, CK*, CK+1, CK+2, CK+3, CK+4, CK+5, CK+7, CK+8, CK+9
, CK+10, CK+11, CK+13, CK+14, CK+16, CK+17, CK+18, RECTYP~, RECTYP+9, RECTYP+10
>> DGJTOT( CNT*, CNT+1*, CK+13*
>> DGJTPAG START*
>> DGJTPC CK+6*, CK+8, CK+16, CK+17, CK+18
>> DGJTPHY START+1*, CNT+2, CK+17*
>> DGJTPT START+1*, CK+14*, CK+15, CK+16, CK+17, CK+19*
>> DGJTSP START+1*, CNT+4, CK+18*, CK+19*
DGJTSR QUIT!
DGJTSR1 QUIT!, CK+3, CK+4, CK+5
DGJTSTAT QUIT!
>> DGJTSV START+1*, CNT+3, CNT+4, CK+18*, CK+19*
>> DGJY START+1*
>> DGPGM DGJOPRT1+11*
>> DGU START+1*
>> DGVAR DGJOPRT1+11*
>> DIC DGJOPRT1+8*, PHY*, SER*, SER+1*
>> DIC("S" DGJOPRT1+7*
DIR QUIT!
>> IFN START*, START+1*, CK+15, CK+16, CK+17, CK+19
IO DGJOPRT1+11
POP DGJOPRT1+11, QUIT!
VADAT QUIT!
VADAT("W" DGJOPRT1+10*
VADATE QUIT!
VADATE("E" DGJOPRT1+10
VAUTD QUIT!, CK+1
VAUTD( CK+1
VAUTN QUIT!, CK+8
VAUTN( CK+8
>> VAUTNI DGJOPRT1+8*, PAT*, PHY*, SER*, SER+1*
>> VAUTSTR DGJOPRT1+8*, PHY*, SER*, SER+1*
VAUTT QUIT!, CK+9
VAUTT( CK+9
>> VAUTVB DGJOPRT1+8*, PHY*, SER*, SER+1*
>> VAUTY CK+10
>> VAUTY( CK+10
X QUIT!, CNT+1, CK+5*, CK+19*, BEG, END, RECTYP+7~, RECTYP+10*, RECTYP+11*, RECTYP+12*
, RECTYP+13
Y DGJOPRT1+3, DGJOPRT1+5, DGJOPRT1+6, DGJOPRT1+8, DGJOPRT1+10*, QUIT!, PHY, BEG*, END*, END+1
, SER
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 |  Naked Globals |  Local Variables  | All