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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AGSSLBAT

Package: IHS Patient Registration

Routine: AGSSLBAT


Information

AGSSLBAT ; IHS/ASDS/EFG - PRINT 'SSN ADDED' LETTERS TO SEND TO PATIENTS ;

Source Information

Source file <AGSSLBAT.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 YX^%DTC  ^DIC  DT^DICRW  ^DIR  
IHS Patient Registration 2 ^AGSSLPRT  $$S^AGVDF  
IHS VA Utilities 1 ^XBDBQUE  
Kernel 1 ^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
LOAD ;EP
AGSSHDR ;EP header
END ;EP
PATPRT ;print patient letters for a batch
SCAN ;scan SSN Ver Stat Indx / build
REVIEW ;review previous printing
RPTPRT ;print summary report
AGSSPG ;EP
START
CONTINUE ;EP
EAGSSPG
PRINT
AGSSHD ;EP column
PRTLTR ;print letter

External References

Name Field # of Occurrence
YX^%DTC AGSSHDR+1
^%ZIS START
^AGSSLPRT PRTLTR+2
$$S^AGVDF START+1
^DIC LOAD+2, SCAN+2
DT^DICRW START
^DIR REVIEW+1, REVIEW+13, LOAD+5, CONTINUE+1, AGSSPG+2
^XBDBQUE CONTINUE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!,"This will send SSN Notification Letters to those patients",!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: "that have had their SSN ADDED by the SSA/SSN Matching Process.",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"There is no temporary SSN global to print batches from."
  • Line Location: REVIEW+1
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS",?25,$J(AGSSTP,5)
  • Line Location: REVIEW+3
Function Call: WRITE
  • Prompt: !,"Letters Per Batch",?25,$J(AGSSLPB,5)
  • Line Location: REVIEW+4
Function Call: WRITE
  • Prompt: !,"Batches for Printing",?25,$J(AGSSBFP,5)
  • Line Location: REVIEW+5
Function Call: WRITE
  • Prompt: !!,"Batch Numbers Completed",!
  • Line Location: REVIEW+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>75
  • Line Location: REVIEW+7
Function Call: WRITE
  • Prompt: $J(AGSI,5)
  • Line Location: REVIEW+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>75
  • Line Location: REVIEW+8
Function Call: WRITE
  • Prompt: $J(AGSSBFP,5)
  • Line Location: REVIEW+8
Function Call: WRITE
  • Prompt: !!,"Batch Numbers to Print",!
  • Line Location: REVIEW+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>75
  • Line Location: REVIEW+10
Function Call: WRITE
  • Prompt: $J(AGSI,5)
  • Line Location: REVIEW+10
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>75
  • Line Location: REVIEW+11
Function Call: WRITE
  • Prompt: $J(AGSSBFP,5)
  • Line Location: REVIEW+11
Function Call: WRITE
  • Prompt: !,"There are ",AGSSMORE," batches to Print",!
  • Line Location: REVIEW+12
Function Call: WRITE
  • Prompt: !,"There are ",AGSSC," potential patients to receive letters. ",!
  • Line Location: LOAD+4
Function Call: WRITE
  • Prompt: ?AGSSCL,$J(AGSHRN,6)," ",AGSSNM
  • Line Location: RPTPRT+6
Function Call: WRITE
  • Prompt: " *"_^AGSSLTMP(AGSSIEN)
  • Condition for execution: ($G(^AGSSLTMP(AGSSIEN))]"")
  • Line Location: RPTPRT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTPRT+6
Function Call: WRITE
  • Prompt: !!,"TOTAL = ",AGSSC
  • Line Location: RPTPRT+8
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(AGSSPG("HDR"))/2),AGSSPG("HDR"),?(IOM-40),AGSSPG("DT"),?(IOM-10),"PAGE: ",AGSSPG("PG"),!,AGSSPG("LINE")
  • Line Location: AGSSHDR+2
Function Call: WRITE
  • Prompt: !!," * BAD Patient Record -- LETTER NOT PRINTED",!!
  • Line Location: AGSSHD+1
Function Call: WRITE
  • Prompt: !," A - Address D - Date of Death R - Record Disposition S - Patient Status",!
  • Line Location: AGSSHD+2
Routine Call
  • DIC
  • Line Location:
    • LOAD+2
    • SCAN+2
Routine Call
  • DIR
  • Line Location:
    • REVIEW+1
    • REVIEW+13
    • LOAD+5
    • CONTINUE+1
    • AGSSPG+2
