BDMEDMU2 ; IHS/CMI/LAB - EDITS FOR AUPNVSIT (VISIT:9000010) 24-MAY-1993 ;
Source file <BDMEDMU2.m>
Package | Total | Call Graph |
---|---|---|
Patient Care Component | 2 | ^APCDALV ^APCDALVR |
Diabetes Registry | 1 | (ERR,EVSIT)^BDMEDMUP |
IHS VA Utilities | 1 | ^XBFMK |
Kernel | 1 | $$FMTE^XLFDT |
Name | Comments | DBIA/ICR reference |
---|---|---|
MED | ;EP
|
|
BI() | ;EP- check to see if using new imm package or not 1/5/1999 IHS/CMI/LAB
|
|
ENDS(A) | ;EP - called from screen
|
|
TBHF | ;EP
|
|
PPD | ;EP
|
|
EKG | ;EP
|
|
EDUC1 | ;
|
|
EVSIT | ;get/create event visit
|
|
LAB | ;EP
|
|
TBF(A) | ;EP - called from screen
|
|
LAB1 | ;
|
|
MED1 | ;
|
|
BP | ;EP
|
|
ENDSHF | ;EP
|
|
SG(A) | ;EP - called from dd
|
|
SGHF | ;EP
|
|
EDUC | ;EP - add v educ to pcc
|
|
SMK(A) | ;EP - called from screen on TOBACCO USE
|
Name | Field # of Occurrence |
---|---|
^APCDALV | EVSIT+9 |
^APCDALVR | PPD+16, EKG+16, LAB1+16, EDUC1+26, MED1+16, BP+16, SGHF+15, TBHF+15, ENDSHF+15 |
ERR^BDMEDMUP | PPD+7, PPD+9, PPD+17, EKG+7, EKG+9, EKG+17, LAB1+6, LAB1+8, LAB1+17, EDUC1+6 , EDUC1+8, EDUC1+27, MED1+6, MED1+8, MED1+17, BP+7, BP+9, BP+17, SGHF+7, SGHF+9 , SGHF+16, TBHF+7, TBHF+9, TBHF+16, ENDSHF+7, ENDSHF+9, ENDSHF+16 |
EVSIT^BDMEDMUP | PPD+6, EKG+6, LAB1+5, EDUC1+5, MED1+5, BP+6, SGHF+6, TBHF+6, ENDSHF+6 |
^XBFMK | LAB+3, EDUC+3, MED+3, SGHF+28, TBHF+27, ENDSHF+18 |
$$FMTE^XLFDT | PPD+9, EKG+9, LAB1+8, EDUC1+8, MED1+8, BP+9, SGHF+9, TBHF+9, ENDSHF+9 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^APCCCTRL - [#9001000] | EVSIT+7 |
^AUPNVDXP - [#9000010.21] | EKG+8 |
^AUPNVDXP("AD" | EKG+8 |
^AUPNVHF - [#9000010.23] | SGHF+8, TBHF+8, ENDSHF+8 |
^AUPNVHF("AD" | SGHF+8, TBHF+8, ENDSHF+8 |
^AUPNVLAB - [#9000010.09] | LAB1+7 |
^AUPNVLAB("AD" | LAB1+7 |
^AUPNVMED - [#9000010.14] | MED1+7 |
^AUPNVMED("AD" | MED1+7 |
^AUPNVMSR - [#9000010.01] | BP+8 |
^AUPNVMSR("AD" | BP+8 |
^AUPNVPED - [#9000010.16] | EDUC1+7 |
^AUPNVPED("AD" | EDUC1+7 |
^AUPNVSIT - [#9000010] | PPD+9, EKG+9, LAB1+8, EDUC1+8, MED1+8, BP+9, SGHF+9, TBHF+9, ENDSHF+9 |
^AUPNVSK - [#9000010.12] | PPD+8 |
^AUPNVSK("AD" | PPD+8 |
^AUTTDXPR("B" | EKG+4 |
^AUTTEDT - [#9999999.09] | EDUC1+8 |
^AUTTHF - [#9999999.64] | TBF+1, TBF+2, TBF+3, TBF+5, ENDS+1, ENDS+2, ENDS+3, ENDS+5, SMK+1, SMK+2 , SMK+3, SMK+9, SMK+10, SMK+11, SMK+12, SG+1, SG+2, SG+3, SG+5, SGHF+5 , SGHF+9, TBHF+5, TBHF+9, ENDSHF+5, ENDSHF+9 |
^AUTTHF("B" | TBF+4, ENDS+4, SMK+5, SMK+6, SMK+7, SMK+8, SG+4 |
^AUTTIMM(0 | BI+1 |
^AUTTMSR("B" | BP+5 |
^AUTTSK("B" | PPD+5 |
^BDMEDMUP - [#9003203.2] | PPD+2, PPD+4, PPD+15, EKG+2, EKG+3, EKG+5, LAB+1, LAB+2, LAB1+1, LAB1+2 , LAB1+3, LAB1+4, LAB1+14, LAB1+15, EDUC+1, EDUC+2, EDUC1+1, EDUC1+2, EDUC1+3, EDUC1+4 , EDUC1+14, EDUC1+15, EDUC1+17, EDUC1+18, EDUC1+21, EDUC1+22, EDUC1+23, EDUC1+24, EDUC1+25, MED+1 , MED+2, MED1+1, MED1+2, MED1+3, MED1+4, MED1+14, MED1+15, SGHF+2, SGHF+4, SGHF+9 |
^DD(9000010.16 | EDUC1+15, EDUC1+16 |
^LAB(60 - [#60] | LAB1+8 |
^PSDRUG - [#50] | MED1+8 |
^VA(200 - [#200] | EDUC1+19 |
Name | Line Occurrences |
---|---|
EDUC1 | EDUC+2 |
LAB1 | LAB+2 |
MED1 | MED+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | TBF~, TBF+1, TBF+2, TBF+3, TBF+5, ENDS~, ENDS+1, ENDS+2, ENDS+3, ENDS+5 , SMK~, SMK+1, SMK+2, SMK+3, SMK+9, SMK+10, SMK+11, SMK+12, SG~, SG+1 , SG+2, SG+3, SG+5 |
APCDALVR | PPD+10!, PPD+18!, EKG+10!, EKG+18!, LAB+4!, LAB1+9!, LAB1+18!, EDUC+4!, EDUC1+9!, EDUC1+28! , MED+4!, MED1+9!, MED1+18!, BP+10!, BP+18!, EVSIT+2!, EVSIT+11!, SGHF+10!, SGHF+17!, TBHF+10! , TBHF+17!, ENDSHF+10!, ENDSHF+17! |
APCDALVR("APCDAFLG" | PPD+17, EKG+17, LAB1+17, EDUC1+27, MED1+17, BP+17, SGHF+16, TBHF+16, ENDSHF+16 |
APCDALVR("APCDATMP" | PPD+13*, EKG+13*, LAB1+12*, EDUC1+12*, MED1+12*, BP+13*, SGHF+13*, TBHF+13*, ENDSHF+13* |
APCDALVR("APCDAUTO" | EVSIT+3* |
APCDALVR("APCDCAT" | EVSIT+5* |
APCDALVR("APCDDATE" | EVSIT+8* |
APCDALVR("APCDLOC" | EVSIT+6* |
APCDALVR("APCDPAT" | PPD+11*, EKG+11*, LAB1+10*, EDUC1+10*, MED1+10*, BP+11*, EVSIT+4*, SGHF+11*, TBHF+11*, ENDSHF+11* |
APCDALVR("APCDTBC" | EDUC1+24* |
APCDALVR("APCDTDXR" | EKG+14* |
APCDALVR("APCDTHF" | SGHF+14*, TBHF+14*, ENDSHF+14* |
APCDALVR("APCDTIG" | EDUC1+21* |
APCDALVR("APCDTLAB" | LAB1+13* |
APCDALVR("APCDTLOU" | EDUC1+14* |
APCDALVR("APCDTMIN" | EDUC1+22* |
APCDALVR("APCDTOBJ" | EDUC1+23* |
APCDALVR("APCDTPRO" | EDUC1+15*, EDUC1+17*, EDUC1+20* |
APCDALVR("APCDTQTY" | MED1+14* |
APCDALVR("APCDTREA" | PPD+15* |
APCDALVR("APCDTRES" | LAB1+14* |
APCDALVR("APCDTRQ" | EKG+15* |
APCDALVR("APCDTRTL" | EDUC1+25* |
APCDALVR("APCDTRX" | MED1+13* |
APCDALVR("APCDTSIQ" | MED1+15* |
APCDALVR("APCDTSK" | PPD+14* |
APCDALVR("APCDTTOP" | EDUC1+13* |
APCDALVR("APCDTTYP" | BP+14* |
APCDALVR("APCDTUNI" | LAB1+15* |
APCDALVR("APCDTVAL" | BP+15* |
APCDALVR("APCDTYPE" | EVSIT+7* |
APCDALVR("APCDVSIT" | PPD+12*, EKG+12*, LAB1+11*, EDUC1+11*, MED1+11*, BP+12*, EVSIT+10, SGHF+12*, TBHF+12*, ENDSHF+12* |
B | TBF+4~*, TBF+5, ENDS+4~*, ENDS+5, SMK+4~, SMK+5*, SMK+9, SG+4~*, SG+5 |
>> BDMEDA | PPD+2, PPD+4, PPD+15, EKG+2, EKG+3, EKG+5, LAB+1, LAB+2, LAB1+1, LAB1+2 , LAB1+3, LAB1+4, LAB1+14, LAB1+15, EDUC+1, EDUC+2, EDUC1+1, EDUC1+2, EDUC1+3, EDUC1+4 , EDUC1+14, EDUC1+15, EDUC1+17, EDUC1+18, EDUC1+21, EDUC1+22, EDUC1+23, EDUC1+24, EDUC1+25, MED+1 , MED+2, MED1+1, MED1+2, MED1+3, MED1+4, MED1+14, MED1+15, SGHF+2, SGHF+4, SGHF+9 |
>> BDMEDMDT | PPD+4*, EKG+3*, LAB1+3*, EDUC1+3*, MED1+3*, BP+4*, EVSIT+8, SGHF+3*, TBHF+3*, ENDSHF+3* |
>> BDMEDMPT | PPD+11, EKG+11, LAB1+10, EDUC1+10, MED1+10, BP+11, EVSIT+4, SGHF+11, TBHF+11, ENDSHF+11 |
>> BDMEDMRE | EKG+5*, EKG+15 |
>> BDMEEDU | LAB+2*, LAB1+1, LAB1+2, LAB1+3, LAB1+4, LAB1+14, LAB1+15, EDUC+2*, EDUC1+1, EDUC1+2 , EDUC1+3, EDUC1+4, EDUC1+14, EDUC1+15, EDUC1+17, EDUC1+18, EDUC1+21, EDUC1+22, EDUC1+23, EDUC1+24 , EDUC1+25, MED+2*, MED1+1, MED1+2, MED1+3, MED1+4, MED1+14, MED1+15 |
>> BDMEMCAT | SGHF+5*, TBHF+5*, ENDSHF+5* |
>> BDMEMTYP | PPD+5*, PPD+8, PPD+14, EKG+4*, EKG+8, EKG+14, LAB1+4*, LAB1+7, LAB1+8, LAB1+13 , EDUC1+4*, EDUC1+7, EDUC1+8, EDUC1+13, MED1+4*, MED1+7, MED1+8, MED1+13, BP+5*, BP+8 , BP+14, SGHF+4*, SGHF+5, SGHF+8, SGHF+14, TBHF+4*, TBHF+5, TBHF+8, TBHF+14, ENDSHF+4* , ENDSHF+5, ENDSHF+8, ENDSHF+14 |
>> BDMEREC | BP+2, BP+3, BP+4, BP+8, BP+9, BP+15, TBHF+2, TBHF+4, TBHF+9 |
>> BDMEREC1 | SGHF+3, TBHF+3, ENDSHF+2, ENDSHF+3, ENDSHF+4, ENDSHF+9 |
BDMEVSIT | PPD+1!, PPD+7, PPD+8, PPD+9, PPD+12, EKG+1!, EKG+7, EKG+8, EKG+9, EKG+12 , LAB1+6, LAB1+7, LAB1+8, LAB1+11, EDUC1+6, EDUC1+7, EDUC1+8, EDUC1+11, MED1+6, MED1+7 , MED1+8, MED1+11, BP+1!, BP+7, BP+8, BP+9, BP+12, EVSIT+1!, EVSIT+10*, SGHF+1! , SGHF+7, SGHF+8, SGHF+9, SGHF+12, TBHF+1!, TBHF+7, TBHF+8, TBHF+9, TBHF+12, ENDSHF+1! , ENDSHF+7, ENDSHF+8, ENDSHF+9, ENDSHF+12 |
C | SMK+4~, SMK+6*, SMK+10 |
D | SMK+4~, SMK+7*, SMK+11 |
DIADD | SGHF+28!, TBHF+27!, ENDSHF+18! |
DLAYGO | TBHF+27!, ENDSHF+18! |
DT | SGHF+3, TBHF+3, ENDSHF+3 |
DUZ(2 | EVSIT+6, EVSIT+7 |
>> E | SMK+8*, SMK+12 |
>> G | PPD+8*, PPD+9, EKG+8*, EKG+9, LAB1+7*, LAB1+8, EDUC1+7*, EDUC1+8, MED1+7*, MED1+8 , BP+8*, BP+9, SGHF+8*, SGHF+9, TBHF+8*, TBHF+9, ENDSHF+8*, ENDSHF+9 |
>> T | PPD+7*, PPD+9*, PPD+17*, EKG+7*, EKG+9*, EKG+17*, LAB1+6*, LAB1+8*, LAB1+17*, EDUC1+6* , EDUC1+8*, EDUC1+27*, MED1+6*, MED1+8*, MED1+17*, BP+7*, BP+9*, BP+17*, SGHF+7*, SGHF+9* , SGHF+16*, TBHF+7*, TBHF+9*, TBHF+16*, ENDSHF+7*, ENDSHF+9*, ENDSHF+16* |
U | PPD+2, PPD+4, PPD+8, PPD+9, PPD+15, EKG+2, EKG+3, EKG+5, EKG+8, EKG+9 , LAB1+1, LAB1+2, LAB1+3, LAB1+4, LAB1+7, LAB1+8, LAB1+14, LAB1+15, EDUC1+1, EDUC1+2 , EDUC1+3, EDUC1+4, EDUC1+7, EDUC1+8, EDUC1+14, EDUC1+15, EDUC1+16, EDUC1+17, EDUC1+18, EDUC1+19 , EDUC1+21, EDUC1+22, EDUC1+23, EDUC1+24, EDUC1+25, MED1+1, MED1+2, MED1+3, MED1+4, MED1+7 , MED1+8, MED1+14, MED1+15, BP+2, BP+3, BP+4, BP+8, BP+9, BP+15, EVSIT+7 , TBF+2, TBF+3, TBF+5, ENDS+2, ENDS+3, ENDS+5, SMK+2, SMK+3, SMK+9, SMK+10 , SMK+11, SMK+12, SG+2, SG+3, SG+5, SGHF+2, SGHF+3, SGHF+4, SGHF+5, SGHF+8 , SGHF+9, TBHF+2, TBHF+3, TBHF+4, TBHF+5, TBHF+8, TBHF+9, ENDSHF+2, ENDSHF+3, ENDSHF+4 , ENDSHF+5, ENDSHF+8, ENDSHF+9 |
>> X | PPD+8*, EKG+8*, LAB1+7*, EDUC1+7*, EDUC1+18*, EDUC1+19*, EDUC1+20, MED1+7*, BP+8*, SGHF+8* , TBHF+8*, ENDSHF+8* |