©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
APSPMAN2 ; IHS/DSD/ENM - MANUFACTURER DATA FOR RENEWED RX'S ; [ 05/26/98 11:43 AM ]
Source file <APSPMAN2.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To Pharmacy | 1 | (ASK,EP1)^APSPMAN |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DTO | ;S APSPRXX=$P(PSORENW("RX0"),U,6) D MAN2^APSPMAN ;IHS/DSD/ENM 10/29/97
|
|
| WR | ||
| ACT | ||
| LAST | ;CK MAN DATA IN LAST REFILL
|
|
| EP | ;ENTRY POINT FOR RENEWING RX
|
|
| OUT | ;SET VARIABLES FOR PSOR52 GLOBAL SET
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSRX - [#52] | EP+3, LAST+1 |
| Name | Line Occurrences |
|---|---|
| ACT | EP+5 |
| LAST | EP+3 |
| OUT | ACT |
| WR | EP+4, EP+6 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | EP+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APSPD | EP+2*, EP+4, EP+6*, LAST+2*, WR |
| >> APSPDY | OUT+3* |
| >> APSPL | EP+2*, EP+4, EP+6*, LAST+2*, WR |
| >> APSPLOT | OUT+3* |
| >> APSPLRF | LAST+1*, LAST+2 |
| >> APSPMAN | EP+1 |
| >> APSPMF | OUT+3* |
| >> APSPMM | EP+2*, EP+4, EP+6*, LAST+2*, WR |
| >> APSPRXX | ACT*, DTO+1* |
| DIR | ACT! |
| DIR("?" | ACT* |
| DIR("A" | ACT* |
| DIR("B" | ACT* |
| DIR(0 | ACT* |
| >> LASTRF | EP+3*, LAST+1 |
| >> PSONEW("EXPIR | ATION DATE" , OUT+1, OUT+3 |
| >> PSONEW("LOT # | " , OUT+1, OUT+3 |
| >> PSONEW("MANUFACTURER" | OUT+1, OUT+3 |
| >> PSORENW("EXPI | RATION DATE" , OUT+1* |
| >> PSORENW("LOT | #" , OUT+1* |
| >> PSORENW("MANUFACTURER" | OUT+1* |
| >> PSORENW("OIRXN" | EP+3, LAST+1 |
| >> PSORENW("RX0" | ACT, DTO+1 |
| >> PSORENW("RX2" | EP+5, EP+6 |
| U | ACT, DTO+1 |
| >> Y | ACT |