©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
APSPLIS ; IHS/DSD/ENM - OUTPATIENT PHARMACY INVENTORY LIST ; [ 02/26/2003 9:48 AM ]
Source file <APSPLIS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FZZ | ;IHS/DSD/ENM 10/95
|
|
| EN | ;EP
|
|
| HDR | ;
|
|
| SHOW | ;
|
|
| LIST | ;
|
|
| LIST1 | ;
|
|
| DRU | ||
| DEV | ||
| SAV | ;
|
|
| AUS | ||
| ZAP | ||
| DIV | ;SELECT DIVISION
|
|
| SHOW1 | ||
| LOOP | ;GET DRUGS FOR ONE DIVISION
|
|
| CON |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | HDR+2 |
| ^PS(59 - [#59] | HDR+1 |
| ^PSDRUG - [#50] | LOOP+1, LIST+1, SAV+2 |
| ^TMP("APSPI" | EN+1! |
| ^TMP("APSPLIS" | SHOW1, LIST1+1, SAV+3*, ZAP! |
| Name | Line Occurrences |
|---|---|
| AUS | DEV+4 |
| DEV | DEV+3 |
| FZZ | LIST1+2 |
| HDR | SHOW+3, LIST1+3 |
| LIST | LOOP+1 |
| LIST1 | SHOW1 |
| SAV | LIST+3, LIST+4 |
| SHOW | CON+1 |
| SHOW1 | SHOW+3 |
| ZAP | DRU+1, DEV+2, DEV+9, CON+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | DEV*, DEV+1! |
| %ZIS("A" | DEV* |
| >> APSP("IOF" | ZAP! |
| >> APSP("PAGE" | AUS*, HDR+2*, HDR+4, ZAP! |
| APSPA | AUS*, LOOP+1*, LIST+1, SAV+2, ZAP! |
| APSPA1 | AUS*, ZAP! |
| APSPANS | DRU+1*, LIST+3, LIST+4, ZAP! |
| APSPBS | ZAP! |
| APSPCI | LOOP+1*, LIST1+1*, LIST1+4, SAV+3, ZAP! |
| APSPDAN | DIV+5*, HDR+1, ZAP! |
| APSPDIV | HDR+1*, HDR+4, ZAP! |
| APSPDL | ZAP! |
| APSPDN | CON*, SHOW+1*, SHOW1*, LIST1+1, LIST1+4, SAV+2*, SAV+3, ZAP! |
| APSPDU | LIST1+1*, LIST1+4, SAV+2*, SAV+3, ZAP! |
| APSPSH | LOOP+1*, LIST+3, SAV+1, ZAP! |
| APSPTYPE | DRU+1*, HDR+4, ZAP! |
| APSPZ | LIST+2*, SAV+1*, SAV+3, ZAP! |
| APZ | SHOW+1*, SHOW1*, LIST1+1, ZAP! |
| DIR | DRU!, FZZ+1! |
| DIR("?" | FZZ+1* |
| DIR("A" | DRU*, FZZ+1* |
| DIR(0 | DRU*, FZZ+1* |
| >> DIRUT | DRU+1 |
| DTOUT | SHOW1, LIST1+2, FZZ+1! |
| DUOUT | DRU+1, SHOW1, LIST1+2, FZZ+1! |
| IO | DEV+3, DEV+4, AUS+1 |
| IO("Q" | DEV+3!, DEV+4 |
| IO(0 | DEV+4 |
| IOF | EN+2, HDR+3 |
| IOSL | LIST1+2, LIST1+3 |
| IOST | LIST1+2 |
| >> POP | DEV+2 |
| >> PSOSITE | DIV+5 |
| U | LOOP+1, HDR+1, LIST1+1, SAV+2 |
| >> X | DEV+7*, HDR+2 |
| >> Y | DRU+1, HDR+2*, HDR+4 |
| >> Y(0 | DRU+1 |
| >> ZTDESC | DEV+6* |
| >> ZTRTN | DEV+5* |
| >> ZTSAVE( | DEV+7* |