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

Package: IHS Patient Registration

Routine: AGRSSN1A


Information

AGRSSN1A ; IHS/ASDS/EFG - SSN Statistical Report - CONT FEB 6,1995 ;

Source Information

Source file <AGRSSN1A.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 DD^%DT  ^DIR  
IHS Patient Registration 1 $$S^AGVDF  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Registration 1 AGRSSN1  

Entry Points

Name Comments DBIA/ICR reference
BODY
LOC
WRT ;EP
XIT
HD

External References

Name Field # of Occurrence
DD^%DT HD+1
^%ZIS WRT+1
$$S^AGVDF HD
^DIR BODY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Age Distributions..: 0-9 10-19 20-29 30-39 40-49 50-59 60-Over Total "
  • Line Location: BODY+3
Function Call: WRITE
  • Prompt: !," ----- ----- ----- ----- ----- ----- ------- -------"
  • Line Location: BODY+4
Function Call: WRITE
  • Prompt: !," ===== ===== ===== ===== ===== ===== ======= ======="
  • Line Location: BODY+5
Function Call: WRITE
  • Prompt: !,"Patients with SSN..:"
  • Line Location: BODY+6
Function Call: WRITE
  • Prompt: $J($FN($P(^TMP("AG-SSN1",$J,AG("LOC"),0),U,X),",",0),$S(X=7:9,1:7))
  • Line Location: BODY+7
Function Call: WRITE
  • Prompt: ?73,$J($FN(AG("T"),","),7)
  • Line Location: BODY+8
Function Call: WRITE
  • Prompt: !,"Total Patients.....:"
  • Line Location: BODY+9
Function Call: WRITE
  • Prompt: $J($FN($P(^TMP("AG-SSN1",$J,AG("LOC"),0),U,X),",",0),$S(X=14:9,1:7))
  • Line Location: BODY+10
Function Call: WRITE
  • Prompt: ?73,$J($FN(AG("T"),","),7)
  • Line Location: BODY+11
Function Call: WRITE
  • Prompt: !,"Percent Compliance.:"
  • Line Location: BODY+12
Function Call: WRITE
  • Prompt: ?73,$J($S(+AG("TT")=0:0,1:AG("CT")/AG("TT")*100),7,0)
  • Line Location: BODY+14
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !,AG("HD"),?60
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: Y,?73,"Page ",AG("PG")
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOC+0
Function Call: WRITE
  • Prompt: "********************************* TOTALS **********************************"
  • Line Location: LOC+0
Function Call: WRITE
  • Prompt: "LOCATION: ",AG("LOC")
  • Line Location: LOC+1
Routine Call
  • DIR
  • Line Location:
    • BODY
Routine Call
  • %ZIS
  • Line Location:
    • WRT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("AG-SSN1" WRT+3, BODY+7, BODY+10, BODY+13

Label References

Name Line Occurrences
BODY WRT+3, WRT+4
HD WRT+2, BODY, BODY+1
LOC BODY+2
XIT WRT+5

Naked Globals

Name Field # of Occurrence
^(0 BODY+7, BODY+10, BODY+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AG("C" BODY+13*
>> AG("CT" BODY+13*, BODY+14
>> AG("HD" HD+1, HD+2, HD+3
>> AG("I" WRT+3*, WRT+4
>> AG("IOP" WRT+1
>> AG("LOC" WRT+3*, WRT+4*, BODY+4, BODY+7, BODY+10, BODY+13, LOC, LOC+1
>> AG("PG" WRT+1*, HD*, HD+1
>> AG("T" BODY+7*, BODY+8, BODY+10*, BODY+11, BODY+13*
>> AG("TT" BODY+13*, BODY+14
>> DIR(0 BODY*
>> DIROUT BODY
DT HD+1
>> DTOUT BODY
>> DUOUT BODY
IO WRT+1, BODY
IO(0 BODY
>> IOP WRT+1*
IOSL BODY, BODY+1
IOST BODY
U BODY+7, BODY+10, BODY+13
>> X BODY+7*, BODY+10*, BODY+13*
>> Y HD+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All