APCHSM08 ; IHS/CMI/LAB -- CONTINUATION OF ROUTINES ;
Source file <APCHSM08.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Care Component | 3 | ($$AGESEX,$$DATE,$$DATEAGE,$$INAC,$$LASTHF,$$OVR,$$PLTAX,$$REF,$$SITECRIT,WRITE)^APCHSMU $$CPTREFT^APCHSMU2 (GETTPT,WRITETP)^APCHSTP |
| Patient Care Component Reports | 3 | ($$LASTMMR,$$LASTRUB)^APCLAPI3 $$LASTNBHS^APCLAPI5 $$START1^APCLDF |
| DRG Grouper | 1 | $$CODEN^ICPTCOD |
| IHS Patient | 1 | ($$AGE,$$DOB,$$SEX)^AUPNPAT |
| Kernel | 1 | ($$FMADD,$$FMDIFF)^XLFDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DSSWT | ;
|
|
| DSSREG | ;regular stuff
|
|
| HEARWT | ;
|
|
| RUB | ;EP
|
|
| HEARREG | ;regular stuff
|
|
| S(X) | ;
|
|
| DSS | ;EP - depression screen score
|
|
| POS(P) | ;is any DSS over 10 in past 365 days?
|
|
| MMR1D(P) | ;
|
|
| MMR1 | ;EP - mmr one dose version
|
|
| MMR2 | ;EP - mmr two dose version
|
|
| RUBWT | ;
|
|
| RUBIMM(P,C,ED) | ;EP - ANApHYLAXIS/NEOMYCIN/IMMUNE CONTRAINDICATION
|
|
| NEWBORNH | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$AGESEX^APCHSMU | MMR1+19, MMR2+62 |
| $$DATE^APCHSMU | DSS+12, DSSREG+7, DSSREG+8, MMR1+7, MMR2+50, NEWBORNH+11, HEARREG+2 |
| $$DATEAGE^APCHSMU | NEWBORNH+4, HEARREG+2 |
| $$INAC^APCHSMU | DSS+2, MMR1+1, MMR2+1, RUB+1, NEWBORNH+1 |
| $$LASTHF^APCHSMU | DSS+7, RUB+9 |
| $$OVR^APCHSMU | DSS+10, MMR1+5, MMR2+48, NEWBORNH+9 |
| $$PLTAX^APCHSMU | NEWBORNH+3 |
| $$REF^APCHSMU | MMR1+9, MMR1+10, MMR1+24, MMR1+25, MMR2+52, MMR2+53, MMR2+66, MMR2+72, MMR2+73, RUBWT+2 , RUBWT+3, RUBWT+4, RUBWT+5, RUBWT+6, HEARWT+1, HEARWT+2, HEARWT+3 |
| $$SITECRIT^APCHSMU | MMR1+15, MMR2+58 |
| WRITE^APCHSMU | DSSWT+1, DSS+13, MMR1+12, MMR1+27, MMR2+55, MMR2+67, MMR2+75, RUBWT+8, HEARWT+10 |
| $$CPTREFT^APCHSMU2 | HEARWT+9 |
| GETTPT^APCHSTP | RUB+13 |
| WRITETP^APCHSTP | RUB+14 |
| $$LASTMMR^APCLAPI3 | MMR1+3, MMR2+3 |
| $$LASTRUB^APCLAPI3 | RUB+3 |
| $$LASTNBHS^APCLAPI5 | NEWBORNH+6 |
| $$START1^APCLDF | MMR2+7, MMR2+11, MMR2+15, MMR2+19 |
| $$AGE^AUPNPAT | DSS+3, MMR1D+1, MMR1D+2 |
| $$DOB^AUPNPAT | MMR1D+3, MMR1+21, MMR2+7, MMR2+11, MMR2+15, MMR2+19, RUB+5 |
| $$SEX^AUPNPAT | MMR1D+2 |
| $$CODEN^ICPTCOD | MMR2+24 |
| $$FMADD^XLFDT | DSSREG+6, POS+5, MMR1+21, MMR2+7, MMR2+11, MMR2+15, MMR2+19, RUB+5, NEWBORNH+5 |
| $$FMDIFF^XLFDT | MMR2+46 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ATXAX("B" | HEARWT+8 |
| ^AUPNVCPT("AA" | MMR2+25, MMR2+26, MMR2+31, MMR2+32 |
| ^AUPNVHF - [#9000010.23] | POS+11 |
| ^AUPNVHF("AA" | POS+7, POS+8, POS+10 |
| ^AUTTEXAM("C" | HEARWT+1, HEARWT+2, HEARWT+3 |
| ^AUTTHF("AC" | POS+6 |
| ^AUTTHF("B" | POS+2 |
| ^AUTTIMM("C" | MMR1+9, MMR1+10, MMR1+24, MMR1+25, MMR2+52, MMR2+53, MMR2+66, MMR2+72, MMR2+73, RUBIMM+2 , RUBWT+2, RUBWT+3, RUBWT+4, RUBWT+5, RUBWT+6 |
| ^BICONT - [#9002084.81] | RUBIMM+5, RUBIMM+10 |
| ^BIPC - [#9002084.11] | RUBIMM+3, RUBIMM+6, RUBIMM+9 |
| ^BIPC("AC" | RUBIMM+2 |
| Name | Line Occurrences |
|---|---|
| $$MMR1D | MMR1+17, MMR2+60, RUB+6 |
| $$POS | DSS+6 |
| $$RUBIMM | RUB+12 |
| DSSWT | DSSREG+5, DSSREG+9 |
| HEARWT | NEWBORNH+12, HEARREG+2 |
| S | DSS+12, MMR1+7, MMR1+11, MMR1+26, MMR2+50, MMR2+54, MMR2+66, MMR2+74, RUBWT+7, HEARWT+1 , HEARWT+2, HEARWT+3, HEARWT+9, NEWBORNH+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | S+1~*, MMR2+7*, MMR2+11*, MMR2+15*, MMR2+19*, MMR2+25*, MMR2+31* |
| A | POS+4~, POS+5*, POS+9 |
| >> APCHCOLW | RUB+13 |
| >> APCHICAR | MMR1+3*, MMR1+4, MMR2+3*, MMR2+4, RUB+3*, RUB+4, NEWBORNH+6*, NEWBORNH+7 |
| >> APCHLAS1 | DSS+7*, DSS+8, DSS+9 |
| >> APCHLAST | DSS+4*, DSS+7*, DSS+11, DSSREG+5, DSSREG+6, MMR1+2*, MMR1+4*, MMR1+6, MMR1+9, MMR1+10 , MMR1+21, MMR1+24, MMR1+25, MMR2+2*, MMR2+4*, MMR2+49, MMR2+52, MMR2+53, MMR2+66, MMR2+72 , MMR2+73, RUB+2*, RUB+4*, RUB+5*, RUB+7, RUB+13, RUBWT+2, RUBWT+3, RUBWT+4, RUBWT+5 , RUBWT+6, HEARWT+1, HEARWT+2, HEARWT+3, HEARWT+9, NEWBORNH+2*, NEWBORNH+7*, NEWBORNH+8, NEWBORNH+10, HEARREG+2 |
| >> APCHLR | MMR1+8*, MMR1+9*, MMR1+10*, MMR1+11, MMR1+23*, MMR1+24*, MMR1+25*, MMR1+26, MMR2+51*, MMR2+52* , MMR2+53*, MMR2+54, MMR2+71*, MMR2+72*, MMR2+73*, MMR2+74, RUBWT+1*, RUBWT+2*, RUBWT+3*, RUBWT+4* , RUBWT+5*, RUBWT+6*, RUBWT+7 |
| >> APCHMIN | HEARREG+1*, HEARREG+2 |
| APCHMMR | MMR2+6! |
| APCHMMR( | MMR2+9*, MMR2+13*, MMR2+17*, MMR2+21*, MMR2+37*, MMR2+44, MMR2+45!, MMR2+46! |
| >> APCHNEXT | DSS+4*, DSSREG+6*, DSSREG+7, DSSREG+8, MMR1+2*, MMR2+2*, RUB+2*, NEWBORNH+2* |
| >> APCHOVR | DSS+10*, DSS+11, DSS+12, MMR1+5*, MMR1+6, MMR1+7, MMR2+48*, MMR2+49, MMR2+50, NEWBORNH+9* , NEWBORNH+10, NEWBORNH+11 |
| >> APCHRIHF | RUB+9*, RUB+10, RUB+13 |
| >> APCHSCRI | MMR1+15*, MMR1+16, MMR1+19, MMR2+58*, MMR2+59, MMR2+62 |
| >> APCHSINT | DSS+8*, DSS+9*, DSSREG+6, MMR1+15*, MMR1+18*, MMR1+19*, MMR1+20, MMR2+58*, MMR2+61*, MMR2+62* , MMR2+63, RUB+8*, HEARREG+1* |
| >> APCHSITI | DSS+2, DSS+10, MMR1+1, MMR1+5, MMR1+15, MMR1+19, MMR2+1, MMR2+48, MMR2+58, MMR2+62 , RUB+1, RUB+13, NEWBORNH+1, NEWBORNH+9 |
| >> APCHSPAT | DSS+3, DSS+6, DSS+7, DSS+10, MMR1+3, MMR1+5, MMR1+9, MMR1+10, MMR1+17, MMR1+19 , MMR1+21, MMR1+24, MMR1+25, MMR2+3, MMR2+7, MMR2+11, MMR2+15, MMR2+19, MMR2+25, MMR2+26 , MMR2+31, MMR2+32, MMR2+48, MMR2+52, MMR2+53, MMR2+60, MMR2+62, MMR2+66, MMR2+72, MMR2+73 , RUB+3, RUB+5, RUB+6, RUB+9, RUB+12, RUBWT+2, RUBWT+3, RUBWT+4, RUBWT+5, RUBWT+6 , HEARWT+1, HEARWT+2, HEARWT+3, HEARWT+9, NEWBORNH+3, NEWBORNH+4, NEWBORNH+6, NEWBORNH+9, HEARREG+2 |
| >> APCHSPOS | DSS+6*, DSS+8, DSS+9 |
| APCHSTEX | DSS+4!, MMR1+2!, MMR2+2!, RUB+2!, RUB+13, NEWBORNH+2! |
| APCHSTEX( | S+1, S+2* |
| APCHSTEX(1 | DSSREG+5*, DSSREG+7*, DSSREG+8*, MMR1+22*, MMR2+65*, MMR2+70*, HEARREG+2* |
| >> APCHSURX | DSSWT+2, DSS+14, MMR1+13, MMR1+20, MMR1+28, MMR2+56, MMR2+63, MMR2+64, MMR2+68, MMR2+76 , RUB+10, RUB+12, RUBWT+9, HEARWT+11 |
| >> APCHT | HEARWT+8*, HEARWT+9 |
| APCHY | MMR2+6!, MMR2+10!, MMR2+14!, MMR2+18!, MMR2+22!, MMR2+38! |
| APCHY( | MMR2+9, MMR2+13, MMR2+17, MMR2+21, MMR2+28*, MMR2+34*, MMR2+37 |
| APCHYA1M | MMR2+43!, MMR2+46*, MMR2+64 |
| APCHYA1Y | MMR2+43!, MMR2+45*, MMR2+46, MMR2+65 |
| C | S+1~*, S+2, POS+2*, POS+3, POS+6, MMR2+23~, MMR2+24*, MMR2+28*, MMR2+34*, RUBIMM~ , RUBIMM+2 |
| D | POS+4~, POS+8*, POS+9, POS+10, MMR2+27*, MMR2+28, MMR2+33*, MMR2+34, MMR2+44*, MMR2+45 , MMR2+46, RUBIMM+6*, RUBIMM+7, RUBIMM+10, NEWBORNH+4*, NEWBORNH+5 |
| DT | DSSREG+7, DSSREG+8, POS+5, MMR2+7, MMR2+11, MMR2+15, MMR2+19, RUB+12, HEARWT+9, NEWBORNH+5 |
| >> E | MMR2+7*, MMR2+11*, MMR2+15*, MMR2+19*, MMR2+26*, MMR2+27, MMR2+32*, MMR2+33 |
| ED | RUBIMM~, RUBIMM+9 |
| G | POS+4~*, POS+6, POS+8, POS+10, POS+12*, POS+15, RUBIMM+2*, RUBIMM+10*, RUBIMM+11 |
| H | POS+4~*, POS+6*, POS+7, POS+8, POS+10 |
| >> I | POS+10*, POS+11 |
| O | POS+4~! |
| P | POS~, POS+1, POS+7, POS+8, POS+10, MMR1D~, MMR1D+1, MMR1D+2, MMR1D+3, RUBIMM~ , RUBIMM+2 |
| >> R | RUBIMM+3*, RUBIMM+4, RUBIMM+5, RUBIMM+10 |
| S | POS+4~* |
| T1 | MMR2+23~, MMR2+24*, MMR2+25, MMR2+26 |
| T2 | MMR2+23~, MMR2+24*, MMR2+31, MMR2+32 |
| U | DSS+11, DSS+12, POS+11, MMR1+4, MMR1+6, MMR1+7, MMR1+10, MMR1+11, MMR1+25, MMR1+26 , MMR2+4, MMR2+9, MMR2+13, MMR2+17, MMR2+21, MMR2+37, MMR2+49, MMR2+50, MMR2+53, MMR2+54 , MMR2+66, MMR2+73, MMR2+74, RUB+4, RUBIMM+3, RUBIMM+6, RUBIMM+9, RUBIMM+10, RUBWT+3, RUBWT+4 , RUBWT+5, RUBWT+6, RUBWT+7, HEARWT+1, HEARWT+2, HEARWT+3, HEARWT+9, NEWBORNH+7, NEWBORNH+10, NEWBORNH+11 |
| >> V | MMR1+9*, MMR1+10*, MMR1+24*, MMR1+25*, MMR2+52*, MMR2+53*, MMR2+66*, MMR2+72*, MMR2+73*, RUBWT+2* , RUBWT+3*, RUBWT+4*, RUBWT+5*, RUBWT+6*, HEARWT+1*, HEARWT+2*, HEARWT+3*, HEARWT+9* |
| X | S~, S+2, DSS+12*, MMR1+7*, MMR1+11*, MMR1+26*, MMR2+9*, MMR2+13*, MMR2+17*, MMR2+21* , MMR2+37*, MMR2+50*, MMR2+54*, MMR2+66*, MMR2+74*, RUBIMM+1~, RUBIMM+2*, RUBIMM+3, RUBIMM+6, RUBIMM+9 , RUBWT+7*, HEARWT+1*, HEARWT+2*, HEARWT+3*, HEARWT+9*, NEWBORNH+11* |
| >> Y | RUBIMM+2* |