Routine: AGSS0

Package	Total	Call Graph
VA Fileman	4	DD^%DT YX^%DTC DT^DICRW ^DIR
IHS Patient Registration	3	^AGSS1 ^AGSSDEL DISP^AGSSM
Kernel	2	^%ZISC ($$STATUS,OPEN)^%ZISH

Package	Total	Caller Graph
IHS Patient Registration	1	AGSS

Entry Points

Name	Comments	DBIA/ICR reference
COUNT	;count up entries
PROCESS	;>PROCESS RECORDS
STOP	;EP to stop background processing
ENDPROC	;
AGSSPG	;EP PAGE HANDLER
HEADER	;initialize and retrieve number of records to process
AGSSHDR	;EP PAGE HEADER HANDLER
EXIT	;
EAGSSPG
PRINT	;EP PRINT report of processing SSA SSNs
PROC	;EP - start processing
BY	;bypass
LOOP	;loop through host file

External References

Name	Field # of Occurrence
DD^%DT	AGSSHDR+1
YX^%DTC	PRINT+7, PRINT+9
^%ZISC	EXIT+1
$$STATUS^%ZISH	LOOP+1, LOOP+2
OPEN^%ZISH	BY+1
^AGSS1	LOOP+6
^AGSSDEL	LOOP+14
DISP^AGSSM	LOOP+12
DT^DICRW	AGSSHDR+1
^DIR	PRINT+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"Could not open file.",! Line Location: BY+4
Function Call: WRITE	Prompt: "." Line Location: LOOP+11
Function Call: WRITE	Prompt: AGSSC Line Location: LOOP+12
Function Call: WRITE	Prompt: ! Line Location: LOOP+12
Function Call: WRITE	Prompt: !,"NO RUN SET SO ... NO REPORT",! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"Records Processed from NPIRS/SSA ",?40,AGSSRTOT Line Location: PRINT+6
Function Call: WRITE	Prompt: !,"Starting Time",?40,Y Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"Ending Time",?40,Y Line Location: PRINT+10
Function Call: WRITE	Prompt: !,"Processing Time",?50,AGSSMIN," minutes" Line Location: PRINT+12
Function Call: WRITE	Prompt: !!!,?2,"""A"" SSNs ADDED",?50,$J(^AGSSTEMP(AGSSITE,"TOT","RA"),8) Line Location: PRINT+13
Function Call: WRITE	Prompt: !!,?2,"""V"" SSNs VERIFIED",?50,$J(^AGSSTEMP(AGSSITE,"TOT","RV"),8) Line Location: PRINT+14
Function Call: WRITE	Prompt: !!,?2,"""N"" SSN NUMBERS differ but DATA agrees",?50,$J(^AGSSTEMP(AGSSITE,"TOT","RN"),8) Line Location: PRINT+15
Function Call: WRITE	Prompt: !!,?2,"""D"" DATA differs but SSN NUMBERS agree,",?50,$J(^AGSSTEMP(AGSSITE,"TOT","RD"),8) Line Location: PRINT+16
Function Call: WRITE	Prompt: !!,?2,"""P"" Possible SSNs for patients with a match",?50,$J(^AGSSTEMP(AGSSITE,"TOT","RP"),8) Line Location: PRINT+17
Function Call: WRITE	Prompt: !,?2,"to NPIRS HRN but either Name or DOB differs" Line Location: PRINT+18
Function Call: WRITE	Prompt: !!,?2,"DELETES sent to NPIRS",?50,$J(^AGSSTEMP(AGSSITE,"TOT","DEL"),8) Line Location: PRINT+19
Function Call: WRITE	Prompt: !!,?2,"""O"" Other",?50,$J(^AGSSTEMP(AGSSITE,"TOT","RR"),8),! Line Location: PRINT+20
Function Call: READ	Prompt: "^ to quit " Formatting: ! Timeout: DTIME Variable: X Line Location: AGSSPG+1
Function Call: WRITE	Prompt: !,@IOF Line Location: AGSSHDR+1
Function Call: WRITE	Prompt: ?(IOM-20-$L(AGSSHDR)/2),AGSSHDR,?(IOM-25),AGSSDT,?(IOM-10),"PAGE: ",AGSSPG,!,AGSSLINE Line Location: AGSSHDR+2
Routine Call	DIR Line Location: PRINT+21

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGSSTEMP(	PROC+1!, BY+3, PROCESS+1!, HEADER+2, HEADER+3, HEADER+4, HEADER+5, HEADER+7, HEADER+8, HEADER+9 , HEADER+10, HEADER+11, HEADER+12, HEADER+13, LOOP+1, LOOP+3, LOOP+5, LOOP+7, LOOP+8, LOOP+13* , LOOP+15, PRINT+4, PRINT+5, PRINT+7, PRINT+9, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17 , PRINT+19, PRINT+20, STOP+1, COUNT+2, COUNT+5, COUNT+7, COUNT+8*
^AUTTSITE(1	HEADER+1

Label References

Name	Line Occurrences
AGSSHDR	PRINT+2
COUNT	HEADER+6, PRINT+1
ENDPROC	HEADER+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	PRINT+7, PRINT+9
AG	EXIT+3!
>> AGHDDR	PRINT+2*
AGK	EXIT+2*, EXIT+3!
>> AGSBGTM	HEADER+4*
>> AGSCREC	LOOP+2*
>> AGSITE	HEADER+1*
>> AGSS("NORUN"	HEADER+14, PRINT+3
>> AGSSBGT	PRINT+7*, PRINT+11
>> AGSSC	HEADER+5, LOOP+4, LOOP+5, LOOP+7, LOOP+11, LOOP+12
>> AGSSCNT	COUNT+3, COUNT+6, COUNT+7, COUNT+8
>> AGSSDAY	PRINT+11*
>> AGSSDT	AGSSHDR+1*, AGSSHDR+2
>> AGSSFIO	BY+5*, LOOP+2
>> AGSSFNT	PRINT+9*, PRINT+11
>> AGSSHDR	AGSSHDR+1, AGSSHDR+2
>> AGSSHFL	BY+1
>> AGSSITE	PROC+1, BY+3, PROCESS+1, HEADER+2, HEADER+3, HEADER+4, HEADER+5, HEADER+7, HEADER+8, HEADER+9 , HEADER+10, HEADER+11, HEADER+12, HEADER+13, LOOP+1, LOOP+3, LOOP+5, LOOP+7, LOOP+8, LOOP+13 , LOOP+15, PRINT+4, PRINT+5, PRINT+7, PRINT+9, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17 , PRINT+19, PRINT+20, STOP+1, COUNT+2, COUNT+5, COUNT+7, COUNT+8
>> AGSSLINE	AGSSHDR+1*, AGSSHDR+2
>> AGSSMIN	PRINT+11*, PRINT+12
>> AGSSPATH	BY+1
>> AGSSPG	AGSSPG+1, AGSSHDR+1, AGSSHDR+2
>> AGSSRA	HEADER+7*
>> AGSSRD	HEADER+9*
>> AGSSRN	HEADER+10*
>> AGSSRP	HEADER+11*
>> AGSSRR	HEADER+12*
>> AGSSRTOT	PRINT+4*, PRINT+5, PRINT+6
>> AGSSRV	HEADER+8*
>> AGSSRX	HEADER+13*
>> AGSSSEC	PRINT+11*
>> DFOUT	AGSSPG+1*
DIR	PRINT+21!
DIR(0	PRINT+21*
>> DOUT	AGSSPG+1*
DT	AGSSHDR+1
DTIME	AGSSPG+1
>> I	COUNT+1*, COUNT+2, COUNT+5, COUNT+7
IO	BY+5
IO(0	LOOP+10, PRINT+21
IOF	AGSSHDR+1
IOM	AGSSHDR+1, AGSSHDR+2
IOSL	AGSSPG+1
IOST	AGSSPG+1
>> J	COUNT+4, COUNT+5
>> POP	BY+2
>> X	AGSSPG+1*
>> XBFQ	ENDPROC+1*
>> Y	PRINT+8, PRINT+10, AGSSHDR+1*
>> ZTQUEUED	BY+4, LOOP+9, ENDPROC+1, PRINT+21

Customize PDF page

Package: IHS Patient Registration

Routine: AGSS0

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: