©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
APCHPMH3 ; IHS/CMI/LAB - Patient Wellness Handout ;
Source file <APCHPMH3.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 1 | ($$FMADD,$$FMDIFF)^XLFDT |
| VA Fileman | 1 | ^DIWP |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MEDBLD | ;BUILD ARRAY OF MEDICATIONS
|
|
| RXSTAT | ;gets status of rx ... TAKEN FROM PSOFUNC ROUTINE
|
|
| S1 | ;
|
|
| S(Y,F,C,T) | ;set up array
|
|
| MEDS | ;EP - DISPLAY MEDS
|
|
| SIG | ;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
|
|
| CLOSE | ;EP - Write closing statement per Chris Lamer 11/29/07 *17*
|
|
| HOLD | ;Now get meds in Pharmacy yet to be completed
|
|
| DATE(D) | ;EP - convert to slashed date
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVMED - [#9000010.14] | MEDBLD+3, MEDBLD+4, MEDBLD+11, MEDBLD+24 |
| ^AUPNVMED("AA" | MEDS+14 |
| ^PS(51 - [#51] | SIG+2 |
| ^PS(52.5 - [#52.5] | RXSTAT+4 |
| ^PS(55 - [#55] | HOLD+3, HOLD+4 |
| ^PSDRUG - [#50] | MEDBLD+5, MEDBLD+25, MEDBLD+27, MEDBLD+28, HOLD+6 |
| ^PSRX - [#52] | MEDBLD+9, MEDBLD+12, MEDBLD+14, MEDBLD+15, MEDBLD+16, RXSTAT+1, HOLD+5, HOLD+6 |
| ^PSRX("APCC" | MEDBLD+8 |
| ^TMP("APCHPHS" | S1+1*, S1+2* |
| ^UTILITY($J | MEDS+19!, MEDS+20, MEDS+21, MEDS+22! |
| Name | Line Occurrences |
|---|---|
| HOLD | MEDS+24 |
| MEDBLD | MEDS+14 |
| RXSTAT | MEDBLD+9 |
| S | MEDS+9, MEDS+10, MEDS+15, MEDS+18, MEDS+20, MEDS+21, MEDS+26, MEDS+27, MEDS+30, CLOSE+2 , CLOSE+3, CLOSE+4, CLOSE+5, CLOSE+6, CLOSE+7, CLOSE+8 |
| S1 | S+5, S+7, S+10 |
| SIG | MEDBLD+19 |
| Name | Field # of Occurrence |
|---|---|
| ^( | MEDBLD+8 |
| ^("P" | RXSTAT+4 |
| ^(0 | RXSTAT+4 |
| ^(9 | SIG+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | S+3~, S+8*, S+9*, S1+1*, S1+2 |
| >> APCHHM | MEDS+25 |
| >> APCHHM( | MEDS+29, HOLD+7* |
| >> APCHHMED | MEDS+28*, MEDS+29*, MEDS+30, HOLD+6*, HOLD+7 |
| >> APCHNMED | HOLD+4*, HOLD+5, HOLD+6, HOLD+7 |
| APCHSCOT | MEDBLD+2!, MEDBLD+10*, MEDBLD+11*, MEDBLD+22 |
| >> APCHSDFN | MEDS+14, HOLD+1, HOLD+3, HOLD+4 |
| >> APCHSDLM | MEDS+13*, MEDS+14 |
| >> APCHSDT | HOLD+2*, HOLD+3*, HOLD+4 |
| >> APCHSDTM | MEDBLD+6*, MEDBLD+22 |
| >> APCHSDYS | MEDBLD+20*, MEDBLD+22, MEDBLD+24, MEDBLD+31 |
| >> APCHSIG | MEDS+19*, MEDBLD+17*, MEDBLD+18*, SIG+1, SIG+2 |
| >> APCHSIVD | MEDS+14*, MEDBLD+6 |
| >> APCHSM( | MEDS+17, MEDS+19, MEDBLD+30, MEDBLD+31*, MEDBLD+32*, MEDBLD+33*, MEDBLD+34* |
| >> APCHSMCT | MEDS+14*, MEDS+15, MEDBLD+35* |
| >> APCHSMED | MEDS+16*, MEDS+17*, MEDS+18, MEDS+19 |
| >> APCHSMFX | MEDBLD+25*, MEDBLD+28*, MEDBLD+30, MEDBLD+31, MEDBLD+32, MEDBLD+33, MEDBLD+34 |
| >> APCHSMX | MEDS+14*, MEDBLD+3, MEDBLD+4, MEDBLD+8, MEDBLD+11, MEDBLD+24 |
| >> APCHSN | MEDBLD+4*, MEDBLD+5, MEDBLD+7, MEDBLD+18, MEDBLD+20, MEDBLD+25, MEDBLD+26, MEDBLD+27, MEDBLD+28, MEDBLD+31 |
| >> APCHSP | SIG+1*, SIG+2 |
| >> APCHSQ | MEDS+14* |
| APCHSRXP | MEDBLD+2!, MEDBLD+8*, MEDBLD+9, MEDBLD+10, MEDBLD+12, MEDBLD+14, MEDBLD+15, MEDBLD+16, MEDBLD+32, RXSTAT+1 , RXSTAT+2, RXSTAT+3 |
| >> APCHSSGY | MEDBLD+34, SIG+1*, SIG+3* |
| >> APCHSSTA | MEDBLD+12*, MEDBLD+13 |
| C | S~, S+7 |
| D | DATE~, DATE+1, DATE+2 |
| >> DIWL | MEDS+19* |
| >> DIWR | MEDS+19* |
| DT | MEDS+13, MEDBLD+22, RXSTAT+5, HOLD+2 |
| F | S~, S+1*, S+5* |
| >> I | MEDS+21* |
| >> J | RXSTAT+3*, RXSTAT+4 |
| >> L | S+7* |
| >> RX0 | MEDBLD+9*, RXSTAT+4, RXSTAT+6* |
| >> RX2 | MEDBLD+9*, RXSTAT+5 |
| >> ST | MEDBLD+9, MEDBLD+33, RXSTAT+6* |
| >> ST0 | RXSTAT+4*, RXSTAT+5*, RXSTAT+6 |
| T | S~, S+2*, S+7*, S+8, S+9 |
| U | MEDS+19, MEDBLD+5, MEDBLD+7, MEDBLD+11, MEDBLD+12, MEDBLD+18, MEDBLD+20, MEDBLD+24, MEDBLD+25, MEDBLD+26 , MEDBLD+27, MEDBLD+28, MEDBLD+31, MEDBLD+32, MEDBLD+33, MEDBLD+34, HOLD+6, S1+1 |
| X | MEDS+9*, MEDS+10*, MEDS+15*, MEDS+18*, MEDS+19*, MEDS+20*, MEDS+21*, MEDS+26*, MEDS+27*, MEDS+30* , SIG+1*, SIG+2*, SIG+3, S+3~, S+5*, S+6*, S+8*, S+9*, S1+2, CLOSE+2* , CLOSE+3*, CLOSE+4*, CLOSE+5*, CLOSE+6*, CLOSE+7*, CLOSE+8* |
| Y | SIG+2*, S~, S+6, S+7, S+9 |