APCLACGM ;IHS/CMI/LAB - A/C monthly report; [ 12/9/2009 19:39 PM ]
Source file <APCLACGM.m>
Package | Total | Call Graph |
---|---|---|
Patient Care Component Reports | 4 | $$LASTLAB^APCLAPIU $$START1^APCLDF DONE^APCLOSUT $$VD^APCLV |
VA Fileman | 3 | DD^%DT (COMMA,NOW)^%DTC ^DIR |
Kernel | 2 | $$FMTE^XLFDT $$STRIP^XLFSTR |
IHS Patient | 1 | ($$DOB,$$HRN)^AUPNPAT |
IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
Patient Care Component | 1 | $$D1^APCHSMU |
Package | Total | Caller Graph |
---|---|---|
Patient Care Component Reports | 2 | APCLACG APCLACG1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
PER(N,D) | ;return % of n/d
|
|
LIST5 | ;all patient in ^TMP($J,"PATIENTS"
|
|
LIST4 | ;all patient in ^TMP($J,"PATIENTS"
|
|
LIST1 | ;all patient in ^TMP($J,"PATIENTS"
|
|
LIST3 | ;all patient in ^TMP($J,"PATIENTS"
|
|
LIST2 | ;all patient in ^TMP($J,"PATIENTS"
|
|
USR() | ;EP - Return name of current user from ^VA(200.
|
|
EOP | ;EP - End of page.
|
|
DONE | ;
|
|
SUBHEAD1 | ;
|
|
SUBHEAD2 | ;
|
|
SUBHEAD3 | ;
|
|
;
|
||
LOC() | ;EP - Return location name from file 4 based on DUZ(2).
|
|
CTR(X,Y) | ;EP - Center X in a field Y wide.
|
|
INRGOAL(P,A) | ;EP - inr goal documented on or before this date
|
|
MONT | ;
|
|
HEAD | ||
MRGOAL(P) | ;PEP - most recent INR goal and date
|
|
VITK | ;
|
|
LASTINR(P,BD,ED) | ;EP
|
|
C(X,X2,X3) | ;
|
|
HEAD1 | ;
|
|
RPTPOP | ;report population
|
|
LISTS | ;
|
Name | Field # of Occurrence |
---|---|
DD^%DT | PRINT+2 |
COMMA^%DTC | C+2 |
NOW^%DTC | PRINT+2 |
$$D1^APCHSMU | RPTPOP+32, RPTPOP+36, VITK+10, VITK+13, VITK+16, LIST1+7, LIST1+10, LIST2+7, LIST2+10, LIST3+7 , LIST3+10, LIST4+7, LIST4+10, LIST5+7, LIST5+10 |
$$LASTLAB^APCLAPIU | LASTINR+2 |
$$START1^APCLDF | RPTPOP+40, VITK+18 |
DONE^APCLOSUT | APCLACGM+7 |
$$VD^APCLV | MRGOAL+13 |
$$DOB^AUPNPAT | RPTPOP+32, VITK+10, LIST1+7, LIST2+7, LIST3+7, LIST4+7, LIST5+7 |
$$HRN^AUPNPAT | RPTPOP+32, VITK+10, LIST1+7, LIST2+7, LIST3+7, LIST4+7, LIST5+7 |
^DIR | HEAD+1, EOP+5 |
$$VAL^XBDIQ1 | MRGOAL+12, INRGOAL+14 |
$$FMTE^XLFDT | PRINT+8, PRINT+13, RPTPOP+13, HEAD1+2 |
$$STRIP^XLFSTR | C+3, PER+4 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ATXAX("B" | LASTINR+2 |
^ATXLAB("B" | LASTINR+2 |
^AUPNVACG - [#9000010.51] | MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRGOAL+13, INRGOAL+8, INRGOAL+9, INRGOAL+12, INRGOAL+13 |
^AUPNVACG("AA" | MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7, INRGOAL+2, INRGOAL+5, INRGOAL+6, INRGOAL+7 |
^DIBT( | RPTPOP+6 |
^DIC(4 - [#4] | LOC+1 |
^DIC(40.7 - [#40.7] | RPTPOP+5 |
^DPT - [#2] | RPTPOP+32, VITK+10, LIST1+7, LIST2+7, LIST3+7, LIST4+7, LIST5+7 |
^VA(200 - [#200] | USR+1 |
^XTMP("APCLACG" | APCLACGM+5!, RPTPOP+30, RPTPOP+33, RPTPOP+34, RPTPOP+35, VITK+8, VITK+16, LIST1+4, LIST1+5, LIST2+4 , LIST2+5, LIST3+4, LIST3+5, LIST4+4, LIST4+5, LIST5+4, LIST5+5 |
Name | Line Occurrences |
---|---|
$$C | PRINT+10, PRINT+13, PRINT+15, RPTPOP+9, RPTPOP+13, RPTPOP+16, RPTPOP+21, RPTPOP+26, VITK+4, MONT+5 , MONT+10, MONT+15, MONT+20, MONT+25, MONT+30 |
$$CTR | HEAD1+3, HEAD1+4, HEAD1+5 |
$$INRGOAL | RPTPOP+36, VITK+11, LIST1+8, LIST2+8, LIST3+8, LIST4+8, LIST5+8 |
$$LASTINR | VITK+12, LIST1+9, LIST2+9, LIST3+9, LIST4+9, LIST5+9 |
$$LOC | HEAD1+3 |
$$PER | PRINT+13, PRINT+15, RPTPOP+13, RPTPOP+16, RPTPOP+21, RPTPOP+26, VITK+4, MONT+5, MONT+10, MONT+15 , MONT+20, MONT+25, MONT+30 |
DONE | LISTS+1, LISTS+3, LISTS+5, LISTS+7, LISTS+9 |
HEAD | PRINT+5, PRINT+16, RPTPOP+10, RPTPOP+14, RPTPOP+17, RPTPOP+22, RPTPOP+27, RPTPOP+31, RPTPOP+38, VITK+1 , VITK+5, VITK+9, VITK+15, MONT+1, MONT+6, MONT+11, MONT+16, MONT+21, MONT+26, LIST1+2 , LIST1+6, LIST2+2, LIST2+6, LIST3+2, LIST3+6, LIST4+2, LIST4+6, LIST5+2, LIST5+6 |
HEAD1 | HEAD |
LIST1 | LISTS+2 |
LIST2 | LISTS+4 |
LIST3 | LISTS+6 |
LIST4 | LISTS+8 |
LIST5 | LISTS+10 |
APCLACGM+4 | |
SUBHEAD1 | RPTPOP+29, RPTPOP+31, RPTPOP+38 |
SUBHEAD2 | VITK+7, VITK+9, VITK+15 |
SUBHEAD3 | LIST1+6, LIST2+6, LIST3+6, LIST4+6, LIST5+6, HEAD1+7 |
Name | Field # of Occurrence |
---|---|
^(0 | USR+1, LOC+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | RPTPOP+40*, VITK+18* |
A | INRGOAL~, INRGOAL+11 |
>> APCL80S | PRINT+1*, SUBHEAD2+2, SUBHEAD1+2, SUBHEAD3+2, HEAD1+6 |
>> APCLACCR( | RPTPOP+5 |
>> APCLAP | PRINT+3* |
>> APCLBD | PRINT+8, RPTPOP+40, VITK+12, VITK+18, LIST1+9, LIST2+9, LIST3+9, LIST4+9, LIST5+9 |
APCLBTH | APCLACGM+5, APCLACGM+6!, RPTPOP+30, RPTPOP+33, RPTPOP+34, RPTPOP+35, VITK+8, VITK+16, LIST1+4, LIST1+5 , LIST2+4, LIST2+5, LIST3+4, LIST3+5, LIST4+4, LIST4+5, LIST5+4, LIST5+5 |
APCLD | RPTPOP+39!, VITK+17! |
APCLD( | RPTPOP+42, VITK+20 |
>> APCLDT | PRINT+2* |
>> APCLED | PRINT+8, PRINT+13, RPTPOP+13, RPTPOP+36, RPTPOP+40, VITK+11, VITK+12, VITK+18, LIST1+8, LIST1+9 , LIST2+8, LIST2+9, LIST3+8, LIST3+9, LIST4+8, LIST4+9, LIST5+8, LIST5+9 |
>> APCLGRP | RPTPOP+3, RPTPOP+4, RPTPOP+6, RPTPOP+7, RPTPOP+8 |
>> APCLI | RPTPOP+34*, RPTPOP+35 |
>> APCLICP | RPTPOP+7, RPTPOP+8 |
APCLJOB | APCLACGM+5, APCLACGM+6!, RPTPOP+30, RPTPOP+33, RPTPOP+34, RPTPOP+35, VITK+8, VITK+16, LIST1+4, LIST1+5 , LIST2+4, LIST2+5, LIST3+4, LIST3+5, LIST4+4, LIST4+5, LIST5+4, LIST5+5 |
>> APCLL | VITK+12*, VITK+13, LIST1+9*, LIST1+10, LIST2+9*, LIST2+10, LIST3+9*, LIST3+10, LIST4+9*, LIST4+10 , LIST5+9*, LIST5+10 |
>> APCLLIST | LISTS+1 |
>> APCLLIST(1 | LISTS+2 |
>> APCLLIST(2 | LISTS+4 |
>> APCLLIST(3 | LISTS+6 |
>> APCLLIST(4 | LISTS+8 |
>> APCLLIST(5 | LISTS+10 |
>> APCLPG | PRINT+3*, HEAD, HEAD1+1*, HEAD1+2 |
APCLQUIT | PRINT+4!, PRINT+16, RPTPOP+10, RPTPOP+14, RPTPOP+17, RPTPOP+22, RPTPOP+27, RPTPOP+30, RPTPOP+31, RPTPOP+33 , RPTPOP+34, RPTPOP+38, VITK+1, VITK+5, VITK+8, VITK+9, VITK+15, MONT+1, MONT+6, MONT+11 , MONT+16, MONT+21, MONT+26, LISTS+3, LISTS+5, LISTS+7, LISTS+9, LISTS+11, LIST1+3, LIST1+5 , LIST1+6, LIST2+3, LIST2+5, LIST2+6, LIST3+3, LIST3+5, LIST3+6, LIST4+3, LIST4+5, LIST4+6 , LIST5+3, LIST5+5, LIST5+6, HEAD+1* |
>> APCLR | RPTPOP+35*, RPTPOP+36 |
>> APCLRPI9 | RPTPOP+26 |
>> APCLRPIN | RPTPOP+21, RPTPOP+26 |
>> APCLRPMI | MONT+5 |
>> APCLRPMN | MONT+15 |
>> APCLRPMU | MONT+25 |
>> APCLRPNI | MONT+10 |
>> APCLRPNN | MONT+20 |
>> APCLRPNU | MONT+30 |
>> APCLRPOP | RPTPOP+9, RPTPOP+13 |
>> APCLRPVK | VITK+4 |
>> APCLRPWA | RPTPOP+16 |
>> APCLRPWR | RPTPOP+13, RPTPOP+16, RPTPOP+21, VITK+4, MONT+5, MONT+10, MONT+15, MONT+20, MONT+25, MONT+30 |
>> APCLSHD | PRINT+7*, LIST1+1*, LIST2+1*, LIST3+1*, LIST4+1*, LIST5+1*, HEAD1+5, HEAD1+7 |
>> APCLSTMP | RPTPOP+6 |
>> APCLUPAC | PRINT+15 |
>> APCLUPOP | PRINT+10, PRINT+13 |
>> APCLUPWR | PRINT+13, PRINT+15 |
APCLVAL | LASTINR+1~, LASTINR+2*, LASTINR+3 |
>> APCLVD | RPTPOP+33*, RPTPOP+34, RPTPOP+35, RPTPOP+36 |
BD | LASTINR~, LASTINR+2 |
D | MRGOAL+3~, MRGOAL+5*, MRGOAL+6, MRGOAL+7, INRGOAL+3~, INRGOAL+5*, INRGOAL+6, INRGOAL+7, PER~, PER+1 , PER+3 |
>> DFN | RPTPOP+30*, RPTPOP+32, RPTPOP+33, RPTPOP+34, RPTPOP+35, RPTPOP+36, RPTPOP+40, VITK+8*, VITK+10, VITK+11 , VITK+12, VITK+16, VITK+18, LIST1+5*, LIST1+7, LIST1+8, LIST1+9, LIST2+5*, LIST2+7, LIST2+8 , LIST2+9, LIST3+5*, LIST3+7, LIST3+8, LIST3+9, LIST4+5*, LIST4+7, LIST4+8, LIST4+9, LIST5+5* , LIST5+7, LIST5+8, LIST5+9 |
DFOUT | EOP+4! |
DIR | HEAD+1!, EOP+3~ |
DIR(0 | HEAD+1*, EOP+5* |
DIRUT | EOP+4! |
DLOUT | EOP+4! |
DT | HEAD1+2 |
DTOUT | HEAD+1, EOP+4! |
DUOUT | EOP+4! |
DUZ | USR+1 |
DUZ(2 | RPTPOP+32, VITK+10, LIST1+7, LIST2+7, LIST3+7, LIST4+7, LIST5+7, LOC+1 |
>> E | RPTPOP+40*, VITK+18* |
ED | LASTINR~, LASTINR+2 |
I | MRGOAL+3~, MRGOAL+7*, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRGOAL+12, MRGOAL+13, INRGOAL+3~, INRGOAL+7* , INRGOAL+8, INRGOAL+9, INRGOAL+12, INRGOAL+13, INRGOAL+14 |
IO | HEAD+1 |
IO("S" | EOP+2 |
IO(0 | HEAD+1 |
IOF | HEAD1+1 |
IOM | CTR+1 |
IOSL | PRINT+16, RPTPOP+10, RPTPOP+14, RPTPOP+17, RPTPOP+22, RPTPOP+27, RPTPOP+31, RPTPOP+38, VITK+1, VITK+5 , VITK+9, VITK+15, MONT+1, MONT+6, MONT+11, MONT+16, MONT+21, MONT+26, LIST1+6, LIST2+6 , LIST3+6, LIST4+6, LIST5+6 |
IOST | HEAD+1, EOP+1 |
>> IOT | EOP+2 |
J | INRGOAL+3~, INRGOAL+10*, INRGOAL+11 |
N | PER~, PER+3 |
P | LASTINR~, LASTINR+2, MRGOAL~, MRGOAL+1, MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7, INRGOAL~, INRGOAL+1 , INRGOAL+2, INRGOAL+5, INRGOAL+6, INRGOAL+7 |
R | MRGOAL+3~, MRGOAL+4*, MRGOAL+5, MRGOAL+6, MRGOAL+13*, MRGOAL+14, INRGOAL+3~, INRGOAL+4*, INRGOAL+5, INRGOAL+6 , INRGOAL+15*, INRGOAL+16 |
S | MRGOAL+3~, MRGOAL+11*, MRGOAL+12*, MRGOAL+13, INRGOAL+3~, INRGOAL+13*, INRGOAL+14*, INRGOAL+15 |
U | RPTPOP+5, RPTPOP+6, RPTPOP+7, RPTPOP+8, RPTPOP+32, RPTPOP+36, RPTPOP+42, VITK+10, VITK+11, VITK+13 , VITK+20, LIST1+7, LIST1+8, LIST1+10, LIST2+7, LIST2+8, LIST2+10, LIST3+7, LIST3+8, LIST3+10 , LIST4+7, LIST4+8, LIST4+10, LIST5+7, LIST5+8, LIST5+10, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11 , MRGOAL+13, INRGOAL+8, INRGOAL+9, INRGOAL+12, INRGOAL+13, USR+1, LOC+1 |
X | PRINT+2, RPTPOP+5*, RPTPOP+42*, VITK+20*, MRGOAL+3~, MRGOAL+6*, MRGOAL+7, INRGOAL+3~, INRGOAL+6*, INRGOAL+7 , INRGOAL+10, C~, C+3, CTR~, CTR+1 |
X2 | C~ |
X3 | C~, C+1* |
Y | PRINT+2*, MRGOAL+3~, INRGOAL+3~, HEAD+1, CTR~, CTR+1 |
Z | MRGOAL+3~, MRGOAL+10*, MRGOAL+11, MRGOAL+12, INRGOAL+3~, INRGOAL+12*, INRGOAL+13, INRGOAL+14, PER+2~, PER+3* , PER+4 |
>> ZTQUEUED | EOP+2 |