©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
APSAPPIM ;IHS/ASDS/ENM/POC - PRINTS THE PATIENT MEDICATION SHEETS [ 11/13/2003 4:12 PM ];09-Oct-2008 11:24;SM
Source file <APSAPPIM.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To Pharmacy | 3 | EP2^APSAPPIP ^APSPMDD (EN,PAT)^APSPNUM |
| Kernel | 3 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD |
| VA Fileman | 1 | YN^DICN |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TEST(N) | ;TEST FOR ENTRY OF PATIENT MED SHEET IN ^PSPPI GLOBAL
|
|
| EN | ;EP - NORMAL ENTRY POINT FROM APSPNE4 PRINT LINE
|
|
| END | ;EP - POC 04/10/01
|
|
| ECK | ;
|
|
| DEV | ;
|
|
| EN1 | ;ENTRY FROM MENU OPTION FOR SINGLE PATIENT
|
|
| EXIT | ||
| PICK | ;select a drug from file 50
|
|
| PMI | ;SET UP AND PRINT
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | DEV+2, DEV+3, DEV+4 |
| ^%ZIS(2 - [#3.2] | PMI+2 |
| ^APSAMDF - [#9009037] | ECK+3 |
| ^APSAMDF("B" | ECK+1, ECK+2 |
| ^APSAPPI - [#9009037.1] | PICK+2, ECK+4 |
| ^PSDRUG - [#50] | TEST+1, PICK+4 |
| ^PSRX - [#52] | PMI+5, PMI+7, PMI+8 |
| ^VA(200 - [#200] | PMI+8 |
| Name | Line Occurrences |
|---|---|
| $$TEST | PMI+6 |
| DEV | DEV+7 |
| ECK | PICK+6 |
| EN | EN1+13 |
| END | DEV+7, EN1+11 |
| EXIT | PICK+2 |
| PICK | PMI+9 |
| PMI | DEV+12 |
| Name | Field # of Occurrence |
|---|---|
| ^("I" | TEST+1 |
| ^(6 | PMI+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | DEV+7* |
| >> %ZIS | DEV+6* |
| APSDNAM | EN1+2~, PMI+8* |
| APSDOC | EN1+2~, PMI+8* |
| >> APSPCPP | DEV+1, DEV+2, DEV+3, DEV+4, DEV+5 |
| >> APSPIEND | DEV+2*, DEV+3, DEV+4 |
| APSPIRN | EN1+5~ |
| APSPNDC | EN1+2~ |
| APSPZDT | EN1+5~ |
| APSQ | EN1+1~ |
| APSQ( | PMI+10*, PRINT |
| >> APSQCOM | PMI+2* |
| APSQDRG | EN1+1~, PMI+5*, PMI+6, PMI+10, PICK+1, PICK+3 |
| APSQIEN | EN1+1~, PMI+4*, PMI+5, PMI+7, PMI+8 |
| >> APSQRSET | PMI+2* |
| APSQRXN | EN1+1~, PMI+7*, PMI+10 |
| CNT | EN1+6~ |
| CR | EN1+2~ |
| DFN | EN+1, EN1+1~, EN1+2~ |
| DIR | EN1+6~ |
| DIW | EN1+5~ |
| DIWI | EN1+5~ |
| DIWT | EN1+5~ |
| DIWTC | EN1+6~ |
| DIWX | EN1+6~ |
| DN | EN1+5~ |
| DOB | EN1+6~ |
| DRG | EN1+6~, PRINT*, PICK+3*, PICK+4 |
| DT | TEST+1 |
| ED | EN1+2~ |
| ED1 | EN1+2~ |
| ED2 | EN1+2~ |
| ED3 | EN1+2~ |
| >> I | DEV+11*, PMI+4*, PMI+10 |
| IEN | EN1+5~ |
| IO | PMI+1 |
| IO("Q" | DEV+8! |
| IO(0 | DEV+4 |
| IOBS | EN1+6~ |
| IOHG | EN1+6~ |
| >> IOP | DEV+3*, DEV+4*, DEV+5* |
| IOST | PMI+2 |
| IOST(0 | PMI+2 |
| J | EN1+5~ |
| JJ | EN1+5~, PRINT* |
| N | TEST~, TEST+1 |
| NAM | EN1+2~ |
| NDC | EN1+2~, PICK+6*, ECK+1 |
| NUM | EN1+2~, PMI+12* |
| P2 | EN1+3~, PICK+7* |
| PG | EN1+3~ |
| POP | DEV+7, EN1+6~ |
| PPI | EN1+3~, PMI+10, PRINT*, PICK+5*, PICK+7*, ECK+1*, ECK+3*, ECK+4* |
| PPL | EN1+1~, EN1+3~, EN1+12*, PMI+3, PMI+4 |
| PS | EN1+3~ |
| PSCNT | EN1+4~ |
| PSNDFN | EN+1*, EN1+2~ |
| PSOCT | EN1+4~ |
| PSODFN | EN1+3~, EN1+8 |
| PSODTCUT | EN1+4~ |
| PSOERR | EN1+4~ |
| PSOLIST | EN1+4~, EN1+11 |
| PSOLIST(1 | EN1+12 |
| >> PSONUM | EN1+9* |
| PSOOPT | EN1+4~ |
| PSOSD | EN1+1~ |
| PSOSTA | EN1+4~ |
| PSRX | EN1+2~, PRINT* |
| >> RN | ECK+1*, ECK+2*, ECK+3 |
| RXN | EN1+4~ |
| SEX | EN1+3~ |
| SSN | EN1+3~ |
| STP | EN1+4~ |
| STR | EN1+4~ |
| U | PICK+4 |
| VA | EN1+3~ |
| VADM | EN1+3~ |
| VAERR | EN1+6~ |
| >> X | PICK+4*, PICK+5, PICK+6 |
| XNDC | EN1+3~, ECK+1*, ECK+2 |
| Z | EN1+4~ |
| >> ZTDESC | DEV+9* |
| >> ZTDTH | DEV+10* |
| >> ZTQUEUED | END+2 |
| >> ZTREQ | END+2* |
| >> ZTRTN | DEV+9* |
| >> ZTSAVE( | DEV+11* |