Routine: DGUTL

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	3	C^%DTC DT^DICRW ^DIR
Kernel	2	$$S^%ZTLOAD H^XUS
Registration	2	^DGRPE DIVISION^VAUTOMA
Integrated Billing	1	$$INSUR^IBBAPI

Package	Total	Caller Graph
Registration	101	DG OERR TREATING TRANSFER DG3PR0 DGA4001 DGA4002 DGA4004 DGA4005 DGANHD DGDIS DGMTSCR DGOERR DISCHARGE DGOIL DGOINPT DGPATN DGPMEX DGPMV DGPTBEP DGPTEXPR DGPTF DGPTF099 DGPTF2 DGPTFDEL DGPTFREL DGPTFVC3 DGPTOD0 DGPTODA1 DGPTODA2 DGPTODB1 DGPTODB2 DGPTODCM DGPTOLC1 DGPTOLC2 DGPTOM1 DGPTOM2 DGPTSCAN DGRPC DGRPCK DGRPCP1 DGRPCR DGRPCU DGRPP DGRUGV DGSCHAD2 DGSCHAD3 ^DPT DG10 DG1010P2 DG1010S1 DG1010S2 DGABUL DGADDUTL DGAINP DGBLRV DGDISS DGDIST DGENCD DGENCDA1 DGMTLK DGODASK DGODNP1 DGOERR ADMIT DGOERR BED SWITCH DGOERR TRANSFER DGOINPT1 DGOVBC DGOVBC1 DGOVBC2 DGPMGL DGPTC1 DGPTFCR DGPTFFB DGPTFUP DGPTMSG DGPTMSGD DGPTODF1 DGPTODF2 DGPTODI1 DGPTODI2 DGPTODT1 DGPTODT2 DGPTR0 DGPTRPO DGPTRPP DGPZ07P DGREG DGRPTP DGRPTU DGRRLU2 DGRUGC DGRUGDR DGRUGIX DGRUGV16 DGSCHAD DGSEC DGSEC1 DGSEC2 DGSEC3 DGVPP DGVPR DGVREL2 DPTVPR DPTVPT
Scheduling	8	SCRPU3 SDAMN SDC SDD SDN SDNOS SDNOS1 SDVPR
Integrated Billing	3	IB20PT81 IB20PT82 IB20PT88
IHS Changes To ADT	1	BDGSEC2
IHS Changes To Scheduling	1	BSDC

Package

Total

Caller Graph

Registration

101

DG OERR TREATING TRANSFER  DG3PR0  DGA4001  DGA4002  DGA4004  DGA4005  DGANHD  DGDIS
DGMTSCR  DGOERR DISCHARGE  DGOIL  DGOINPT  DGPATN  DGPMEX  DGPMV  DGPTBEP
DGPTEXPR  DGPTF  DGPTF099  DGPTF2  DGPTFDEL  DGPTFREL  DGPTFVC3  DGPTOD0
DGPTODA1  DGPTODA2  DGPTODB1  DGPTODB2  DGPTODCM  DGPTOLC1  DGPTOLC2  DGPTOM1
DGPTOM2  DGPTSCAN  DGRPC  DGRPCK  DGRPCP1  DGRPCR  DGRPCU  DGRPP
DGRUGV  DGSCHAD2  DGSCHAD3  ^DPT  DG10  DG1010P2  DG1010S1  DG1010S2
DGABUL  DGADDUTL  DGAINP  DGBLRV  DGDISS  DGDIST  DGENCD  DGENCDA1
DGMTLK  DGODASK  DGODNP1  DGOERR ADMIT  DGOERR BED SWITCH  DGOERR TRANSFER  DGOINPT1  DGOVBC
DGOVBC1  DGOVBC2  DGPMGL  DGPTC1  DGPTFCR  DGPTFFB  DGPTFUP  DGPTMSG
DGPTMSGD  DGPTODF1  DGPTODF2  DGPTODI1  DGPTODI2  DGPTODT1  DGPTODT2  DGPTR0
DGPTRPO  DGPTRPP  DGPZ07P  DGREG  DGRPTP  DGRPTU  DGRRLU2  DGRUGC
DGRUGDR  DGRUGIX  DGRUGV16  DGSCHAD  DGSEC  DGSEC1  DGSEC2  DGSEC3
DGVPP  DGVPR  DGVREL2  DPTVPR  DPTVPT

Scheduling

SCRPU3 SDAMN SDC SDD SDN SDNOS SDNOS1 SDVPR

Integrated Billing

