Routine: DGUTL

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

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

External References

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

Label References

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

Naked Globals

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: