Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGSSSMR2

Package: IHS Patient Registration

Routine: AGSSSMR2


Information

AGSSSMR2 ;IHS/ASDS/SDH - SSA/SSN Matching Report ;

Source Information

Source file <AGSSSMR2.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 1

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All