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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGSSSMR1

Package: IHS Patient Registration

Routine: AGSSSMR1


Information

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

Source Information

Source file <AGSSSMR1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Patient Registration 2 ^AGSSSMR2  $$UPPER^AGUTILS  
Kernel 2 ^%ZISC  ($$STATUS,OPEN)^%ZISH  
VA Fileman 2 ^DIC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PROCESS ;>PROCESS RECORDS
STOP ;EP - to stop background processing
HEADER ;initialize and retrieve number of records to process
S ;EP - START
EXIT ;
LOOP ;loop through host file
PROC ;start processing
BY ;bypass
SELECT ;

External References

Name Field # of Occurrence
^%ZISC LOOP+23, EXIT+1
$$STATUS^%ZISH LOOP+2, LOOP+3
OPEN^%ZISH BY+1
^AGSSSMR2 SELECT+67, LOOP+24
$$UPPER^AGUTILS SELECT+23
^DIC S+8
^DIR SELECT+19, SELECT+53, SELECT+65, SELECT+76

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"V Verified SSNs"
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: !?5,"1 SSNs not in file"
  • Line Location: SELECT+2
Function Call: WRITE
  • Prompt: !?5,"2 Name and DOB match,sex code doesn't"
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !?5,"3 Name and sex match, DOB doesn't"
  • Line Location: SELECT+4
Function Call: WRITE
  • Prompt: !?5,"4 Name matches, sex and DOB don't"
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !?5,"5 Name doesn't match,DOB and sex not checked"
  • Line Location: SELECT+6
Function Call: WRITE
  • Prompt: !?5,"* Not verified,SSA located different SSN based on name/DOB"
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: !?5,"A Not verified,SSA found different SSN matching on name only"
  • Line Location: SELECT+8
Function Call: WRITE
  • Prompt: !?5,"B Not verified,SSA found different SSN matching on name/DOB"
  • Line Location: SELECT+9
Function Call: WRITE
  • Prompt: !?5,"C Not verified,Multiple SSNs found matching on name/DOB"
  • Line Location: SELECT+10
Function Call: WRITE
  • Prompt: !?5,"D Not verified,Multiple SSNs found matching on name only"
  • Line Location: SELECT+11
Function Call: WRITE
  • Prompt: !?5,"E Not verified,SSA found multiple matches for SSN"
  • Line Location: SELECT+12
Function Call: WRITE
  • Prompt: !?5,"F All error codes EXCEPT Verified"
  • Line Location: SELECT+13
Function Call: WRITE
  • Prompt: !?5,"G Complete report of ALL codes"
  • Line Location: SELECT+14
Function Call: WRITE
  • Prompt: !!?5,"Enter the list of codes you desire to print"
  • Line Location: SELECT+15
Function Call: WRITE
  • Prompt: !?5,"Example: 312*BD",!
  • Line Location: SELECT+16
Function Call: WRITE
  • Prompt: !,"Do not separate codes with commas or hyphens!"
  • Line Location: SELECT+21
Function Call: WRITE
  • Prompt: !!!,"Report will be written for the following codes:",!
  • Line Location: SELECT+29
Function Call: WRITE
  • Prompt: !,"READING INPUT FILE...."
  • Line Location: PROC+2
Function Call: WRITE
  • Prompt: !!,*7,"Could not open file.",!
  • Line Location: BY+4
Routine Call
  • DIC
  • Line Location:
    • S+8
