Routine: AGSSPRT

Information

AGSSPRT ; IHS/ASDS/EFG - SSN VERIFICATION FROM NPIRS/SSA ;

Package	Total	Call Graph
VA Fileman	2	YX^%DTC ^DIR

Package	Total	Caller Graph
IHS Patient Registration	8	AGSSR AGSSRA AGSSRD AGSSRN AGSSRP AGSSRR AGSSRV AGSSRX

Name	Comments	DBIA/ICR reference
MDT(X)	;EP - date format dd mmm yyyy
AGSSHDR	;EP - write page header
CVAR	;
ELVAR
CVARS	;
MTHS	;months
VARS	;
PATC	;
AGSSPG	;EP - page controller
ECVAR
LVAR	;
EAGSSPG
PRINT	;
LAST	;
AGSSHD	;EP - write column header / message
PATL	;
LOOP	;

Name	Field # of Occurrence
YX^%DTC	AGSSHDR+1
^DIR	AGSSPG+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,AGSHRN,?8,AGSLNM,?35,"L: ",AGSLSSN,?49,"I: ",$J(AGSDFN,9),?64,AGSLVC,?66,AGSLSX,?68,$$MDT(AGSLDOB) Line Location: PATL+1
Function Call: WRITE	Prompt: !,AGSHRN,?8,AGSCNM,?35,"S: ",AGSCSSN2,?49,"D: ",$J(AGSCSSN1,9),?64,AGSCVC,?66,AGSCSX,?68,$$MDT(AGSCDOB),! Line Location: PATC+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: AGSSHDR+1
Function Call: WRITE	Prompt: ! Line Location: AGSSHDR+1
Function Call: WRITE	Prompt: ?(IOM-40-$L(AGSSHDR)/2),AGSSHDR,?(IOM-40),AGSSDT,?(IOM-10),"PAGE: ",AGSSPG,!,AGSSLINE Line Location: AGSSHDR+2
Function Call: WRITE	Prompt: !,?3,"Local Data",!,?5,"HRN",?10,"Name ",?20,"L: Local SSN",?44,"I: Internal Entry Number for patient" Line Location: AGSSHD+1
Function Call: WRITE	Prompt: !,?3,"NPIRS Data",!,?5,"HRN",?10,"Name ",?20,"S: Social Security SSN ",?44,"D: IHS NPIRS SSN",!,?5,"Codes: V-Verified A-Only one on file *-1 digit differs",! Line Location: AGSSHD+2
Function Call: WRITE	Prompt: !,"HRN",?8,"Name",?35,"SSNs",?60,"Code",?65,"Sex",?70,"DOB" Line Location: AGSSHD+3
Routine Call	DIR Line Location: AGSSPG+3

Name	Line Occurrences (* Changed, ! Killed)
^AGSSTEMP(	LOOP+1
^AUPNPAT - [#9000001]	LVAR+1
^DPT - [#2]	LVAR+1

Name	Field # of Occurrence
>> %H	AGSSHDR+1*
>> AG0	LVAR+1*, LVAR+2, LVAR+3
>> AGSCDOB	CVAR+7*, PATC+1
>> AGSCFN	CVAR+5*, CVAR+12
>> AGSCLN	CVAR+4*, CVAR+12
>> AGSCMN	CVAR+6*
>> AGSCNM	CVAR+12*, PATC+1
>> AGSCREC	LOOP+1*, PRINT+3, CVAR+1, CVAR+2, CVAR+3, CVAR+4, CVAR+5, CVAR+6, CVAR+7, CVAR+8 , CVAR+9, CVAR+10
>> AGSCSSN1	CVAR+3*, CVAR+13, PATC+1
>> AGSCSSN2	CVAR+10, CVAR+13, PATC+1
>> AGSCSX	CVAR+8*, PATC+1
>> AGSCVC	CVAR+9*, CVAR+13, PATC+1
>> AGSDFN	LOOP+1*, LVAR+1, PATL+1
>> AGSGLO	LOOP+1, AGSSHD+2
>> AGSHRN	CVAR+2, LVAR+1, PATL+1, PATC+1
>> AGSI	CVAR+11*
>> AGSLDOB	LVAR+3*, PATL+1
>> AGSLNM	LVAR+2*, PATL+1
>> AGSLSSN	LVAR+2*, PATL+1
>> AGSLSX	LVAR+2*, PATL+1
>> AGSLVC	PATL+1
>> AGSSDT	AGSSHDR+1*, AGSSHDR+2
>> AGSSHDR	AGSSHDR+1, AGSSHDR+2
>> AGSSITE	LOOP+1, LVAR+1
>> AGSSLINE	AGSSHDR+1*, AGSSHDR+2
>> AGSSPG	AGSSPG+2, AGSSHDR+1, AGSSHDR+2, AGSSHD+1, AGSSHD+2
>> AGSUFAC	CVAR+1*
>> AGSX	CVAR+11*
>> AGSY	CVAR+11*
DFOUT	AGSSPRT+3!, LOOP+1, PRINT+1, AGSSPG+1
DIR	AGSSPG+3!
DIR(0	AGSSPG+3*
>> DIROUT	AGSSPG+4, AGSSHD+4
DIRUT	AGSSPRT+3!, PRINT+1
>> DOUT	AGSSPG+1
>> DROUT	AGSSPG+4, AGSSHD+4
DTOUT	AGSSPRT+3!, LOOP+1, PRINT+1, AGSSPG+4, AGSSHD+4
DUOUT	AGSSPRT+3!, LOOP+1, PRINT+1, AGSSPG+4, AGSSHD+4
>> DURUT	LOOP+1
IO	PRINT+1, PATL+1, AGSSHDR+2
IOF	AGSSHDR+1
IOM	AGSSHDR+1, AGSSHDR+2
IOSL	AGSSPG+1
IOST	AGSSPG+3
U	CVAR+1, CVAR+2, CVAR+3, CVAR+4, CVAR+5, CVAR+6, CVAR+7, CVAR+8, CVAR+9, CVAR+10 , LVAR+1, LVAR+2, LVAR+3
X	MDT~, MDT+1, MDT+2, MDT+3, MDT+4
>> Y	AGSSHDR+1

Name	Field # of Occurrence
$T(MTHS+1	MDT+2