Routine Call
  • %ZIS
  • Line Location:
    • START

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTSSN - [#9999999.78] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGSSLTMP REVIEW+1, LOAD+3, SCAN+4*, PATPRT+2, PRTLTR+1*, PRTLTR+2*, RPTPRT+4, RPTPRT+6
^AGSSLTMP("A" SCAN+1, SCAN+3*, SCAN+4*
^AGSSLTMP("BAT" REVIEW+7, REVIEW+8, REVIEW+10, REVIEW+11, PATPRT+2*
^AGSSLTMP("BFP" LOAD+7*
^AGSSLTMP("TP" REVIEW+2
^AUPNPAT - [#9000001] RPTPRT+5
^AUPNPAT("AS" LOAD+3, SCAN+3
^AUTTSITE(1 RPTPRT+2
^DPT - [#2] SCAN+3

Label References

Name Line Occurrences
AGSSHDR RPTPRT+3
AGSSPG RPTPRT+6
CONTINUE REVIEW+15
END REVIEW+1, REVIEW+15, REVIEW+17, LOAD+5, PRINT+2
LOAD REVIEW+1, REVIEW+14
PATPRT PRINT
PRTLTR PATPRT+2
RPTPRT PRINT
START REVIEW+14, REVIEW+16, CONTINUE+1

Naked Globals

Name Field # of Occurrence
^( PRTLTR+1, RPTPRT+4
^("BFP" REVIEW+2
^("LPB" REVIEW+2, LOAD+7*
^("TP" LOAD+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H AGSSHDR+1*
AGBOT END+2!
AGI END+2!
AGIN END+2!
AGSC REVIEW+7*, REVIEW+8*, REVIEW+10*, REVIEW+11*, END+1!
AGSHRN RPTPRT+5*, RPTPRT+6, END+1!
AGSI REVIEW+7*, REVIEW+10*, END+1!
AGSITE RPTPRT+2*, RPTPRT+5, END+1!
AGSS END+1!
AGSSBFP REVIEW+2*, REVIEW+5, REVIEW+7, REVIEW+8, REVIEW+10, REVIEW+11, LOAD+6*, LOAD+7, CONTINUE+1, END+1!
AGSSC LOAD+3*, LOAD+4, LOAD+6, LOAD+7, SCAN+3*, SCAN+4*, RPTPRT+4*, RPTPRT+6, RPTPRT+7*, RPTPRT+8
, END+1!
AGSSCL RPTPRT+6*, END+1!
AGSSI PRINT*, END+2!
AGSSIEN LOAD+2*, LOAD+3, SCAN+2*, SCAN+3, PATPRT+2*, PRTLTR+1, PRTLTR+2, RPTPRT+4*, RPTPRT+6, END+1!
AGSSLBC END+2!
AGSSLPB REVIEW+2*, REVIEW+4, REVIEW+7, REVIEW+10, LOAD+5*, LOAD+6, LOAD+7, PATPRT+2, RPTPRT+4, END+1!
, END+2!
AGSSMORE REVIEW+9!, REVIEW+12
AGSSNB PRINT*, PATPRT+2, RPTPRT+3, RPTPRT+4, END+1!
AGSSNM SCAN+3*, SCAN+4*, PRTLTR+1*, RPTPRT+4*, RPTPRT+6, END+1!
AGSSNUM CONTINUE+1*, PRINT, END+1!
>> AGSSPG("DT" AGSSHDR+1*, AGSSHDR+2, EAGSSPG!
>> AGSSPG("HDR" RPTPRT+3*, AGSSHDR+1, AGSSHDR+2, EAGSSPG!
>> AGSSPG("LINE" AGSSHDR+1*, AGSSHDR+2, EAGSSPG!
>> AGSSPG("PG" RPTPRT+3*, AGSSPG+2*, AGSSHDR+1*, AGSSHDR+2, EAGSSPG!
AGSST PRTLTR+2!
AGSSTP REVIEW+2*, REVIEW+3, REVIEW+8, REVIEW+11, END+1!
>> AGTMP REVIEW+16*, LOAD+1*
DA END+2!
DFN LOAD+3*, SCAN+3*, SCAN+4*, PRTLTR+1*, RPTPRT+4*, RPTPRT+5, END+2!
>> DFOUT AGSSPG+2
DIC LOAD+2!*, SCAN+2!*
DIC(0 LOAD+2*, SCAN+2*
DIR REVIEW+1!, REVIEW+13!, LOAD+5!, CONTINUE+1!, END+2!, AGSSPG+2!
DIR("A" REVIEW+1*, LOAD+5*, CONTINUE+1*
DIR("B" REVIEW+1*, REVIEW+13*
DIR(0 REVIEW+1*, REVIEW+13*, LOAD+5*, CONTINUE+1*, AGSSPG+2*
>> DIROUT AGSSPG+2, AGSSHD+3
>> DOUT AGSSPG+2
DR END+2!
>> DROUT AGSSPG+2, AGSSHD+3
>> DTOUT AGSSPG+2, AGSSHD+3
>> DUOUT REVIEW+1, LOAD+5, CONTINUE+1, AGSSPG+2, AGSSHD+3
IO PRINT+1, PATPRT+1, AGSSHDR+2
IOF PRINT+1, PATPRT+1, AGSSHDR+1
IOM AGSSHDR+1, AGSSHDR+2
>> IOP START*
IOSL AGSSPG+2
IOST AGSSPG+2
U SCAN+3
>> X LOAD+2*, SCAN+2*
>> XBNS CONTINUE+2*
>> XBRC CONTINUE+2*
>> XBRP CONTINUE+2*
>> XBRX CONTINUE+2*
>> Y REVIEW+1, REVIEW+14, REVIEW+15, REVIEW+16, LOAD+2, LOAD+5, CONTINUE+1, SCAN+2, AGSSHDR+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All