BPCDBS1 ; IHS/OIT/MJL - DIABETIC CARE SUMMARY SUPPLEMENT ;
Source file <BPCDBS1.m>
Package | Total | Call Graph |
---|---|---|
IHS Patient | 1 | ($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT |
Kernel | 1 | $$FMTE^XLFDT |
Patient Care Component Reports | 1 | $$START1^APCLDF |
VA Fileman | 1 | ^DIR |
Name | Comments | DBIA/ICR reference |
---|---|---|
TOBACCO | ;EP
|
|
EOJ | ;
|
|
S1 | ;
|
|
BREAST(P,APCHSED) | ;
|
|
DFE(P,APCHSED) | ;
|
|
SETARRAY | ;set up array containing dm care summary
|
|
HTN(P) | ;
|
|
GETHWB(P) | ||
LASTHT | ;
|
|
BMI | ;
|
|
RECTAL(P,APCHSED) | ;
|
|
LASTWT | ;
|
|
PAP(P,APCHSED) | ;
|
|
MAMMOG(P) | ;
|
|
S(Y,F,C,T) | ;set up array
|
|
HEADER | ;
|
|
DOO(P) | ;get first dm dx from case management
|
|
W | ;write out array
|
|
EYE(P,APCHSED) | ;
|
|
EP | ;EP - called from component
|
|
HEAD1 | ;
|
|
BP(P) | ;last 3 BPs
|
|
EP2(APCHSDFN) | ;EP - PASS DFN get back array of patient care summary
|
|
M12 | ;
|
|
TOBACCO3 | ;lookup in health status
|
|
TOBACCO2 | ;check pov file for TOBACCO USE DOC
|
|
TOBACCO1 | ;check problem file for tobacco use
|
|
TOBACCO0 | ;check for tobacco documented in health factors
|
|
DENTAL(P,APCHSED) | ;
|
Name | Field # of Occurrence |
---|---|
$$START1^APCLDF | HTN+3, BP+3, DOO+3, LASTHT+4, LASTWT+1, TOBACCO0+1, TOBACCO1+1, TOBACCO2+1, DFE+1, EYE+1 , DENTAL+1, RECTAL+2, PAP+2, BREAST+2 |
$$AGE^AUPNPAT | SETARRAY+4, RECTAL+1 |
$$DOB^AUPNPAT | M12+13 |
$$HRN^AUPNPAT | M12+13 |
$$SEX^AUPNPAT | SETARRAY+4, PAP+1, BREAST+1, MAMMOG+1 |
^DIR | EP+2, HEADER+1 |
$$FMTE^XLFDT | SETARRAY+3, SETARRAY+10, SETARRAY+12, SETARRAY+14, DOO+4, LASTHT+4, LASTWT+1, DFE+3, DFE+4, EYE+3 , EYE+4, DENTAL+4, DENTAL+5, RECTAL+4, RECTAL+5, PAP+4, PAP+5, BREAST+4, BREAST+5, MAMMOG+11 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | SETARRAY+2 |
^ATXAX - [#9002226] | TOBACCO3+3 |
^ATXAX("B" | TOBACCO3+1 |
^AUPNHF("AA" | TOBACCO3+3 |
^AUPNPROB - [#9000011] | DOO+3, TOBACCO1+2, TOBACCO1+3 |
^AUPNVMSR("AC" | LASTHT+2 |
^AUPNVPOV - [#9000010.07] | TOBACCO2+2, TOBACCO2+3 |
^AUPNVRAD - [#9000010.22] | MAMMOG+7, MAMMOG+9 |
^AUPNVRAD("AC" | MAMMOG+5, MAMMOG+6 |
^AUPNVSIT("AC" | LASTHT+1 |
^AUTNPOV - [#9999999.27] | TOBACCO1+2, TOBACCO1+3, TOBACCO2+2, TOBACCO2+3 |
^AUTTHF - [#9999999.64] | TOBACCO3+5 |
^DPT - [#2] | M12+13 |
^ICD9 - [#80] | TOBACCO1+2 |
^RAMIS(71 - [#71] | MAMMOG+8 |
^TMP("APCHS" | W+3, W+5, EP2+2!, EP2+3*, S1+1*, S1+2* |
Name | Line Occurrences |
---|---|
$$BP | SETARRAY+9 |
$$BREAST | M12+10 |
$$DENTAL | M12+6 |
$$DFE | M12+4 |
$$DOO | SETARRAY+4 |
$$EYE | M12+5 |
$$HTN | SETARRAY+8 |
$$MAMMOG | M12+11 |
$$PAP | M12+9 |
$$RECTAL | M12+7 |
EOJ | W+8 |
EP2 | EP+4 |
GETHWB | SETARRAY+5 |
HEADER | W+4 |
S | SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+8, SETARRAY+11, SETARRAY+13, SETARRAY+15, M12+3, M12+4 , M12+5, M12+6, M12+7, M12+8, M12+9, M12+10, M12+11, M12+13, M12+14 |
S1 | S+4, S+6, S+9 |
SETARRAY | EP2+4 |
TOBACCO | SETARRAY+7 |
TOBACCO0 | TOBACCO+4 |
TOBACCO1 | TOBACCO+6 |
TOBACCO2 | TOBACCO+8 |
TOBACCO3 | TOBACCO+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | EOJ+2!, S+7*, S+8*, S1+1*, S1+2, LASTHT+4*, LASTWT+1*, BMI+2*, BMI+3*, BMI+4 , TOBACCO3+1*, TOBACCO3+2, TOBACCO3+3, DFE+1*, EYE+1*, DENTAL+1*, RECTAL+2*, PAP+2*, BREAST+2* |
APCH | TOBACCO0+1!, TOBACCO1+1!, TOBACCO2+1! |
APCH(1 | TOBACCO0+1, TOBACCO0+2, TOBACCO0+3, TOBACCO1+1, TOBACCO1+2, TOBACCO1+3, TOBACCO2+1, TOBACCO2+2, TOBACCO2+3 |
APCHQUIT | W+2!, W+3, W+4, W+7, EOJ+1!, HEADER+1* |
APCHSBEG | EOJ+1!, M12+2*, M12+4, M12+5, M12+6, M12+7, M12+9, M12+10 |
APCHSDFN | EOJ+1!, EP2~, SETARRAY+4, SETARRAY+5, SETARRAY+8, SETARRAY+9, M12+4, M12+5, M12+6, M12+7 , M12+9, M12+10, M12+11, M12+13, TOBACCO0+1, TOBACCO3+3, TOBACCO1+1, TOBACCO2+1 |
APCHSED | EOJ+1!, DFE~, DFE+3, EYE~, EYE+3, DENTAL~, DENTAL+4, RECTAL~, RECTAL+4, PAP~ , PAP+4, BREAST~, BREAST+4 |
>> APCHSPAT | EP+1, EP+4 |
>> APCHSQIT | EP+3*, W+7* |
APCHSTOB | EOJ+1! |
APCHSUPI | EOJ+1! |
APCHTOB | EOJ+1!, SETARRAY+8, TOBACCO+1!, TOBACCO+3, TOBACCO+5, TOBACCO+7, TOBACCO+9, TOBACCO+10*, TOBACCO0+1*, TOBACCO0+2* , TOBACCO0+3*, TOBACCO0+4*, TOBACCO3+6*, TOBACCO3+7*, TOBACCO3+8*, TOBACCO3+9*, TOBACCO1+1*, TOBACCO1+2*, TOBACCO1+3*, TOBACCO2+1* , TOBACCO2+2*, TOBACCO2+3* |
APCHTOB( | TOBACCO0+1, TOBACCO1+1, TOBACCO2+1 |
APCHTOB("" | TOBACCO0+1, TOBACCO1+1, TOBACCO2+1 |
APCHTOBN | EOJ+1!, TOBACCO0+1*, TOBACCO1+1*, TOBACCO2+1* |
APCHX | W+3*, W+5, EOJ+1!, HTN+1~, HTN+2*, HTN+3*, HTN+4*, HTN+5, BP+1!, BP+2* , BP+4, BP+5, DOO+1~, DOO+2*, DOO+3*, DOO+4*, DOO+5, GETHWB+1!, TOBACCO0+1*, TOBACCO1+1* , TOBACCO2+1*, DFE+3*, EYE+3*, DENTAL+4*, RECTAL+4*, PAP+4*, BREAST+4* |
APCHX("BMI" | SETARRAY+5, GETHWB+2*, BMI+4* |
APCHX("HT" | SETARRAY+5, GETHWB+2*, LASTHT+4*, LASTHT+5*, BMI+1, BMI+3 |
APCHX("HTD" | SETARRAY+5, GETHWB+2*, LASTHT+4* |
APCHX("WT" | SETARRAY+6, GETHWB+2*, LASTWT+1*, BMI+1, BMI+3 |
APCHX("WTD" | SETARRAY+6, GETHWB+2*, LASTWT+1* |
APCHX(1 | SETARRAY+10, HTN+3, BP+4*, DOO+3 |
APCHX(2 | SETARRAY+12 |
APCHX(3 | SETARRAY+14 |
APCHY | EOJ+1!, LASTHT+3~, LASTWT+1!, DFE+1~, DFE+2, EYE+1~, EYE+2, DENTAL+1~, DENTAL+3, RECTAL+2~ , RECTAL+3, PAP+2~, PAP+3, BREAST+2~, BREAST+3 |
APCHY(1 | LASTHT+4, LASTWT+1, DFE+3, DFE+4, EYE+3, EYE+4, DENTAL+4, DENTAL+5, RECTAL+4, RECTAL+5 , PAP+4, PAP+5, BREAST+4, BREAST+5, MAMMOG+6*, MAMMOG+9*, MAMMOG+10, MAMMOG+11 |
B | EOJ+2!, SETARRAY+9* |
>> BPCPROC | MAMMOG+8*, MAMMOG+9 |
>> BPCRIEN | MAMMOG+6*, MAMMOG+7, MAMMOG+9 |
>> BPCRP | MAMMOG+7*, MAMMOG+8 |
C | EOJ+2!, S~, S+6 |
DIR | HEADER+1! |
DIR(0 | EP+2*, HEADER+1* |
>> DIRUT | EP+3 |
DT | SETARRAY+3, M12+2 |
>> DTOUT | HEADER+1 |
DUZ(2 | M12+13 |
E | EOJ+2!, HTN+3*, BP+3*, DOO+3*, LASTHT+4*, LASTWT+1*, TOBACCO0+1*, TOBACCO1+1*, TOBACCO2+1*, DFE+1* , EYE+1*, DENTAL+1*, DENTAL+2, RECTAL+2*, PAP+2*, BREAST+2* |
F | EOJ+2!, S~, S+1*, S+4* |
H | EOJ+2!, BMI+3* |
IO | HEADER+1 |
IO(0 | HEADER+1 |
IOF | W+1, HEAD1+1 |
IOSL | W+4 |
IOST | EP+2, HEADER+1 |
L | EOJ+2!, S+6* |
N | EOJ+2! |
P | EOJ+2!, HTN~, HTN+3, BP~, BP+3, DOO~, DOO+3, GETHWB~, LASTHT+1, LASTHT+2 , LASTHT+4, LASTWT+1, DFE~, DFE+1, EYE~, EYE+1, DENTAL~, DENTAL+1, RECTAL~, RECTAL+1 , RECTAL+2, PAP~, PAP+1, PAP+2, BREAST~, BREAST+1, BREAST+2, MAMMOG~, MAMMOG+1, MAMMOG+5 , MAMMOG+6 |
T | EOJ+2!, S~, S+2*, S+6*, S+7, S+8 |
U | SETARRAY+10, SETARRAY+12, SETARRAY+14, M12+13, S1+1, DOO+3, LASTHT+4, LASTWT+1, TOBACCO0+2, TOBACCO0+3 , TOBACCO3+5, TOBACCO1+2, TOBACCO1+3, TOBACCO2+2, TOBACCO2+3, DFE+3, DFE+4, EYE+3, EYE+4, DENTAL+4 , DENTAL+5, RECTAL+4, RECTAL+5, PAP+4, PAP+5, BREAST+4, BREAST+5, MAMMOG+7, MAMMOG+8, MAMMOG+9 , MAMMOG+11 |
W | EOJ+2!, BMI+3* |
X | EOJ+2!, SETARRAY+2*, SETARRAY+3*, SETARRAY+4*, SETARRAY+5*, SETARRAY+6*, SETARRAY+8*, SETARRAY+10*, SETARRAY+11, SETARRAY+12* , SETARRAY+13, SETARRAY+14*, SETARRAY+15, M12+3*, M12+4*, M12+5*, M12+6*, M12+7*, M12+8*, M12+9* , M12+10*, M12+11*, M12+13*, M12+14*, S+4*, S+5*, S+7*, S+8*, S1+2, HTN+1~ , HTN+3*, BP+3*, DOO+1~, DOO+3*, LASTHT+4~, LASTWT+1~, TOBACCO3+3* |
Y | EOJ+2!, HEADER+1, S~, S+5, S+6, S+8, TOBACCO3+3*, TOBACCO3+4, TOBACCO3+5*, TOBACCO3+6 , TOBACCO3+7, TOBACCO3+8 |