Routine: AGSSSMR2

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (CLOSE,OPEN)^%ZISH ^%ZTLOAD
VA Fileman	4	DD^%DT YX^%DTC DT^DICRW ^DIR

Package	Total	Caller Graph
IHS Patient Registration	1	AGSSSMR1

Entry Points

Name	Comments	DBIA/ICR reference
COLHDR	;
PRINT2	;prints to device
PRINT	;prints to comma-delimited file
EAGSSPG
STOP	;EP - to stop background processing
AGSSPG	;EP - PAGE HANDLER
OUTFILE	;setup for printing to file
S	;EP - START
AGSSHDR	;EP - PAGE HEADER HANDLER
QUE	;que to taskman
VCHDR	;header for each error code
OUTFILE2	;setup for output to device
EXIT
PROC	;start processing

External References

Name	Field # of Occurrence
DD^%DT	AGSSHDR+2
YX^%DTC	PRINT+4, PRINT+6, PRINT2+6, PRINT2+8
^%ZIS	OUTFILE2+6
HOME^%ZIS	S+5
^%ZISC	EXIT
CLOSE^%ZISH	OUTFILE+21, PRINT2+43
OPEN^%ZISH	OUTFILE+18
^%ZTLOAD	OUTFILE2+11
DT^DICRW	AGSSHDR+2
^DIR	S+11, OUTFILE+9, PRINT2+33, PRINT2+38, PRINT2+42

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Output File: ",AGSSHFL2,! Line Location: OUTFILE+5
Function Call: WRITE	Prompt: !,"WRITING FILE...." Line Location: OUTFILE+17
Function Call: WRITE	Prompt: !,"NO RUN SET SO ... NO REPORT",! Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"Starting Time",?40,Y Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"Ending Time",?40,Y Line Location: PRINT+7
Function Call: WRITE	Prompt: !,"Processing Time",?50,AGSSMIN," minutes" Line Location: PRINT+10
Function Call: WRITE	Prompt: !,AGSS1SSN_T_AGSSLN_T_AGSSFN_T_AGSSMN_T_AGSSDOB_T_AGSSSEX_T_AGSSCVC_T_AGSSHRN Line Location: PRINT+29
Function Call: WRITE	Prompt: !,"NO RUN SET SO ... NO REPORT",! Line Location: PRINT2+4
Function Call: WRITE	Prompt: !,"Starting Time",?40,Y Line Location: PRINT2+7
Function Call: WRITE	Prompt: !,"Ending Time",?40,Y Line Location: PRINT2+9
Function Call: WRITE	Prompt: !,"Processing Time",?50,AGSSMIN," minutes" Line Location: PRINT2+12
Function Call: WRITE	Prompt: !,?2,AGSS1SSN,?13,AGSSLN,?28,AGSSFN,?39,AGSSMN,?51,AGSSDOB,?64,AGSSSEX,?68,AGSSCVC,?71,AGSSHRN Line Location: PRINT2+30
Function Call: WRITE	Prompt: !!!,"* END OF REPORT *" Line Location: PRINT2+39
Function Call: WRITE	Prompt: !," ============================================================" Line Location: VCHDR+1
Function Call: WRITE	Prompt: !!,?3,"VC=V: VERIFIED SSNs - ",^AGSSTMP1(AGSSITE,0,"COUNTS",AGSSCVC)," Records",! Line Location: VCHDR+3
Function Call: WRITE	Prompt: !!,?3,"VC=1: SSNs not in file",!,?5,"(impossible number/never issued to anyone/no SSN) - "_^AGSSTMP1(AGSSITE,0,"COUNTS",AGSSCVC)_" Records" Line Location: VCHDR+5
Function Call: WRITE	Prompt: !!,?3,"VC=2: Name and DOB match, sex code doesn't - "_^AGSSTMP1(AGSSITE,0,"COUNTS",AGSSCVC)_" Records",! Line Location: VCHDR+7
Function Call: WRITE	Prompt: !!,?3,"VC=3: Name and sex match, DOB doesn't - "_^AGSSTMP1(AGSSITE,0,"COUNTS",AGSSCVC)_" Records",! Line Location: VCHDR+9
Function Call: WRITE	Prompt: !!,?3,"VC=4: Name matches, sex and DOB don't - "_^AGSSTMP1(AGSSITE,0,"COUNTS",AGSSCVC)_" Records",! Line Location: VCHDR+11
Function Call: WRITE	Prompt: !!,?3,"VC=5: Name doesn't match, DOB and sex not checked - "_^AGSSTMP1(AGSSITE,0,"COUNTS",AGSSCVC)_" Records",! Line Location: VCHDR+13
Function Call: WRITE	Prompt: !!,?3,"VC=*: SSN not verified;",!,?5,"SSA located different SSN based on name/DOB- "_^AGSSTMP1(AGSSITE,0,"COUNTS",AGSSCVC)_" Records" Line Location: VCHDR+15
Function Call: WRITE	Prompt: !!,?3,"VC=A: SSN not verified;",!,?5,"SSA found different SSN matched on Name/DOB - "_^AGSSTMP1(AGSSITE,0,"COUNTS",AGSSCVC)_" Records" Line Location: VCHDR+17
Function Call: WRITE	Prompt: !!,?3,"VC=B: SSN not verified",!,?35,"SSA found different SSN matching on name only - "_^AGSSTMP1(AGSSITE,0,"COUNTS",AGSSCVC)_" Records" Line Location: VCHDR+19
Function Call: WRITE	Prompt: !!,?3,"VC=C: SSN not verified;",!,?5,"Multiple SSNs found matching on name/DOB - "_^AGSSTMP1(AGSSITE,0,"COUNTS",AGSSCVC)_" Records" Line Location: VCHDR+21
Function Call: WRITE	Prompt: !!,?3,"VC=D: SSN not verified;",!,?5,"Multiple SSNs found matching on name only - "_^AGSSTMP1(AGSSITE,0,"COUNTS",AGSSCVC)_" Records" Line Location: VCHDR+23
Function Call: WRITE	Prompt: !!,?3,"VC=E: SSN not verified;",!,?5,"SSA found multiple matches for SSN - "_^AGSSTMP1(AGSSITE,0,"COUNTS",AGSSCVC)_" Records" Line Location: VCHDR+25
Function Call: WRITE	Prompt: !!,"SSN"_T_"Last Name"_T_"First Name"_T_"Middle Name"_T_"DOB"_T_"Sex"_T_"VC"_T_"HRN" Line Location: COLHDR+1
Function Call: WRITE	Prompt: !!,?2,"SSN",?13,"Last Name",?28,"First Name",?39,"Middle Name",?51,"DOB",?64,"Sex",?68,"VC",?71,"HRN" Line Location: COLHDR+2
Function Call: READ	Prompt: "^ to quit " Formatting: ! Timeout: DTIME Variable: X Line Location: AGSSPG+1
Function Call: WRITE	Prompt: !! Line Location: AGSSHDR+1
Function Call: WRITE	Prompt: ! Line Location: AGSSHDR+2
Function Call: WRITE	Prompt: ?(IOM-20-$L(AGSSHDR)/2),AGSSHDR,?(IOM-25),AGSSDT,?(IOM-10),"PAGE: ",AGSSPG,!,AGSSLINE Line Location: AGSSHDR+3
Routine Call	%ZIS Line Location: S+5
Routine Call	DIR Line Location: S+11 OUTFILE+9 PRINT2+33 PRINT2+38 PRINT2+42
Routine Call	%ZIS Line Location: OUTFILE2+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	OUTFILE+12, OUTFILE+15
^AGSSTMP1(	PRINT+3, PRINT+4, PRINT+6, PRINT+14, PRINT+15, PRINT+19, PRINT+20, PRINT+21, PRINT2+5, PRINT2+6 , PRINT2+8, PRINT2+15, PRINT2+16, PRINT2+20, PRINT2+21, PRINT2+22, VCHDR+3, VCHDR+5, VCHDR+7, VCHDR+9 , VCHDR+11, VCHDR+13, VCHDR+15, VCHDR+17, VCHDR+19, VCHDR+21, VCHDR+23, VCHDR+25, STOP+1*
^AGSSTMP1("REPORT#"	OUTFILE+1, OUTFILE+2, OUTFILE+3
^AUTTLOC - [#9999999.06]	S+6, PRINT+3, PRINT2+5

Label References

Name	Line Occurrences
@(	OUTFILE2+13
AGSSHDR	PRINT+1, PRINT2+3, PRINT2+35, PRINT2+37
COLHDR	PRINT2+35, PRINT2+37, VCHDR+26
EXIT	S+15
OUTFILE	S+13
OUTFILE2	S+14, QUE+5
PRINT	OUTFILE+20
VCHDR	PRINT+18, PRINT2+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	PRINT+4, PRINT+6, PRINT2+6, PRINT2+8
>> %ZIS	OUTFILE2+5*
AG	EXIT+5!
>> AGACCTS	PRINT+17, PRINT2+18
AGCOUNT	S+3~, PRINT2+13, PRINT2+31, PRINT2+32, PRINT2+37, VCHDR+27, COLHDR+3, AGSSPG+1, AGSSHDR+4, AGSSHDR+5*
>> AGEXT	OUTFILE+1, OUTFILE+2, OUTFILE+3, OUTFILE+4
AGHDDR	EXIT+2!
AGK	EXIT+5!
>> AGQUIT	S+12*
AGSBGTM	EXIT+2!
AGSCREC	EXIT+2!
AGSITE	EXIT+2!
>> AGSS("NORUN"	PRINT+2, PRINT2+4
AGSS1SSN	PRINT+22, PRINT+29, PRINT2+23, PRINT2+30, EXIT+2!
AGSS2SSN	EXIT+2!
AGSSBGT	PRINT+4, PRINT+8, PRINT2+6, PRINT2+10, EXIT+2!
AGSSC	PRINT+12, PRINT+20, PRINT+21, PRINT2+2, PRINT2+21, PRINT2+22, EXIT+2!
AGSSCNT	PROC+1!, EXIT+3!
AGSSCVC	PRINT+13, PRINT+15, PRINT+16, PRINT+17, PRINT+19, PRINT+20, PRINT+21, PRINT+29, PRINT2+1, PRINT2+16 , PRINT2+17, PRINT2+18, PRINT2+20, PRINT2+21, PRINT2+22, PRINT2+30, VCHDR+2, VCHDR+3, VCHDR+4, VCHDR+5 , VCHDR+6, VCHDR+7, VCHDR+8, VCHDR+9, VCHDR+10, VCHDR+11, VCHDR+12, VCHDR+13, VCHDR+14, VCHDR+15 , VCHDR+16, VCHDR+17, VCHDR+18, VCHDR+19, VCHDR+20, VCHDR+21, VCHDR+22, VCHDR+23, VCHDR+24, VCHDR+25 , EXIT+3!
AGSSDAY	PRINT+8, PRINT2+10, EXIT+3!
AGSSDOB	PRINT+26, PRINT+27, PRINT+29, PRINT2+27, PRINT2+28, PRINT2+30, EXIT+1!
>> AGSSDT	AGSSHDR+2*, AGSSHDR+3
AGSSFIO	EXIT+3!
>> AGSSFLAG	S+2, PRINT2+14
AGSSFN	PRINT+24, PRINT+29, PRINT2+25, PRINT2+30, EXIT+3!
AGSSFNT	PRINT+6, PRINT+8, PRINT2+8, PRINT2+10, EXIT+3!
>> AGSSHDR	PRINT+1, PRINT2+3, AGSSHDR+2, AGSSHDR+3
AGSSHFL	EXIT+1!
>> AGSSHFL2	OUTFILE+4*, OUTFILE+5, OUTFILE+18
AGSSHRN	PRINT+13, PRINT+19, PRINT+20, PRINT+21, PRINT+29, PRINT2+1, PRINT2+20, PRINT2+21, PRINT2+22, PRINT2+30 , EXIT+1!
>> AGSSITE	S+6, PRINT+3, PRINT+4, PRINT+6, PRINT+14, PRINT+15, PRINT+19, PRINT+20, PRINT+21, PRINT2+5 , PRINT2+6, PRINT2+8, PRINT2+15, PRINT2+16, PRINT2+20, PRINT2+21, PRINT2+22, VCHDR+3, VCHDR+5, VCHDR+7 , VCHDR+9, VCHDR+11, VCHDR+13, VCHDR+15, VCHDR+17, VCHDR+19, VCHDR+21, VCHDR+23, VCHDR+25, STOP+1
>> AGSSLINE	AGSSHDR+2*, AGSSHDR+3
AGSSLN	PRINT+23, PRINT+29, PRINT2+24, PRINT2+30, EXIT+3!
AGSSMIN	PRINT+8, PRINT+9, PRINT+10, PRINT2+10, PRINT2+11, PRINT2+12, EXIT+3!
AGSSMN	PRINT+25, PRINT+29, PRINT2+26, PRINT2+30, EXIT+4!
>> AGSSP2	OUTFILE+9, OUTFILE+10, OUTFILE+11, OUTFILE+12, OUTFILE+13, OUTFILE+14, OUTFILE+15, OUTFILE+16*, OUTFILE+18
AGSSPATH	EXIT+4!
AGSSPG	S+3~, S+4, AGSSPG+1, AGSSHDR+1, AGSSHDR+2, AGSSHDR+3, AGSSHDR+4, AGSSHDR+6
AGSSPICK	S+1~, S+11*, S+12, S+13, S+14, COLHDR+1, COLHDR+2, EXIT+4!
AGSSQ	EXIT+1!
AGSSREC	PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+28, PRINT2+22, PRINT2+23, PRINT2+24 , PRINT2+25, PRINT2+26, PRINT2+27, PRINT2+29, EXIT+1!
AGSSRTOT	EXIT+4!
AGSSSEC	PRINT+8, PRINT2+10, EXIT+4!
AGSSSEX	PRINT+28, PRINT+29, PRINT2+29, PRINT2+30, EXIT+1!
AGSSUFAC	S+6, OUTFILE+4, PRINT+13, PRINT+14, PRINT+15, PRINT+19, PRINT+20, PRINT+21, PRINT2+1, PRINT2+15* , PRINT2+16, PRINT2+20, PRINT2+21, PRINT2+22, EXIT+4!
AGSSVC	EXIT+1!
>> DFOUT	AGSSPG+1*
DIR	PRINT2+33!, PRINT2+38!, PRINT2+42!
DIR("?"	S+9*
DIR("A"	S+7, OUTFILE+7, PRINT2+41*
DIR("B"	S+8, OUTFILE+8
DIR(0	S+10, OUTFILE+6, PRINT2+33, PRINT2+38, PRINT2+40*
>> DOUT	AGSSPG+1*
DT	AGSSHDR+2
DTIME	AGSSPG+1
IO	OUTFILE+19, OUTFILE2+1~, PRINT+29, PRINT2+5, PRINT2+9, PRINT2+12, PRINT2+30, VCHDR+1, VCHDR+3, VCHDR+5 , VCHDR+7, VCHDR+9, VCHDR+11, VCHDR+13, VCHDR+15, VCHDR+17, VCHDR+19, VCHDR+21, VCHDR+23, VCHDR+25 , COLHDR+1, COLHDR+2, AGSSHDR+1, AGSSHDR+2
IO("Q"	OUTFILE2+8, OUTFILE2+9!
IOM	QUE+3, OUTFILE2+10, AGSSHDR+2, AGSSHDR+3
ION	QUE+3, OUTFILE2+10
IOSL	QUE+3, OUTFILE2+10, PRINT2+32, PRINT2+37, AGSSPG+1
IOST	QUE+3, OUTFILE2+10, PRINT2+32, PRINT2+43, AGSSPG+1
>> POP	OUTFILE2+7
>> T	PRINT+11*, PRINT+29, COLHDR+1
U	PRINT+3, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+28, PRINT2+5, PRINT2+23, PRINT2+24 , PRINT2+25, PRINT2+26, PRINT2+27, PRINT2+29
>> X	PRINT2+15, PRINT2+16, PRINT2+20, PRINT2+21, PRINT2+34, PRINT2+38, AGSSPG+1*
>> Y	S+11, OUTFILE+9, PRINT+5, PRINT+7, PRINT2+7, PRINT2+9, AGSSHDR+2*
>> ZTDESC	QUE+2, OUTFILE2+3
>> ZTIO	QUE+3, OUTFILE2+10
>> ZTQUEUED	PRINT2+33, PRINT2+38
>> ZTRTN	QUE+1, OUTFILE2+2, OUTFILE2+13
>> ZTSAVE("AGSS*"	QUE+4, OUTFILE2+4
>> ZTSK	OUTFILE2+12

Customize PDF page

Package: IHS Patient Registration

Routine: AGSSSMR2

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

Local Variables

Legend: