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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLADX

Package: Patient Care Component Reports

Routine: APCLADX


Information

APCLADX ; IHS/CMI/LAB - AGE BUCKET/DIAGNOSIS REPORT ;

Source Information

Source file <APCLADX.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 DD^%DT  C^%DTC  ^DIR  
Patient Care Component Reports 2 ^APCLADX0  DEMOCHK^APCLUTL  
IHS VA Utilities 1 ^XBDBQUE  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
BIN
SET
RUN ;
SETBIN ;
FILT ;
POV ;
ED ;get ending date
AGE ;
LIST ;
EXIT ;
GETDATES ;
GC ;
DEMO ;
CLOSE
ZIS ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
^APCLADX0 FILT+9
DEMOCHK^APCLUTL DEMO+1
^DIR BD+1, ED+1, FILT+6, POV+3, BIN+2, AGE+2, GC+1
^XBDBQUE DEMO+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?15,"***** FREQUENCY OF DIAGNOSES BY AGE REPORT *****",!!
  • Line Location: APCLADX+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!,"When I search the database, I can ""screen"" POVs according to any one of the",!,"following attributes:"
  • Line Location: FILT+3
Function Call: WRITE
  • Prompt: !?15,"PATIENT SEX",!?15,"FACILITY OF ENCOUNTER",!?15,"PRIMARY PROVIDER",!?15,"CLINIC TYPE"
  • Line Location: FILT+4
Function Call: WRITE
  • Prompt: !?15,"SERVICE CATEGORY (Hospitalizations, Ambulatory, Chart Reviews",!?33," Nursing Home, etc.)",!?15,"VISIT TYPE (IHS, Contract, Tribal, 638, Other, VA)",!
  • Line Location: FILT+5
Function Call: WRITE
  • Prompt: !,"The Age Groups to be used are currently defined as:",!
  • Line Location: BIN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RUN+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: AGE+7
Function Call: WRITE
  • Prompt: !,"Make sure the age is higher the beginning age of the previous group.",!
  • Line Location: AGE+7
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: GC+5
Function Call: WRITE
  • Prompt: !,$P(X,"-")," - ",$P(X,"-",2)
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"THIS REPORT SHOULD BE PRINTED ON 132 COLUMN PAPER OR ON A PRINTER THAT IS",!,"SET UP FOR CONDENSED PRINT!!!",!,"IF YOU DO NOT HAVE SUCH A PRINTER AVAILABLE - SEE YOUR SITE MANAGER.",!
  • Line Location: DEMO+3
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • FILT+6
    • POV+3
    • BIN+2
    • AGE+2
    • GC+1

Label References

Name Line Occurrences
AGE RUN+1
BD ED+2
BIN RUN+1, RUN+2
CLOSE RUN+2, GC+5
ED FILT+7
EXIT APCLADX+3, BD+2, DEMO+2, DEMO+6
FILT FILT+10, FILT+11, POV+4
LIST BIN+1, RUN+3
POV FILT+8, BIN+3
RUN AGE+7
SET AGE+6
SETBIN BIN
ZIS BIN+4, RUN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LIST+1*, LIST+2, EXIT+1!
A EXIT+1!
APCL132 EXIT+3!
APCLA RUN+1*, AGE+6, SET*, GC+4, EXIT+3!
APCLALL POV+1!, POV+5*, EXIT+2!
APCLBD BD+3*, ED+1, ED+4, EXIT+1!
APCLBDD EXIT+3!
APCLBIN GC+4*, LIST+1, SETBIN+1*, EXIT+3!
APCLBT EXIT+4!
APCLC EXIT+1!
APCLCATP EXIT+1!
APCLCLN FILT+2!, EXIT+1!
APCLCLNP EXIT+1!
APCLCODE EXIT+3!
>> APCLDEMO DEMO+1, DEMO+2
APCLDOB EXIT+3!
APCLDOB1 FILT+2!
APCLDOB2 FILT+2!
APCLDOBS EXIT+3!
APCLED ED+3*, EXIT+1!
APCLEDD EXIT+3!
APCLF2 EXIT+3!
APCLFAC FILT+2!, EXIT+1!
APCLFACP EXIT+3!
APCLFOUN EXIT+3!
APCLGRAN EXIT+4!
APCLJOB EXIT+1!
APCLLINO EXIT+2!
APCLLOCP EXIT+1!
APCLNARR EXIT+1!
APCLNN EXIT+3!
APCLODAT EXIT+3!
APCLPG EXIT+3!
APCLPOV EXIT+2!
APCLPOVN EXIT+2!
APCLPREC EXIT+1!
APCLPRIM POV+1!, POV+6*, EXIT+2!
APCLPROV FILT+2!, EXIT+2!
APCLPRVP EXIT+3!
APCLQUIT FILT+1*, FILT+11*, RUN+1!, RUN+2, AGE+3*, GC+2*, EXIT+2!
APCLSC FILT+2!, EXIT+1!
APCLSCP FILT+2!, EXIT+2!
APCLSD ED+4*, EXIT+1!
APCLSEX FILT+2!, EXIT+1!
APCLSEXP EXIT+3!
APCLTAB EXIT+3!
APCLTOT EXIT+2!
APCLTYPE FILT+2!, EXIT+1!
APCLTYPP FILT+2!, EXIT+2!
APCLV EXIT+2!
APCLVDFN EXIT+3!
APCLVSIT EXIT+2!
APCLVTOT EXIT+2!
>> APCLX RUN+1, AGE+1*, AGE+4*, AGE+6, SET, SET+1, SET+2, GC+3*, GC+4
>> APCLY RUN+1*, AGE+2, SET+1*, SET+2*, CLOSE, GC+4*
APCLZ EXIT+3!
B EXIT+1!
C EXIT+1!
DIC EXIT+1!
DIR BD+1!, ED+1!, FILT+6!, POV+3!, BIN+2!, AGE+2!, GC+1!, EXIT+1!
DIR("?" FILT+6*, POV+3*
DIR("A" BD+1*, ED+1*, FILT+6*, POV+2*, BIN+2*, AGE+2*, GC+1*
DIR("B" FILT+6*
DIR(0 BD+1*, ED+1*, FILT+6*, POV+2*, BIN+2*, AGE+2*, GC+1*
>> DIRUT BD+1*, BD+2, ED+1*, ED+2, FILT+6*, FILT+7, FILT+10, POV+4, BIN+3, AGE+2*
, GC+1*
>> DTOUT AGE+3, GC+2
>> DUOUT BD+1, ED+1, FILT+6, AGE+2, AGE+3, GC+1, GC+2
E EXIT+1!
F EXIT+1!
G EXIT+1!
I LIST+2*, EXIT+2!
J EXIT+1!
K EXIT+1!
L EXIT+2!
M EXIT+1!
S EXIT+1!
X ED+4, LIST+2*, EXIT+1!
>> X1 ED+4*
>> X2 ED+4*
>> XBNS DEMO+4*
>> XBRC DEMO+4*
>> XBRP DEMO+4*
>> XBRX DEMO+4*
Y BD+3, ED+1*, ED+3, FILT+8, POV+5, POV+6, BIN+4, AGE+4, AGE+5, GC+3
, EXIT+1!
Z EXIT+1!
ZTQUEUED EXIT+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All