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: AGTRBL

Package: IHS Patient Registration

Routine: AGTRBL


Information

AGTRBL ; IHS/ASDS/EFG - TRIBAL BLOOD QUANTUM STATISTICS REPORT ;

Source Information

Source file <AGTRBL.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
IHS Patient Registration 2 (LINES,NOW,RTRN)^AG  $$S^AGVDF  
VA Fileman 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
END
MCD
L
DEV
START ;EP - From TaskMan.
PRINT
L9

External References

Name Field # of Occurrence
^%ZIS DEV, PRINT+2
^%ZISC DEV+1, DEV+3, END
^%ZTLOAD DEV+3
KILL^%ZTLOAD END+2
LINES^AG PRINT+3
NOW^AG PRINT+3
RTRN^AG PRINT+13, END
$$S^AGVDF PRINT+4, END
^DIC AGTRBL+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!,AG("*"),!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,AG("USR"),?80-$L(AG("LOC"))\2,AG("LOC")
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!?20,"TRIBAL BLOOD QUANTUM STATISTICAL SUMMARY",!?19,"PERCENTAGE OF REGISTERED TRIBAL POPULATION",!!?80-$L("TRIBE: "_AGTRIBE)\2,"TRIBE: "_AGTRIBE
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!?80-$L("Report date: "_AGTIME)\2,"Report date: ",AGTIME,!
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,AG("*"),!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"""POPULATION"" represents those patients who.....",!!?5,"1) are on file in the local computer,",!?5,"2) are registered at the above facility,"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !?5,"3) have valid data in the tribal quantum field,",!?5,"4) are not designated as inactive patients,",!?5,"5) are members of the ",AGTRIBE," tribe."
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!!,"TRIBAL QUANTUM.... (POPULATION: ",AGTOT,")"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !?5,$J($P("FULL^LESS THAN FULL^LESS THAN 1/2^LESS THAN 1/4^NONE^UNKNOWN^UNSPECIFIED",U,I),15),":",?25,$J(AG(I)/AGTOT*100,6,1),"%"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !!!!!,"Total LESS-THAN-1/4 WITH MEDICAID:",?25,$J(AG(9)/AGTOT*100,6,1),"%",?50,"(Number of patients: ",AG(9),")"
  • Line Location: MCD+0
Function Call: WRITE
  • Prompt: !!," Based on a population of ",AGTOT," and representing those patients having.....",!," 1) ""less than 1/4"" or ""none"" for Tribal quantum, and",!," 2) membership in the ",AGTRIBE," tribe."
  • Line Location: MCD+1
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: END+0
Routine Call
  • DIC
  • Line Location:
    • AGTRBL+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV
    • PRINT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTTRI - [#9999999.03] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+2
^AUPNMCD("B" L9
^AUPNPAT - [#9000001] L, L+1
^AUTTTRI - [#9999999.03] DEV+2, PRINT
^DIC(4 - [#4] PRINT
^DPT - [#2] L
^VA(200 - [#200] PRINT

Label References

Name Line Occurrences
DEV DEV+1, DEV+3
END PRINT+11
L L, L+1, L+4, L9, L9+2
L9 L+2, L+6, L+7, L+8, L+10
PRINT L
START DEV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
AG DEV+3!, L+5*, L+6, L+7, L+8, L+10, PRINT+1*, END+1!
AG( START+1*, L+2*, PRINT+1, PRINT+12
AG("*" PRINT+4, PRINT+8
AG("LOC" PRINT*, PRINT+5, END+1!
AG("USR" PRINT*, PRINT+5, END+1!
AG(1 L+6*
AG(2 L+7*
AG(3 L+8*
AG(4 L+10*
AG(5 L+11*
AG(9 L9+1*, MCD
AGDEN L+3*, L+4, L+5, END+1!
AGIO AGTRBL+3*, DEV+3!, END+1!
AGNUM L+3*, L+5, END+1!
AGQIO DEV+2*, DEV+3!, PRINT+2, END+1!
AGT END+1!
AGT("TR" L+2*, L+9*, L9
AGTIME PRINT+7, END+1!
AGTOT START+1*, PRINT+1*, PRINT+11, PRINT+12, MCD, MCD+1, END+1!
AGTRIBE AGTRBL+3*, DEV+2, DEV+3!, L, PRINT*, PRINT+6, PRINT+10, MCD+1, END+1!
AGTRIBEQ L+1*, L+2, L+3, L+5*, END+1!
AGTXT END+1!
>> AGZ("I" PRINT+2*
DA END+1!
DFN START+1*, L*, L+1, L9, END+1!
DIC AGTRBL+3*!, END+1!
DIC(0 AGTRBL+3*
DR END+1!
DUZ PRINT
DUZ(2 L, PRINT
G DEV+2*, DEV+3!
I START+1*, PRINT+12*, END+1!
IO AGTRBL+3, DEV+2, PRINT+3
IO("Q" DEV+1!
IO("S" DEV+1
ION DEV
>> IOP DEV*, PRINT+2*
IOST DEV+1
>> POP DEV, PRINT+2
U DEV+2, L, L+1, PRINT, PRINT+12
X END+1!
Y AGTRBL+3, DEV+2, L+2*, END+1!
ZTDESC DEV+2*, DEV+3!
ZTIO DEV+2*, DEV+3!
>> ZTQUEUED END+2
ZTRTN DEV+2*, DEV+3!
ZTSAVE DEV+3!
ZTSAVE( DEV+2*
ZTSK DEV+3!
ZTUCI DEV+2*, DEV+3!
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