©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
AZFMCM ;IHS/OHPRD/JCM;MOST COMMON DRUGS[ 02/03/95 8:21 AM ]
Source file <AZFMCM.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ^%ZIS ^%ZTLOAD |
| Local Area Programs | 1 | ^AZFMCM1 |
| VA Fileman | 1 | ^%DT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CNT | ;R !,"DO NOT PRINT DRUG IF COUNT IS LESS THAN: 20//",X:DTIME S:X="" X=20
|
|
| APSP | ;I DRGNAME'["U/D",DRGNAME[" TAB"!(DRGNAME[" CAP") D CONVERT
|
|
| RX | ;
|
|
| CONVERT | ; Strips TAB or CAP from Drug Name
|
|
| INIT | ;
|
|
| EXIT | ;
|
|
| DATE | ;
|
|
| QUE | ;
|
|
| CHECK | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZTSK - [#14.4] | DATE+7! |
| ^PSDRUG - [#50] | CHECK+5, CHECK+6, CHECK+8 |
| ^PSRX - [#52] | CHECK+1, CHECK+4 |
| ^PSRX("AD" | DATE+1, RX+2, CHECK+2 |
| ^TMP("PSOZCOM1" | INIT+1!, EXIT+1!, APSP+2*, APSP+3, APSP+7* |
| ^TMP("PSOZCOM2" | INIT+1!, EXIT+2! |
| Name | Line Occurrences |
|---|---|
| APSP | CHECK+8 |
| CHECK | RX+2 |
| DATE | QUE+6 |
| EXIT | INIT+7, INIT+11, QUE+4, QUE+10 |
| INIT | INIT+11 |
| QUE | QUE+5 |
| RX | DATE+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | CHECK+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | INIT+5*, EXIT+4! |
| %DT("A" | INIT+4*, INIT+9* |
| %IS | QUE+2*, EXIT+4! |
| >> APSPOU | CHECK+8*, APSP+2, APSP+3, APSP+7 |
| BD | INIT+8*, DATE+1, EXIT+3! |
| DATE | DATE+1*, EXIT+3!, RX+2, CHECK+2 |
| DRGNAME | EXIT+5!, CHECK+8*, APSP+2, APSP+3, APSP+7, APSP+9!, CONVERT+1, CONVERT+2, CONVERT+3* |
| DRGNUM | EXIT+5!, CHECK+4*, CHECK+5, CHECK+6, CHECK+8, APSP+9! |
| ED | INIT+12*, DATE+1, EXIT+3! |
| I | EXIT+5! |
| IO | QUE+5, QUE+6, QUE+7 |
| IO("C" | EXIT+5! |
| IO("Q" | QUE+5!, QUE+6, EXIT+5! |
| IO(0 | QUE+5, QUE+6 |
| IOF | INIT+2 |
| IRXN | EXIT+3!, RX+2*, CHECK+1, CHECK+2, CHECK+4 |
| POP | QUE+4, EXIT+4! |
| PSFILL | CHECK+2*, APSP+4, APSP+9! |
| PSZCNT | EXIT+3! |
| QTY | CHECK+4*, APSP+6, APSP+9! |
| RNUM | EXIT+3! |
| TAB | EXIT+5!, CONVERT+2*, CONVERT+3 |
| U | CHECK+6, CHECK+8, APSP+4, APSP+5, APSP+6 |
| UTL | EXIT+5!, APSP+3*, APSP+4*, APSP+5*, APSP+6*, APSP+7, APSP+9! |
| X | INIT+11, EXIT+5! |
| Y | INIT+7, INIT+8, INIT+11, INIT+12, EXIT+5! |
| ZTDESC | QUE+8*, EXIT+4! |
| ZTIO | QUE+7*, EXIT+3! |
| ZTRTN | QUE+7*, EXIT+3! |
| ZTSAVE | EXIT+4! |
| ZTSAVE("BD" | QUE+7* |
| ZTSAVE("ED" | QUE+7*, EXIT+3! |
| ZTSAVE("PSZCNT" | QUE+8* |
| ZTSK | DATE+7, EXIT+4! |