Routine: DGOVBC1

Package	Total	Call Graph
Registration	6	^DGINPW (,Q)^DGOVBC2 ($$FIRST,ENDREP,H)^DGUTL CLOSE^DGUTQ (ADD,DEM,ELIG,SVC)^VADPT PID^VADPT6
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Registration	1	DGOVBC

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	DIS+1
^DGINPW	DIS+17
^DGOVBC2	DIS+13, DIS+19
Q^DGOVBC2	Q+1
$$FIRST^DGUTL	DIS
ENDREP^DGUTL	DGOVBC1+4
H^DGUTL	DIS+17
CLOSE^DGUTQ	Q
ADD^VADPT	DIS+5
DEM^VADPT	DIS+2
ELIG^VADPT	DIS+3
SVC^VADPT	DIS+9
PID^VADPT6	DIS+3
$$FMTE^XLFDT	DIS+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"VETERANS ASSISTANCE UNIT RECORD",?53,"PRINTED: ",$$FMTE^XLFDT(Y,1),?DGHD1,DGHD,!,DGLIN,! Line Location: DIS+1
Function Call: WRITE	Prompt: !,"1. Patient Name: ",$S(VADM(1)]"":VADM(1),1:"UNSPECIFIED PATIENT #"_DFN),?55,"\| 2. DOB: ",$P(VADM(3),"^",2) Line Location: DIS+2
Function Call: WRITE	Prompt: ?80,"\| 3. PT ID: ",$S(VA("PID"):VA("PID"),1:DGU),?106,"\| 4. Claim #: " Line Location: DIS+3
Function Call: WRITE	Prompt: $S(VAEL(7):VAEL(7),1:DGU),! Line Location: DIS+3
Function Call: WRITE	Prompt: "_______________________________________________________\|________________________\|_________________________\|_______________________" Line Location: DIS+4
Function Call: WRITE	Prompt: ! Condition for execution: I>1 Line Location: DIS+5
Function Call: WRITE	Prompt: ?57,DGA(I),! Line Location: DIS+5
Function Call: WRITE	Prompt: ! Condition for execution: I>1 Line Location: DIS+8
Function Call: WRITE	Prompt: ?57,DGA(I) Line Location: DIS+8
Function Call: WRITE	Prompt: ! Line Location: DIS+9
Function Call: WRITE	Prompt: !,"6. Service Record",?35,"Service #",?55,"Entry Date",?75,"Separation Date",?108,"Discharge Type" Line Location: DIS+9
Function Call: WRITE	Prompt: $C(13)," ","______________",$E(DGLN,1,18),"_________",$E(DGLN,1,11),"__________",$E(DGLN,1,10),"_______________",$E(DGLN,1,18),"______________" Line Location: DIS+10
Function Call: WRITE	Prompt: !?3,$S(VASV(I,1):$P(VASV(I,1),"^",2),1:DGU),?35,$S($L(VASV(I,2)):VASV(I,2),1:DGU),?55,$S('VASV(I,4):DGU,1:$P(VASV(I,4),"^",2)),?75,$S('VASV(I,5):DGU,1:$P(VASV(I,5),"^",2)),?108,$S(VASV(I,3):$P(VASV(I,3),"^",2),1:DGU) Line Location: DIS+11
Function Call: WRITE	Prompt: ! Line Location: DIS+12
Function Call: WRITE	Prompt: ": NO ADMISSIONS ON FILE FOR THIS APPLICANT." Line Location: DIS+13
Function Call: WRITE	Prompt: ?20,"Admission Type",?55,"Ward",?70,"Admitting Diagnosis",?105,"Admission Authority" Line Location: DIS+14
Function Call: WRITE	Prompt: $C(13)," ","______________"," ","______________",$E(DGLN,1,21),"____",$E(DGLN,1,11),"___________________",$E(DGLN,1,16),"___________________" Line Location: DIS+15
Function Call: WRITE	Prompt: !?3,DGD(1),?20,DGD(2),?55,$E(DGD(3),1,10),?70,DGD(4),?105,$E(DGD(5),1,25) Line Location: DIS+16
Function Call: WRITE	Prompt: !?4,"NOTE: Asterisk [*] indicates admission for Service Connected Condition." Line Location: DIS+18
Function Call: WRITE	Prompt: "_" Line Location: L+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	AS
^DG(405.2 - [#405.2]	AS
^DGPM - [#405]	DIS+12
^DGPM("ATID1"	DIS+12
^DIC(42 - [#42]	DIS+17, AS+1
^DIC(43.4 - [#43.4]	AS+2
^DPT - [#2]	PT
^UTILITY($J	DGOVBC1+4, Q!

Label References

Name	Line Occurrences
A	DIS+5
AC	DIS+8
AS	DIS+16
DIS	DGOVBC1+4
L	DIS+2, DIS+7, DIS+9, DIS+12

Naked Globals

Name	Field # of Occurrence
^(	PT
^(0	DIS+12, DIS+17, AS, AS+1, AS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DIS+1
%DT	Q!
DFN	DGOVBC1+4*, Q!, DIS+2, DIS+12, PT
>> DG1	DIS+17
DGA	DIS+9!, A, A+1, A+2, A+3, AC+1!, AC+4, AC+11, AC+12, AC+13
DGA(	DIS+5, DIS+8, A, A+2, A+3, AC+4, AC+10, AC+12, AC+13*
DGA(1	A+1, AC+11
DGA(14	AC+4*
DGA(19	AC+5*
DGA(2	A*
DGA(20	AC+6*
DGA(21	AC+7*
DGA(22	AC+8*
>> DGADM(	DIS+12*, DIS+16, AS+2
DGASEQ	AC+3~, AC+9, AC+10
DGCA	Q!, DIS+12*
DGCT	Q!, DIS+12*, DIS+13, DIS+16
>> DGD	DIS+16*, AS, AS+1, AS+2
>> DGD(1	DIS+16, AS*
>> DGD(2	DIS+16, AS*
>> DGD(3	DIS+16, AS+1*
>> DGD(4	DIS+16, AS+2*
>> DGD(5	DIS+16, AS+2*
>> DGD1	DIS+16*
DGDFN	Q!
DGFR	Q!
DGHD	Q!, DIS+1
DGHD1	Q!, DIS+1
DGHOW	Q!
DGIOM	Q!
>> DGL	L*
DGLIN	Q!, DIS+1
DGLN	DGOVBC1+3!*, Q!, DIS+10, DIS+15
>> DGMS	DIS+3*
>> DGMT	DIS+3*
DGP	Q!
DGP(	PT*, PT+1
DGPGM	Q!
>> DGPOW	DIS+10*
DGPP	DGOVBC1+3, DGOVBC1+4, Q!
DGPP1	DGOVBC1+4*, Q!
>> DGSC	DIS+3, PT+1
DGSCOND	DIS+13, DIS+18, DIS+19!, AS
>> DGT	DIS+17*
DGTIME	DIS+17!
DGTO	Q!
DGU	DGOVBC1+3*, Q!, DIS+3, DIS+11, AS, AS+1, AS+2
DGVAR	Q!
DGX	Q!
DIC	Q!
I	Q!, DIS+5, DIS+8, DIS+11, DIS+12, DIS+16, PT, A, A+4!, AC+4 , AC+14!, AS+2
IOM	L
J	A+4!
SEQ	AC+3~, AC+9*, AC+10
VA	DIS+3!
VA("PID"	DIS+3
VADM	DIS+3!
VADM(1	DIS+2
VADM(10	DIS+3
VADM(3	DIS+2
VAEL	DIS+3!
VAEL(3	DIS+3
VAEL(7	DIS+3
VAEL(9	DIS+3
VAPA	DGOVBC1+2~, AC+14!
VAPA(	A, AC+4
VAPA(1	A+1
VAPA(12	DIS+6, A+4, AC+2
VAPA(13	AC+11
VAPA(16	AC+12
VAPA(17	AC+12
VAPA(18	AC+13
VAPA(20	AC+6
VAPA(21	AC+7
VAPA(22	AC+9, AC+10
VAPA(4	A+2
VAPA(5	A+2
VAPA(6	A+3
VASV	DIS+12!
VASV(	DIS+11
VASV(4	DIS+10
X	Q!
Y	Q!, DIS+1!, AS
ZTSTOP	DGOVBC1+4, Q!

Customize PDF page

Package: Registration

Routine: DGOVBC1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A
AC	;Formatting Confidential Address Information
PT
L
Q
AS
DIS