Routine Call
  • DIR
  • Line Location:
    • SELECT+19
    • SELECT+53
    • SELECT+65
    • SELECT+76

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" SELECT+79, SELECT+82
^AGSSTMP1( SELECT+61, SELECT+68!, BY+3*, PROCESS+1!, HEADER+2*, HEADER+3*, HEADER+4*, HEADER+5, LOOP+2, LOOP+5
, LOOP+6, LOOP+7*, LOOP+8*, LOOP+13*, LOOP+16*, LOOP+17*, LOOP+21*, STOP+1*
^AUTTLOC - [#9999999.06] SELECT+70
^AUTTSITE(1 HEADER+1
^DIC(4 - [#4] S+7

Label References

Name Line Occurrences
EXIT SELECT+85, HEADER+6, LOOP+25
PROC SELECT+84
SELECT SELECT+21, SELECT+48, SELECT+50

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A SELECT+30*, SELECT+31
AG EXIT+8!
>> AGACCT SELECT+31*, SELECT+32, SELECT+33, SELECT+34, SELECT+35, SELECT+36, SELECT+37, SELECT+38, SELECT+39, SELECT+40
, SELECT+41, SELECT+42, SELECT+43, SELECT+44, SELECT+45, SELECT+46, SELECT+47
AGACCTS S+1~, SELECT+24*, SELECT+25, SELECT+30, SELECT+31, SELECT+46*, SELECT+48, SELECT+50, SELECT+57*, SELECT+58*
AGHDDR EXIT+3!
AGK EXIT+7*, EXIT+8!
AGQUIT S+3*, SELECT+55*, SELECT+56!, SELECT+59*, SELECT+61, SELECT+66*, SELECT+67*, SELECT+69
AGSBGTM HEADER+4*, EXIT+3!
AGSCREC LOOP+3*, LOOP+4, LOOP+10, LOOP+11, LOOP+12, LOOP+13, EXIT+3!
AGSITE HEADER+1*, EXIT+3!
>> AGSS("NORUN" HEADER+6
AGSS1SSN EXIT+3!
AGSS2SSN EXIT+3!
AGSSBGT EXIT+3!
AGSSC HEADER+5*, LOOP+6, LOOP+7, EXIT+3!
AGSSCNT PROC+1!, EXIT+4!
AGSSCNT( LOOP+15*, LOOP+19, LOOP+20*, LOOP+21
AGSSCNT("TOT" LOOP+1*, LOOP+13, LOOP+14*
AGSSCVC LOOP+10*, LOOP+13, LOOP+15, LOOP+18*, LOOP+19*, LOOP+20, LOOP+21, EXIT+4!
AGSSDAY EXIT+4!
AGSSDOB EXIT+2!
AGSSFIO BY+5*, LOOP+3, EXIT+4!
AGSSFN EXIT+4!
AGSSFNT EXIT+4!
AGSSHFL SELECT+71*, SELECT+72, BY+1, EXIT+2!
AGSSHRN LOOP+11*, LOOP+13, EXIT+2!
>> AGSSITE S+11*, SELECT+61, SELECT+68, SELECT+70, BY+3, PROCESS+1, HEADER+2, HEADER+3, HEADER+4, HEADER+5
, LOOP+2, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+13, LOOP+16, LOOP+17, LOOP+21, STOP+1
AGSSLN EXIT+4!
AGSSMIN EXIT+4!
AGSSMN EXIT+5!
AGSSPATH SELECT+76*, SELECT+77, SELECT+78, SELECT+79*, SELECT+80*, SELECT+81, SELECT+82*, SELECT+83*, BY+1, EXIT+5!
AGSSPICK EXIT+5!
AGSSQ EXIT+2!
AGSSREC EXIT+2!
AGSSRTOT EXIT+5!
AGSSSEC EXIT+5!
AGSSSEX EXIT+2!
AGSSUFAC SELECT+70*, SELECT+71, LOOP+12*, LOOP+13, EXIT+5!
AGSSVC EXIT+2!
>> AGTXT SELECT+32*, SELECT+33*, SELECT+34*, SELECT+35*, SELECT+36*, SELECT+37*, SELECT+38*, SELECT+39*, SELECT+40*, SELECT+41*
, SELECT+42*, SELECT+43*, SELECT+44*, SELECT+45*, SELECT+46*, SELECT+47
DIC S+4*, S+8!
DIC("A" S+6*
DIC("B" S+7*
DIC(0 S+5*
DIR S+2~, SELECT+19!, SELECT+53!, SELECT+65!, SELECT+76!
DIR("A" SELECT+17*, SELECT+51*, SELECT+63*, SELECT+74*
DIR("B" SELECT+64*, SELECT+75*
DIR(0 SELECT+18*, SELECT+52*, SELECT+62*, SELECT+73*
DIROUT S+10!, SELECT+22, EXIT+6!
DIRUT S+10!, SELECT+22, EXIT+6!
DTOUT S+10!, SELECT+22, EXIT+6!
DUOUT S+10!, SELECT+22, SELECT+27, SELECT+55, EXIT+6!
DUZ(2 S+7
IO BY+5
>> POP BY+2
U SELECT+46, LOOP+10, LOOP+11, LOOP+12
>> XBFQ LOOP+22*
Y S+9, S+11, SELECT+20, SELECT+21, SELECT+23*, SELECT+24, SELECT+25, SELECT+26!, SELECT+50, SELECT+60!
, SELECT+61, SELECT+66, SELECT+67, SELECT+76, EXIT+6!
YQ S+10!
>> ZTQUEUED BY+4, LOOP+9, LOOP+22
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All