©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
APSQMAN ; IHS/DSD/ENM/POC - PROCESS RX MANUFACT DATA 12-94 ;
Source file <APSQMAN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LBL | ;EP - Called by APSPLBL for label man data
|
|
| MAN2 | ;EP - ASK/DSPL MFG EXP DATE ONLY
|
|
| MANS | ||
| EP1 | ;EP
|
|
| LBDT | ;Called by APSPLBL for Ex Date only
|
|
| BP | ||
| ASK | ;EP - ASK FOR MFG NAME,LOT #, MFG EXP DT
|
|
| NMFG | ||
| EP | ;EP
|
|
| NOMAN | ;EP
|
| Name | Field # of Occurrence |
|---|---|
| ^DIE | ASK+2, MAN2+2 |
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(55.95 - [#55.95] | MANS+3 |
| ^PSDRUG - [#50] | MANS |
| ^PSRX - [#52] | LBL+4, LBDT+3 |
| Name | Line Occurrences |
|---|---|
| BP | MANS+2 |
| LBDT | LBL+2 |
| MANS | ASK+2 |
| NMFG | LBL+1 |
| NOMAN | EP1+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APSP("LOT" | LBL+4*, LBL+5 |
| >> APSP("MANF" | LBL+4*, LBL+5 |
| >> APSP("MANXDT" | LBL+4*, LBL+5, LBDT+3*, LBDT+4 |
| >> APSP1 | MANS+1*, MANS+2, MANS+3 |
| >> APSP2 | MANS+2*, MANS+3*, BP, BP+1 |
| >> APSPDY | LBL+3*, LBL+5*, LBDT+1*, LBDT+2*, LBDT+4*, NMFG* |
| >> APSPLOT | LBL+3*, LBL+5*, LBDT+1*, LBDT+2*, LBDT+4*, NMFG* |
| >> APSPLTYP | LBL+3, LBDT+1, LBDT+2 |
| >> APSPM0 | MANS*, MANS+1, LBL+4* |
| >> APSPMAN | EP1+1, LBL+1, LBL+2 |
| >> APSPMF | LBL+3*, LBL+5*, LBDT+1*, LBDT+2*, LBDT+4*, NMFG* |
| >> APSPPDY | BP+1*, NOMAN+3*, LBL+3, LBDT+1, LBDT+2 |
| >> APSPPLOT | BP+1*, NOMAN+3*, LBL+3 |
| >> APSPPMF | BP+1*, NOMAN+3*, LBL+3 |
| >> APSPRXX | EP+1*, ASK+1, MAN2+1, MANS |
| >> DA | ASK+1*, MAN2+1* |
| >> DIE | ASK+1*, MAN2+1* |
| >> DR | ASK+1*, MAN2+1* |
| >> P(99 | MANS+1*, NOMAN+1* |
| >> PSONEW("EXPIR | ATION DATE" , MANS+1*, BP+1, NOMAN+1* |
| >> PSONEW("LOT # | " , MANS+1*, BP+1, NOMAN+1* |
| >> PSONEW("MANUFACTURER" | BP*, NOMAN+2* |
| >> PSOY | EP+1 |
| >> RX | LBL+4, LBDT+3 |
| U | EP+1, MANS+1, MANS+3, LBL+4, LBDT+3 |