IB20PT81 IB20PT82 IB20PT88

IHS Changes To ADT

BDGSEC2

IHS Changes To Scheduling

BSDC

Entry Points

Name	Comments	DBIA/ICR reference
SUBSEQ()	;enter for further headings of report ; RETURNS STOP; 0=GO,1=STOP
EOM	;Required Variable: X - Date should be in internal FM date format
EMGRES(DFN)		ICR #4800 Status: Active Usage: Supported
DT
DIV	;Determine Division
ENDREP
QTQ
LO
ASKDIV(NOTALL)	;Ask for division (one/many/all) ; Input: NOTALL - Flag that prevents selection of all divisions ; 1 = Don't allow selection of all divisions ; 0 = Allow selection of all divisions (default)
LOWER(X)	;
TS	;Table of Contents SET
TP	;Table of Contents PRINT
QTE
TH	;Table of Contents HEADER
RI	;Reimbursable Insurance ; ** NOTE: This procedure appears to be obsolete, but code was modified ; for IB/AR Encapsulation anyways.
C	;Cover Page
STOPCHK
H	;Convert $H to Readable Date/Time
STOPPED	;
QUES(DFN,DGQCODE)	; EDIT REGISTRATION DATA FOR AMIE USE ONLY
FIRST()	;First heading of report ; RETURNS STOP; 0=GO,1=STOP
UPPER(X)	; -- convert to uppercase
ASKDIVQ

