Routine: DGPSEUDO

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	GETS^DIQ ^DIR

Package	Total	Caller Graph
Registration	2	DG PATIENT PSEUDO SSN REPORT DGPSEU2

Entry Points

Name	Comments	DBIA/ICR reference
QUESREAS	;ask user which Pseudo SSN Reason, or all
FY(DGFY)	;determine if user enrollee date is current FY or later
PAUSE	;
RPT1	;
PSEU1	;
TSK1	;
VET(DGXVET)	;
REAS(DGXVET,DGXRR)	;
REP1(DGXVET,DGXREAS)	;
QUESVET	;ask user if report should be veterans, non-veterans, or both
LOOP1	;
HDR1	;

External References

Name	Field # of Occurrence
^%ZIS	TSK1+8
HOME^%ZIS	TSK1+8, RPT1+9
^%ZISC	TSK1+8, RPT1+9
^%ZTLOAD	TSK1+13
GETS^DIQ	PSEU1+3
^DIR	QUESVET+13, QUESREAS+12, PAUSE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Job Terminated!" Line Location: TSK1+8
Function Call: WRITE	Prompt: !,DGTXT Line Location: TSK1+15
Function Call: WRITE	Prompt: !!?25,"**NO RECORDS TO REPORT**" Line Location: RPT1+7
Function Call: WRITE	Prompt: ! Line Location: RPT1+7
Function Call: WRITE	Prompt: !!!,?10,"REPORT OF PATIENTS WITH PSEUDO SOCIAL SECURITY NUMBERS" Line Location: QUESVET+2
Function Call: WRITE	Prompt: !?5,"This report excludes deceased patients, non-user enrollees and" Line Location: QUESVET+3
Function Call: WRITE	Prompt: !?5,"with no Integration Control Numbers (ICN).",! Line Location: QUESVET+4
Function Call: WRITE	Prompt: ! Line Location: QUESREAS+2
Function Call: WRITE	Prompt: !!,"Scanning file...." Line Location: LOOP1+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+2
Function Call: WRITE	Prompt: !?((IOM-44)\2),"Patients with Pseudo Social Security Numbers",?70,"Page:"_DGPAGE Line Location: HDR1+4
Function Call: WRITE	Prompt: !?((IOM-DGL)\2),DGT Line Location: HDR1+8
Function Call: WRITE	Prompt: !?62,"Date: "_$G(DGDATE) Line Location: HDR1+10
Function Call: WRITE	Prompt: !!,"PATIENT",?32,"PSEUDO SSN",?44,"BIRTHDATE",?56,"PRIMARY ELIGIBILITY CODE" Line Location: HDR1+11
Function Call: WRITE	Prompt: ! Line Location: HDR1+13
Function Call: WRITE	Prompt: "-" Line Location: HDR1+14
Function Call: WRITE	Prompt: @IOF Line Location: REP1+9
Function Call: WRITE	Prompt: !!?5,"Report for "_$S(DGV="VET":"Veterans",1:"Non-Veterans") Line Location: REP1+11
Function Call: WRITE	Prompt: !!?29,"Patients with Pseudo SSNs: "_DGCT Line Location: REP1+14
Function Call: WRITE	Prompt: ! Line Location: REP1+15
Function Call: WRITE	Prompt: @IOF Line Location: REAS+5
Function Call: WRITE	Prompt: !!?10,"Pseudo SSN Reason: "_$S(DGXRR="NULL":"<NONE ENTERED>",1:DGXRR) Line Location: REAS+7
Function Call: WRITE	Prompt: @IOF Line Location: REAS+13
Function Call: WRITE	Prompt: !,DGNAM,?32,$P(DGN,U),?44,$P(DGN,U,2) Line Location: REAS+16
Function Call: WRITE	Prompt: ?56,$E($P(DGN,U,3),1,23) Line Location: REAS+18
Function Call: WRITE	Prompt: !?46,"Subtotal: "_^TMP("DGEVC",$J,"COUNT",DGXVET,DGXRR) Line Location: REAS+20
Routine Call	%ZIS Line Location: TSK1+8 RPT1+9
Routine Call	DIR Line Location: QUESVET+13 QUESREAS+12 PAUSE+4
Routine Call	%ZIS Line Location: TSK1+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR1+9
^DPT - [#2]	LOOP1+18
^DPT("SSN"	LOOP1+14, LOOP1+17
^TMP("DGEVC"	TSK1+4!, RPT1+10!, LOOP1+4!, LOOP1+5, LOOP1+6, LOOP1+7, LOOP1+8, LOOP1+9, LOOP1+10, LOOP1+11* , LOOP1+12, PSEU1+2, PSEU1+23, PSEU1+24, PSEU1+25, REP1+5, REAS+7, REAS+9, REAS+10, REAS+15 , REAS+20

Label References

Name	Line Occurrences
$$FY	PSEU1+14
HDR1	RPT1+6, REP1+10, REAS+6, REAS+14
LOOP1	RPT1+5
PAUSE	RPT1+7, REP1+7, REP1+15, REAS+3, REAS+11
PSEU1	LOOP1+19
QUESREAS	TSK1+7
QUESVET	TSK1+6
REAS	VET+5, VET+7
REP1	RPT1+8
VET	REP1+12, REP1+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	TSK1+3~, TSK1+8*
DGARR	PSEU1+1~, PSEU1+5!, PSEU1+6!, PSEU1+8!, PSEU1+11!, PSEU1+13!, PSEU1+15!, PSEU1+17!, PSEU1+21!
DGARR(2	PSEU1+5, PSEU1+6, PSEU1+7, PSEU1+9, PSEU1+12, PSEU1+16, PSEU1+18, PSEU1+19, PSEU1+20
DGBOTH	QUESVET+1~
DGC	RPT1+1~, RPT1+3, RPT1+7, PSEU1+22, PSEU1+24, REP1+14
DGCT	REP1+1~, REP1+2, REP1+14, REAS+19
DGDATE	HDR1+1~, HDR1+9*, HDR1+10
DGDFN	LOOP1+3~, LOOP1+16, LOOP1+17, LOOP1+18, PSEU1+2, PSEU1+3, PSEU1+5, PSEU1+6, PSEU1+7, PSEU1+9 , PSEU1+12, PSEU1+16, PSEU1+18, PSEU1+19, PSEU1+20, PSEU1+23, REAS+1~, REAS+2, REAS+10, REAS+15
DGDOB	PSEU1+1~, PSEU1+18*, PSEU1+23
DGEC	PSEU1+1~, PSEU1+19*, PSEU1+23
DGERR	PSEU1+1~, PSEU1+4!
DGFY	FY~, FY+4
DGL	HDR1+1~, HDR1+7*, HDR1+8
DGLINE	HDR1+1~
DGN	REAS+1~, REAS+15, REAS+16, REAS+17, REAS+18
DGNAM	PSEU1+1~, PSEU1+16, PSEU1+17, PSEU1+23, REAS+1~, REAS+8, REAS+9*, REAS+10, REAS+15, REAS+16
DGPAGE	RPT1+1~, RPT1+2, HDR1+3, HDR1+4
DGQ	TSK1+1~, REP1+6, REP1+7, REP1+15, VET+4, REAS+3, REAS+9, REAS+10, REAS+11, PAUSE+2* , PAUSE+5*
DGQUIT	TSK1+1~, TSK1+5, TSK1+6, TSK1+7, QUESVET+14, QUESREAS+13*
DGR	VET+1~, VET+3*, VET+5
DGREAS	TSK1+1~
DGREASON	TSK1+1~, PSEU1+1~, PSEU1+9, PSEU1+10, PSEU1+11, PSEU1+23, PSEU1+25
DGSSN	PSEU1+1~, PSEU1+20*, PSEU1+21, PSEU1+23
DGT	HDR1+1~, HDR1+5, HDR1+6, HDR1+7, HDR1+8
DGTXT	TSK1+1~, TSK1+14*, TSK1+15
DGUSER	PSEU1+1~, PSEU1+12, PSEU1+13, PSEU1+14, PSEU1+15
DGV	REP1+1~, REP1+4*, REP1+5, REP1+11, REP1+12
DGVET	TSK1+1~, PSEU1+1~, PSEU1+7*, PSEU1+8, PSEU1+13, PSEU1+15, PSEU1+23, PSEU1+25
DGX	LOOP1+3~, LOOP1+13, LOOP1+14, LOOP1+15, LOOP1+17, PSEU1+21
DGXREAS	TSK1+1~, RPT1+8, QUESREAS+14*, PSEU1+11, REP1~, VET+2, VET+6, VET+7, REAS+20
DGXRR	REAS~, REAS+7, REAS+9, REAS+10, REAS+15, REAS+20
DGXVET	TSK1+1~, RPT1+4, RPT1+8, QUESVET+15*, PSEU1+8, REP1~, REP1+3, REP1+13, VET~, VET+5 , VET+7, REAS~, REAS+7, REAS+9, REAS+10, REAS+15, REAS+20
DGXXVET	RPT1+1~, RPT1+4*, HDR1+5
DGYEAR	FY+1~, FY+2, FY+3, FY+4
DGZ	HDR1+12~, HDR1+14*
DIR	QUESVET+1~, QUESREAS+1~, PAUSE+1~
DIR("?"	QUESVET+11, QUESREAS+10
DIR("A"	QUESVET+5, QUESVET+6, QUESVET+7, QUESVET+8, QUESVET+9, QUESREAS+3, QUESREAS+4, QUESREAS+5, QUESREAS+6, QUESREAS+7 , QUESREAS+8, QUESREAS+9
DIR("B"	QUESVET+10*
DIR(0	QUESVET+12, QUESREAS+11, PAUSE+3*
DIROUT	QUESVET+1~, QUESVET+14, QUESREAS+1~, QUESREAS+13
DIRUT	QUESVET+1~, QUESVET+14, QUESREAS+1~, QUESREAS+13, PAUSE+5
DT	FY+2, FY+3, HDR1+9
IO	TSK1+2~, LOOP1+2
IO("Q"	TSK1+9
IO(0	LOOP1+1
IOBS	TSK1+2~
IOF	TSK1+2~, HDR1+2, REP1+9, REAS+5, REAS+13
IOHG	TSK1+2~
IOM	TSK1+2~, HDR1+4, HDR1+8, HDR1+14
ION	TSK1+2~
IOPAR	TSK1+2~
IOS	TSK1+3~
IOSL	TSK1+3~, REP1+7, REP1+8, REAS+3, REAS+4, REAS+11, REAS+12
IOST	TSK1+3~, LOOP1+1, HDR1+2, REP1+7, REP1+15, REAS+3, REAS+11
IOT	TSK1+3~
IOUPAR	TSK1+3~
IOXY	TSK1+3~
POP	TSK1+2~, TSK1+8
U	REAS+16, REAS+17, REAS+18
X	QUESVET+1~, QUESVET+15, QUESREAS+1~, QUESREAS+14, PAUSE+1~
Y	HDR1+1~, HDR1+9*, PAUSE+1~, PAUSE+5
ZTDESC	TSK1+2~, TSK1+11*
ZTDTH	TSK1+2~
ZTIO	TSK1+2~
ZTRTN	TSK1+2~, TSK1+10*
ZTSAVE	TSK1+3~
ZTSAVE("DGXREAS"	TSK1+12*
ZTSAVE("DGXVET"	TSK1+12*
ZTSK	TSK1+2~, TSK1+14

Customize PDF page

Package: Registration

Routine: DGPSEUDO

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: