©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
APSAPPIP ;IHS/ITSC/POC/ENM - PRINT A MEDICATION INSTRUCTION SHEET [ 08/27/2003 8:53 AM ]
Source file <APSAPPIP.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^DIC ^DIR ^DIWP |
| IHS Changes To Pharmacy | 1 | ^APSPMDD |
| Kernel | 1 | $$HTE^XLFDT |
| Registration | 1 | DEM^VADPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| END1 | ;
|
|
| CONT | ;
|
|
| HDR | ;HEADER INFO
|
|
| HDR1 | ||
| ECK | ;
|
|
| EP2 | ;EP FROM APSAPPIM
|
|
| EP1 | ;FROM APSEPPID
|
|
| WRITE | ;MY DIWW FOR ^DIWW
|
|
| INIT | ;INIT SOME VARIABLES
|
|
| SH | ;PRINT OUT MAIN BODY
|
|
| END | ;KILL THE VARIABLES
|
|
| LASTLINE | ;PA THE LAST LINE IN UTILITY TO MAXIMUM
|
|
| PICK | ;EP SELECT A DRUG FROM FILE 50
|
|
| PRINTIT(X) | ;PRINT THE LINE
|
|
| DISC | ;
|
|
| HDR2 | ||
| DICS | ;SCREEN
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APSAMDF - [#9009037] | ECK+3 |
| ^APSAMDF("B" | ECK+1, ECK+2 |
| ^APSAPPI - [#9009037.1] | PICK+3, SH+2, ECK+4, DISC+3, DISC+8, DISC+9, DISC+11 |
| ^DPT - [#2] | INIT+9, HDR2+2 |
| ^PSDRUG - [#50] | PICK+5, INIT+7, DICS+1 |
| ^PSNDF( | INIT+7 |
| ^UTILITY($J | END+3!, LASTLINE+2, LASTLINE+4, LASTLINE+5, LASTLINE+8, HDR+2, HDR+5*, HDR+6*, HDR+7!, HDR+8 , HDR+9!, HDR1+6*, HDR2+8*, WRITE+4, WRITE+5 |
| Name | Line Occurrences |
|---|---|
| CONT | EP1+2, EP2+2 |
| DISC | CONT+2 |
| ECK | PICK+5 |
| END | EP2+1, PICK+1 |
| END1 | CONT+6 |
| HDR | CONT+3 |
| HDR1 | HDR+3 |
| HDR2 | HDR+3 |
| INIT | EP1+1, EP2+1, PICK+1 |
| LASTLINE | PRINTIT+10, PRINTIT+11, DISC+2 |
| PRINTIT | SH+2, DISC+5, DISC+6, DISC+10, DISC+11 |
| SH | CONT+1 |
| WRITE | CONT+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SH+2 |
| ^("I" | DICS+1 |
| ^("ND" | INIT+7 |
| ^("W" | HDR+8* |
| ^(0 | LASTLINE+4, LASTLINE+8* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APSAIOSL | END+2!, INIT+3*, INIT+4*, HDR+3, WRITE+6 |
| >> APSDNAM | HDR2+5 |
| >> CNT | HDR+1*, HDR+3, HDR+4*, HDR+5, HDR+6, HDR1+5*, HDR1+6, HDR2+7*, HDR2+8 |
| >> CR | DISC+3*, DISC+5 |
| >> DFN | INIT+9*, HDR2+2* |
| DIC | PICK+4*!, END+1! |
| DIC("S" | PICK+4* |
| DIC(0 | PICK+4* |
| DIR | CONT+5!, WRITE+7! |
| DIR(0 | CONT+5*, WRITE+7* |
| DIWF | END+1! |
| DIWL | END+1!, INIT+2*, LASTLINE+2, LASTLINE+4, LASTLINE+5, LASTLINE+8, HDR+2, HDR+5, HDR+6, HDR1+6 , HDR2+8, WRITE+4, WRITE+5 |
| DIWR | END+1!, INIT+2*, LASTLINE+5, HDR1+4, HDR2+6 |
| >> DRG | PICK+4*, PICK+5, INIT+7 |
| DRUG | END+1!, INIT+5*, INIT+7*, HDR1+2 |
| DT | DICS+1 |
| >> ED | DISC+3* |
| >> ED1 | DISC+3*, DISC+6 |
| >> ED2 | DISC+3*, DISC+4 |
| >> ED3 | DISC+4*, DISC+6 |
| FIRST | PRINTIT+6~, PRINTIT+7*, PRINTIT+9 |
| IEN | SH+1~*, SH+2*, HDR+1*, HDR+2*, HDR+5, DISC+7~*, DISC+8*, DISC+9 |
| IO | WRITE+1 |
| IOF | WRITE+3, WRITE+8 |
| IOM | INIT+2 |
| IOSL | INIT+3, INIT+4 |
| IOST | CONT+5, INIT+3, WRITE+7 |
| J | INIT+6~, INIT+7* |
| K | INIT+6~, INIT+7* |
| LASTLINE | LASTLINE+1~, LASTLINE+2*, LASTLINE+3, LASTLINE+4, LASTLINE+5, LASTLINE+8 |
| LEN | LASTLINE+1~, LASTLINE+5*, LASTLINE+6, LASTLINE+7 |
| NAM | END1+1!, INIT+9*, HDR2+1~, HDR2+2*, HDR2+4 |
| NDC | PICK+5*, ECK+1, END+1! |
| NUM | END+2!, INIT+1* |
| P2 | PICK+5*, PICK+6*, END+1! |
| PG | END+2!, INIT+1*, HDR1+4, HDR1+7* |
| >> PPI | PICK+5*, PICK+6*, SH+2, ECK+1*, ECK+3*, ECK+4* |
| >> PSNDFN | INIT+8, INIT+9, HDR2, HDR2+2 |
| >> PSNDRUG | PICK+2 |
| >> PSNTRADE | INIT+5 |
| >> PSRX | HDR1+3 |
| QUIT | CONT+5, SH+2, PRINTIT+1, END+1!, INIT+1*, DISC+8, WRITE+4, WRITE+7* |
| RN | ECK+1*, ECK+2*, ECK+3, END+1! |
| SECOND | PRINTIT+6~, PRINTIT+8*, PRINTIT+12 |
| SPACE | LASTLINE+1~, LASTLINE+7*, LASTLINE+8, HDR1+1~, HDR1+2*, HDR1+3!*, HDR1+4!*, HDR2+3~, HDR2+4*, HDR2+5!* , HDR2+6!* |
| STOP | PRINTIT+4~*, PRINTIT+5*, PRINTIT+14 |
| U | PICK+5, INIT+7, INIT+9, HDR2+2, DISC+3 |
| UTLIEN | WRITE+2~, WRITE+4*, WRITE+5, WRITE+6 |
| WORD | PRINTIT+4~, PRINTIT+5*, PRINTIT+7, PRINTIT+8, PRINTIT+11 |
| X | PICK+5*, PRINTIT~, PRINTIT+2*, PRINTIT+3*, PRINTIT+5, PRINTIT+7, PRINTIT+8, PRINTIT+9*, PRINTIT+11*, PRINTIT+12* , INIT+6~, INIT+7*, HDR1+2*, HDR1+3*, HDR1+4*, HDR1+6, HDR2+4*, HDR2+5*, HDR2+6*, HDR2+8 , DISC+5*, DISC+6*, DISC+9*, DISC+10, DISC+11* |
| XNDC | PICK+6, ECK+1*, ECK+2, END+1! |
| >> Y | PICK+4, DICS+1, WRITE+7 |