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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AGSSR

Package: IHS Patient Registration

Routine: AGSSR


Information

AGSSR ; IHS/ASDS/EFG - MASTER PRINTER routine ;

Source Information

Source file <AGSSR.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS Patient Registration 6 AGSSHDR^AGSSPRT  ^AGSSRA  ^AGSSRD  ^AGSSRN  ^AGSSRP  ^AGSSRV  
VA Fileman 2 NOW^%DTC  ^DIR  
IHS VA %Utilities 1 ($$ERR,$$KILLOK)^ZIBGCHAR  

Entry Points

Name Comments DBIA/ICR reference
A ;;'A' Added
D ;;'D' Data Differs but SSNs Match
N ;;'N' SSNs Differ but Data Matches
P ;;'P' Potential / Pending
S
V ;;'V' Verified
PRINT ;EP - PRINT
X ;;'X' SSA could not process

External References

Name Field # of Occurrence
NOW^%DTC S+1
AGSSHDR^AGSSPRT PRINT+1
^AGSSRA S+6
^AGSSRD S+6
^AGSSRN S+6
^AGSSRP S+6
^AGSSRV S+6
^DIR PRINT+4, PRINT+6, PRINT+7
$$ERR^ZIBGCHAR S+4
$$KILLOK^ZIBGCHAR S+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$ERR^ZIBGCHAR($$KILLOK^ZIBGCHAR($P(AGTMPK,U,2)))_" "_AGTMPK
  • Line Location: S+4
Function Call: WRITE
  • Prompt: !,"Patients :",?40,"Number",?50,"Report",!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,$P($T(@AGSSFLAG),";;",2),?40,$J($G(^AGSSTEMP(AGSSITE,"TOT","R"_AGSSFLAG)),7),?50,$S(AGSSP(AGSSFLAG)="C":"Complete",1:"Statistics")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!!,*7,?20,">>>>> REPORTS COMPLETED <<<<<"
  • Line Location: PRINT+7
Routine Call
  • DIR
  • Line Location:
    • PRINT+4
    • PRINT+6
    • PRINT+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGSSTEMP( PRINT+3

Label References

Name Line Occurrences
@( PRINT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % S+1
>> AGSS("JOBID" S+1*
>> AGSSFLAG PRINT+3*, PRINT+6*
>> AGSSHDR PRINT+1*
>> AGSSITE PRINT+3
>> AGSSP S
>> AGSSP( PRINT+3, PRINT+6
>> AGSSPG PRINT+1*
>> AGSSROU PRINT+3*, PRINT+6*
AGTMPK S+2~, S+3*, S+4, S+5
>> DFOUT PRINT+6
DIR PRINT+4!, PRINT+6!, PRINT+7!
DIR(0 PRINT+4*, PRINT+6*, PRINT+7*
>> DIRUT PRINT+6
>> DTOUT PRINT+6
>> DUOUT PRINT+6
IO PRINT+2
IOST PRINT+4, PRINT+6, PRINT+7
U S+4

Marked Items

Name Field # of Occurrence
$T(@AGSSFLAG PRINT+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All