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

Package: IHS Patient Registration

Routine: AGBLDS


Information

AGBLDS ; IHS/ASDS/EFG - BLOOD QUANTUM: % OF REGISTERED POPULATION ;

Source Information

Source file <AGBLDS.m>

Call Graph

Call Graph Total: 5

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

Entry Points

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

External References

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

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("*"),!!,AG("USR"),?80-$L(AG("LOC"))\2,AG("LOC"),!!?24,"BLOOD QUANTUM STATISTICAL SUMMARY",!?23,"PERCENTAGE OF REGISTERED POPULATION",!!?80-$L("Report date: "_AGTIME)\2,"Report date: ",AGTIME,!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,AG("*"),!
  • Line Location: PRINT+5
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,",!?5,"3) have valid data in the respective quantum fields,"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?5,"3) are not designated as inactive patients",!!!,"TRIBAL QUANTUM.... (POPULATION: ",AGTOT,")"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !?5,$J($P(AGTXT,U,I),15),":",?25,$J(AG(I)/AGTOT*100,6,1),"%"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!!!!,"INDIAN QUANTUM.... (POPULATION: ",AGTTOT,")"
  • Line Location: FULL+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FULL+1
Function Call: WRITE
  • Prompt: !?5,$J($P(AGTXT,U,I),15),":",?25,$S(AGTTOT>0:$J(AGT(I)/AGTTOT*100,6,1),1:0),"%"
  • Line Location: FULL+1
Function Call: WRITE
  • Prompt: !!!!!,"Total ""UNQUALIFIED"":",?25,$S(AGGTOT>0:$J(AG(8)/AGGTOT*100,6,1),1:0),"%",?40,"(Number of patients: ",AG(8),")"
  • Line Location: FULL+2
Function Call: WRITE
  • Prompt: !!," Based on a population of ",AGGTOT," and representing those patients having.....",!," 1) ""less than 1/4"" or ""none"" for Tribal quant., and",!," 2) ""less than 1/2"" or ""less than 1/4"" or ""none"" for Indian quant."
  • Line Location: FULL+3
Function Call: WRITE
  • Prompt: !," 3) and, valid data in both quantum fields."
  • Line Location: FULL+4
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: END+0
Routine Call
  • %ZIS
  • Line Location:
    • DEV
    • PRINT+2

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
DEV DEV+1, DEV+3
END FULL
FULL PRINT+7
L L, L9+1
L5 L+1, L+2, L+3, L+5, L+6, L+7, L+9
L9 L5, L5+1, L5+2, L5+4, L5+5, L5+7, L5+8
PRINT L
START DEV+1

Naked Globals

Name Field # of Occurrence
^(11 L+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
AG DEV+3!, START+1*, L+4*, L+5, L+6, L+7, L+9, L5+3*, L5+4, L5+5
, L5+7, L5+8, PRINT*, END+1!
AG( START+1*, L+2*, PRINT, PRINT+8
AG("*" PRINT+4, PRINT+5
AG("LOC" PRINT*, PRINT+4, END+1!
AG("USR" PRINT*, PRINT+4, END+1!
AG(1 L+5*
AG(2 L+6*
AG(3 L+7*
AG(4 L+9*
AG(5 L+10*
AG(8 L9*, FULL+2
AGDEN L+3*, L+4, L5+2*, L5+3, END+1!
AGGTOT START+1*, L9*, FULL+2, FULL+3, END+1!
AGIO AGBLDS+2*, DEV+3!, END+1!
AGIQ L+1*, L5*, L5+1, L5+2*, L5+3*, L9, END+1!
AGNUM L+3*, L+4, L5+2*, L5+3, END+1!
AGQIO DEV+2*, DEV+3!, PRINT+2, END+1!
AGT END+1!
AGT( START+1*, L5+1*, PRINT, FULL+1
AGT("IN" L*, L5+1*, L5+6*, L9
AGT("TR" L*, L+2*, L+8*, L9
AGT(1 L5+4*
AGT(2 L5+5*
AGT(3 L5+7*
AGT(4 L5+8*
AGT(5 L5+9*
AGTIME PRINT+4, END+1!
AGTOT START+1*, PRINT*, PRINT+7, PRINT+8, END+1!
AGTQ L+1*, L+2, L+3*, L+4*, L9, END+1!
AGTTOT START+1*, PRINT*, FULL, FULL+1, END+1!
AGTXT PRINT+1*, PRINT+8, FULL+1, END+1!
>> AGZ("I" PRINT+2*
DFN START+1*, L*, L+1, END+1!
DLOUT END+1!
DUZ PRINT
DUZ(2 L, PRINT
G DEV+2*, DEV+3!
I PRINT+8*, FULL+1*, END+1!
IO AGBLDS+2, 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 L, L+1, PRINT, PRINT+8, FULL+1
>> Y DEV+2, L+2*, L5+1*
ZTDESC DEV+2*, DEV+3!
ZTIO DEV+2*, DEV+3!
>> ZTQUEUED END+1
ZTRTN DEV+2*, DEV+3!
>> ZTSAVE( DEV+2*
ZTSK DEV+3!
ZTUCI DEV+2*, DEV+3!, END+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All