©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
APSPMAN1 ; IHS/DSD/ENM - MANUFACTURER DATA FOR REFILL RX'S ; [ 02/20/2001 1:48 PM ]
Source file <APSPMAN1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | ^DIE ^DIR |
| IHS Changes To Pharmacy | 1 | (ASK,MAN2,NOMAN)^APSPMAN |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DTCK | ;MFG DATE CHECK FOR CHANGE
|
|
| OUT1 | ;SET VARIABLES FOR GLOBAL SET
|
|
| DTO | ;EP FOR REFILL RX (W/mfg 'date only' set) IHS/DSD/ENM 01/29/96
|
|
| ZPAR | ;GET MFG DATA FOR PARTIAL RX OPT
|
|
| DCQX | ||
| ACT1 | ;EP
|
|
| WR1 | ||
| ALLCK | ||
| EP1 | ;ENTRY POINT FOR EDIT RX OPT
|
|
| EXIT | ;K APSPN,APSPL,APSPM,APSPMM,APSPD,PSONEW("LOT #"),PSONEW("MANUFACTURER"),PSONEW("EXPIRATION DATE")
|
|
| WR | ||
| ACT | ||
| LAST | ;CK MAN DATA IN LAST REFILL
|
|
| NMFG | ;EP FOR REFILL RX (W/no mfg set) IHS/DSD/ENM 02/15/96
|
|
| DCQ | ;CHECK FOR CHNG'ed DATA AFTER EDITING AN RX
|
|
| EP | ;ENTRY POINT - FOR REFILL RX (W/edit 'all' mfg data set to 'yes')
|
|
| OUT | ;SET VARIABLES FOR PSOR52 GLOBAL SET
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | Classic Fileman Calls |
| ^PSRX - [#52] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(52 | ALLCK+3, ALLCK+4, ALLCK+5, DTCK+2 |
| ^PSDRUG - [#50] | DTO+4 |
| ^PSRX - [#52] | EP+4, LAST+1, DTO+1 |
| Name | Line Occurrences |
|---|---|
| ACT | EP+7 |
| ACT1 | EP1+7 |
| ALLCK | DCQ+3 |
| DCQX | DCQ+3 |
| DTCK | DCQ+4 |
| EXIT | OUT+4, OUT1+3, OUT1+4, OUT1+6 |
| LAST | EP+4 |
| OUT | ACT |
| OUT1 | ACT1+1 |
| WR | EP+5, EP+8 |
| WR1 | EP1+7 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | EP+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APSP("PD" | ACT1+2 |
| >> APSP("PL" | ACT1+2 |
| >> APSP("PM" | ACT1+2 |
| >> APSPD | EP+2*, EP+5, EP+8*, LAST+2*, WR, EP1+2*, EP1+3*, EP1+4*, EP1+5*, WR1 |
| >> APSPDY | DTO+7*, DTO+8*, NMFG+5*, OUT+3*, OUT1+3*, OUT1+4*, OUT1+5* |
| >> APSPL | EP+2*, EP+5, EP+8*, LAST+2*, WR, EP1+2*, EP1+3*, EP1+4*, EP1+5*, WR1 |
| >> APSPLOT | DTO+6*, NMFG+4*, OUT+3*, OUT1+3*, OUT1+4*, OUT1+5* |
| >> APSPLRF | LAST+1*, LAST+2 |
| >> APSPLTYP | EP+6*, EP1+2, EP1+3, EP1+7 |
| >> APSPMAN | EP+1, ACT, EP1+1, ACT1+1, ACT1+4, ACT1+5, OUT1+3, OUT1+4, DCQ+1, DCQ+3 , DCQ+4 |
| >> APSPMF | DTO+6*, NMFG+4*, OUT+3*, OUT1+3*, OUT1+4*, OUT1+5* |
| >> APSPMM | EP+2*, EP+5, EP+8*, LAST+2*, WR, EP1+2*, EP1+3*, EP1+4*, EP1+5*, WR1 |
| >> APSPRXX | DTO+1*, DTO+2, DTO+4, ACT*, ACT+1* |
| >> APSPXED | DCQ+2*, ALLCK*, ALLCK+3, DTCK+1*, DTCK+2 |
| >> APSPXLT | DCQ+2*, ALLCK+1*, ALLCK+4 |
| >> APSPXMF | DCQ+2*, ALLCK+2*, ALLCK+5 |
| >> APSPYN | ACT1+1*, ACT1+2 |
| >> COM | ALLCK+3*, ALLCK+4*, ALLCK+5*, DTCK+2* |
| DA | DTO+2*, ALLCK+6*!, DTCK+2*! |
| DIE | DTO+2*, ALLCK+6*!, DTCK+2*! |
| DIR | ACT!, ACT1+1! |
| DIR("?" | ACT*, ACT1+1* |
| DIR("A" | ACT*, ACT1+1* |
| DIR("B" | ACT*, ACT1+1* |
| DIR(0 | ACT*, ACT1+1* |
| DR | DTO+2*, ALLCK+3*, ALLCK+4*, ALLCK+5*, ALLCK+6!, DTCK+2*! |
| >> LASTRF | EP+4*, LAST+1 |
| >> PS | ACT1+2 |
| >> PSONEW("EXPIR | ATION DATE" , OUT+1, OUT+3, ACT1+2*, OUT1+1, OUT1+4, OUT1+5, ALLCK |
| >> PSONEW("LOT # | " , OUT+1, OUT+3, ACT1+2*, OUT1+1, OUT1+5, ALLCK+1 |
| >> PSONEW("MANUFACTURER" | OUT+1, OUT+3, ACT1+2*, OUT1+1, OUT1+5, ALLCK+2 |
| >> PSOREF("EXPIR | ATION DATE" , DTO+4*, DTO+7, DTO+8, NMFG+2*, OUT+1*, OUT1+1*, DTCK+1 |
| >> PSOREF("IRXN" | EP+4, LAST+1, DTO+1 |
| >> PSOREF("LOT # | " , DTO+4*, NMFG+2*, OUT+1*, OUT1+1* |
| >> PSOREF("MANUFACTURER" | DTO+4*, NMFG+2*, OUT+1*, OUT1+1* |
| >> PSOREF("RX0" | ACT, ACT+1 |
| >> PSOREF("RX2" | EP+7, EP+8 |
| >> PSORXED("IRXN" | ALLCK+6, DTCK+2 |
| >> PSORXED("RX2" | EP1+4, EP1+5, ALLCK, ALLCK+1, ALLCK+2, DTCK+1 |
| >> RX2 | EP1+2, EP1+3 |
| U | ACT, ACT+1 |
| X | ALLCK+6!, DTCK+2! |
| Y | ACT, ACT1+1, ALLCK+6!, DTCK+2! |