Name	Field # of Occurrence
C^%DTC	EOM+2
$$S^%ZTLOAD	STOPCHK
^DGRPE	QUES+17
DT^DICRW	H+1, LO
^DIR	SUBSEQ+4
$$INSUR^IBBAPI	RI+4
DIVISION^VAUTOMA	ASKDIV+24
H^XUS	LO+1, LO+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,J," ",X," ",J1 Line Location: TP+2
Function Call: WRITE	Prompt: ! Line Location: TP+3
Function Call: WRITE	Prompt: @IOF,!,"TABLE OF CONTENTS FOR '",$P(DGTCH,U,1),"'",?(IOM-11) Line Location: TH+1
Function Call: WRITE	Prompt: Y,!?10,$P(DGTCH,U,2),?IOM-7-$L($P(DGTCH,U,3)),$P(DGTCH,U,3) Line Location: TH+1
Function Call: WRITE	Prompt: Y,!?10,$P(DGTCH,U,2),?IOM-7-$L($P(DGTCH,U,3)),$P(DGTCH,U,3) Line Location: TH+1
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: WRITE	Prompt: !!?$P(DGCPG(I),U,2),$P(DGCPG(I),U,1) Line Location: C+3
Function Call: WRITE	Prompt: !!?X1,X Line Location: C+4
Function Call: WRITE	Prompt: !!?X1,X Line Location: C+5
Function Call: WRITE	Prompt: DGCPT Line Location: C+6
Function Call: WRITE	Prompt: !! Line Location: C+7
Function Call: WRITE	Prompt: +$E(%,4,5)_"-" Condition for execution: $E(%,4,5) Line Location: DT+0
Function Call: WRITE	Prompt: +$E(%,6,7)_"-" Condition for execution: $E(%,6,7) Line Location: DT+0
Function Call: WRITE	Prompt: $E(%,1,3)+1700 Line Location: DT+0
Function Call: WRITE	Prompt: " ("_$E(%_0,9,10)_":"_$E(%_"000",11,12)_")" Condition for execution: %["." Line Location: DT+0
Function Call: WRITE	Prompt: !,"ADT parameters not set up",*7 Line Location: LO+1
Function Call: WRITE	Prompt: !!,"Please log off the computer and then back to use this option.",!!,*7 Line Location: LO+2
Function Call: WRITE	Prompt: @IOF Line Location: FIRST+5
Function Call: WRITE	Prompt: @IOF Line Location: SUBSEQ+6
Function Call: WRITE	Prompt: !?5,"------------- Report stopped at user's request ------------" Line Location: STOPPED+1
Function Call: WRITE	Prompt: ! Line Location: ASKDIV+17
Function Call: WRITE	Prompt: $C(7),"*WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP*" Line Location: ASKDIV+18
Function Call: WRITE	Prompt: ! Line Location: ASKDIV+19
Routine Call	DIR Line Location: SUBSEQ+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TH+1
^DD("SITE"	C+5
^DG(40.8 - [#40.8]	DIV+2, ASKDIV+16
^DG(40.80	ASKDIV+15
^DG(43 - [#43]	DIV+1, LO+1, ASKDIV+20
^DPT - [#2]	QUES+16, QUES+18, EMGRES+13
^UTILITY("DG"	LO+2!
^UTILITY($J	TS+1*, TP+1, TP+2, TP+3!
^VA(200 - [#200]	C+4, LO+2

Name	Line Occurrences
ASKDIVQ	ASKDIV+16, ASKDIV+21
QTE	QUES+11
STOPCHK	FIRST+3, SUBSEQ+3
STOPPED	FIRST+4, SUBSEQ+5
TH	TP+2

Name	Field # of Occurrence
^("GL"	DIV+1
^("SITE"	C+5
^(0	C+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DT
%Y	QUES+9~
C	LOWER+1~, LOWER+3*
D	QUES+9~
D0	QUES+9~
DFN	RI+4, QUES~, QUES+11, QUES+16, QUES+18, EMGRES~, EMGRES+10, EMGRES+13
>> DGCHANGE	QUES+10, QUES+18
DGCODE	QUES+9~, QUES+12*
>> DGCPG(	C+1*, C+3
>> DGCPT	C+6
>> DGDATE	H+1*
>> DGDIV	DIV+1, DIV+2
DGDR	QUES+9~, QUES+13*
>> DGERR	QUES+10, QTE
>> DGINS	RI+4*
DGNODE	QUES+9~, QUES+16, QUES+18
>> DGPAG	TS+1
>> DGPAG1	TS+1
DGPC	QUES+9~, QUES+12*
DGPTND	QUES+9~
DGPTND(	QUES+16*, QUES+18
DGQ	QUES+9~
DGQCODE	QUES~, QUES+11
DGQNODES	QUES+9~, QUES+15*, QUES+16
DGRPS	QUES+9~, QUES+10, QUES+14, QTE
DGTCH	TP+3!, TH+1
>> DGTIME	H+1*
DGX	QUES+9~
DI	QUES+9~
DIC	QUES+9~
DIR	SUBSEQ+2~
DIR(0	SUBSEQ+4*
>> DIRUT	SUBSEQ+4
DQ	QUES+9~
DT	TH+1, H+1, LO
DTIME	LO*
DUZ	C+4, LO+2
FIRSTDIV	ASKDIV+13~, ASKDIV+15*, ASKDIV+16
I	TP+2, TP+3!, C+1, C+2, C+3, C+7!, LOWER+1~, LOWER+3*
I1	TP+2*, TP+3!
IOF	TH+1, C+1, FIRST+5, SUBSEQ+6, ENDREP
IOM	TP+2, TH+1, C+1, C+4, C+5
>> IONOFF	ENDREP
IOSL	TP+2, C+2
IOST	FIRST+5, SUBSEQ+4, ENDREP
J	TP+2*, TP+3!
J1	TP+2*, TP+3!
MULTIDIV	ASKDIV+13~, ASKDIV+20*, ASKDIV+21
N	QUES+9~, QUES+16*
NOTALL	ASKDIV~, ASKDIV+23
RESULT	EMGRES+12~, EMGRES+13*, EMGRES+14
STOP	FIRST+2~, FIRST+4, FIRST+5, FIRST+6, SUBSEQ+2~, SUBSEQ+4, SUBSEQ+5, SUBSEQ+6, SUBSEQ+7, STOPCHK
TT	C+1, C+2, C+7!
U	TH+1, C+1, C+3, C+4, LO*, EMGRES+13
USER	LO+2*, LO+3!
VAUTD	ASKDIV+14!, ASKDIV+21, ASKDIV+22, ASKDIV+25!, ASKDIVQ
VAUTNALL	ASKDIV+13~, ASKDIV+23*
X	TP+2, TP+3!, TH+1!, C+4, C+5, C+7!, EOM+2!, UPPER~, UPPER+1, LOWER~ , LOWER+2, QUES+9~, SUBSEQ+2~
X1	C+4, C+5, C+7!, EOM+2*
>> X2	EOM+2*
Y	TP+3!, TH+1, EOM+2, LOWER+1~, LOWER+2, LOWER+3, LOWER+4, QUES+9~, SUBSEQ+2~, ASKDIV+13~ , ASKDIV+22*, ASKDIV+25
Z	LOWER+1~, LOWER+3*
>> ZTQUEUED	STOPCHK
ZTREQ	STOPPED+2!
>> ZTSTOP	STOPCHK*

Customize PDF page

Package: Registration

Routine: DGUTL

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 114

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: