PSARDCU1 ;BIRM/MFR - Return Drug - Utilities (Cont.) ;07/01/08
Source file <PSARDCU1.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
ITEM(PHARMLOC,BATCH,ITEM,QUIT) | ; - Add/Edit Item
|
|
DRUG | ; - Drug
|
|
MFR | ; - Manufacturer
|
|
NDC | ; - NDC
|
|
ORDUNT | ; - Order Unit
|
|
DSPUNT | ; - Dispense Unit
|
|
DUOU | ; - Number of Dispense Units per Order Unit
|
|
NUMOU | ; - Number of Order Units Returned
|
|
NUMDU | ; - Number of Dispense Units Returned
|
|
UPC | ; - UPC
|
|
EXPDT | ; - Expiration Date
|
|
REASON | ; - Return Reason
|
|
UPDINV | ; - Update Inventory?
|
|
CONF | ; - Confirm?
|
|
END | ||
GOTO(INPUT,HOME) | ; - Directed up-arrow
|
|
LOAD() | ; - Load existing item information
|
|
CHKREQ() | ; - Checking for required fields
|
|
SAVE() | ; - Saves Item
|
|
AUDIT() | ; - Activity Log/Inventory Update
|
|
LOGACT(FIELD,OLDVALUE,NEWVALUE,TYPE,COMM) | ; - Log an activity for the return item
|
Name | Field # of Occurrence |
---|---|
^DIC | DRUG+4, ORDUNT+7 |
FILE^DICN | SAVE+10 |
$$GET1^DID | LOGACT+2 |
^DIE | SAVE+19 |
$$GET1^DIQ | DRUG+8, DRUG+9, DRUG+10, DRUG+11, DRUG+13, ORDUNT+2, ORDUNT+3, ORDUNT+4, DSPUNT+2, DSPUNT+3 , DUOU+1, DUOU+5, LOAD+16 |
GETS^DIQ | LOAD+7, AUDIT+2 |
^DIR | MFR+5, DSPUNT+8, DUOU+9, NUMOU+6, NUMDU+8, UPC+5, EXPDT+6, REASON+3, UPDINV+5, CONF+2 |
NDCEDT^PSANDCUT | NDC+2 |
LOGACT^PSARDCUT | LOGACT+4 |
UPDINV^PSARDCUT | SAVE+20, AUDIT+10, AUDIT+11, AUDIT+15, AUDIT+16, AUDIT+20 |
$$FMTE^XLFDT | EXPDT+4 |
$$NOW^XLFDT | SAVE+9 |
$$UP^XLFSTR | EXPDT+4, GOTO+3 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^PSDRUG - [#50] | Classic Fileman Calls, GET1^DIQ |
^DIC(51.5 - [#51.5] | Classic Fileman Calls, GET1^DIQ |
58.3511 | GET1^DID, GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PSD(58.8 - [#58.8] | UPDINV+6 |
Name | Line Occurrences |
---|---|
$$CHKREQ | CONF+4 |
$$GOTO | DRUG+7, MFR+5, NDC+3, ORDUNT+7, DSPUNT+9, DUOU+9, NUMOU+6, NUMDU+8, UPC+6, EXPDT+7 , REASON+3, UPDINV+5, CONF+2, CONF+4 |
@( | DRUG+7, MFR+5, NDC+3, ORDUNT+7, DSPUNT+9, DUOU+9, NUMOU+6, NUMDU+8, UPC+6, EXPDT+7 , REASON+3, UPDINV+5, CONF+2, CONF+4 |
AUDIT | CONF+6 |
DRUG | DRUG+5 |
DSPUNT | ORDUNT+4, DSPUNT+8, DSPUNT+11 |
DUOU | DSPUNT+3, DSPUNT+10 |
END | DRUG+4 |
EXPDT | UPC+7, EXPDT+6 |
LOAD | ITEM+5 |
LOGACT | AUDIT+7 |
MFR | MFR+6 |
NDC | MFR+7 |
NUMDU | NUMOU+7 |
NUMOU | DUOU+5 |
ORDUNT | ORDUNT+8 |
REASON | EXPDT+8, REASON+4 |
SAVE | CONF+6 |
UPC | UPC+5 |
UPDINV | UPDINV+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | EXPDT+2~ |
BATCH | ITEM~, LOAD+7, LOAD+8, SAVE+5, SAVE+8, SAVE+18, SAVE+20, AUDIT+2, AUDIT+3, AUDIT+10 , AUDIT+11, AUDIT+15, AUDIT+16, AUDIT+20, LOGACT+4 |
COMM | LOGACT~, LOGACT+1, LOGACT+2*, LOGACT+3*, LOGACT+4 |
DA | SAVE+1~, SAVE+18* |
DA(1 | SAVE+5* |
DA(2 | SAVE+5* |
DATA | ITEM+3~, LOAD+7!, AUDIT+2! |
DATA( | LOAD+8, AUDIT+3 |
DD | SAVE+7~, SAVE+10! |
DEFQTY | NUMDU+1!, NUMDU+2*, NUMDU+4, NUMDU+6 |
DIC | ITEM+3~, DRUG+1!, DRUG+2*, ORDUNT+1!, ORDUNT+5*, SAVE+7~, SAVE+8* |
DIC("A" | DRUG+2*, ORDUNT+5* |
DIC("B" | DRUG+3*!, ORDUNT+6*! |
DIC("DR" | SAVE+9* |
DIC(0 | DRUG+2*, ORDUNT+5*, SAVE+8* |
DIE | SAVE+1~, SAVE+18* |
DINUM | SAVE+7~ |
DIR | ITEM+3~, MFR+1!, DSPUNT+4!, DUOU+3!, NUMOU+1!, NUMDU+1!, UPC+1!, EXPDT+1!, REASON+1!, UPDINV+1! |
DIR("?" | MFR+4*, DSPUNT+7*, DUOU+8*, NUMOU+5*, NUMDU+7*, UPC+4*, EXPDT+5* |
DIR("A" | MFR+2*, DSPUNT+5*, DUOU+6*, NUMOU+3*, NUMDU+5*, UPC+2*, EXPDT+3*, REASON+3*, UPDINV+5*, CONF+1* |
DIR("B" | MFR+3*!, MFR+6!, DSPUNT+6*!, DSPUNT+8!, DUOU+7*!, NUMOU+4*!, NUMDU+6*!, UPC+3*!, UPC+5!, EXPDT+4*! , EXPDT+6!, REASON+2*!, UPDINV+4*!, CONF+1* |
DIR(0 | MFR+2*, DSPUNT+5*, DUOU+6*, NUMOU+3*, NUMDU+5*, UPC+2*, EXPDT+3*, REASON+2*, UPDINV+2*, CONF+1* |
DIROUT | MFR+1!, MFR+5, DSPUNT+4!, DSPUNT+9, DUOU+9, NUMOU+6, NUMDU+8, UPC+6, REASON+1!, REASON+3 , UPDINV+1!, UPDINV+5, CONF+2, END |
DIRUT | MFR+1!, MFR+5, DSPUNT+4!, DSPUNT+9, DUOU+9, NUMOU+6, NUMDU+8, UPC+6, REASON+1!, REASON+3 , UPDINV+1!, UPDINV+5, CONF+2, END |
DLAYGO | SAVE+7~ |
DO | SAVE+7~, SAVE+10! |
DR | SAVE+1~, SAVE+7~, SAVE+13*, SAVE+14*, SAVE+15*, SAVE+16* |
DTOUT | DRUG+4, ORDUNT+7, EXPDT+2~, EXPDT+7, END |
DUOUT | DRUG+7, ORDUNT+7, EXPDT+2~, EXPDT+7, END |
DUZ | SAVE+9 |
EXPDT | ITEM+3~, LOAD+2* |
FIELD | LOGACT~, LOGACT+2 |
FIELDS | ITEM+1~, LOAD+1*, LOAD+7, AUDIT+2 |
FLD | AUDIT+2~, AUDIT+4*, AUDIT+5*, AUDIT+6, AUDIT+7, AUDIT+9, AUDIT+14, AUDIT+19 |
GOTO | GOTO+1~, GOTO+19*, GOTO+20*, GOTO+21, GOTO+23 |
HOME | GOTO~, GOTO+19, GOTO+21 |
INPUT | GOTO~, GOTO+2, GOTO+3*, GOTO+5 |
ITEM | ITEM~, LOAD+5, LOAD+7, LOAD+8, SAVE+6, SAVE+11*, SAVE+18, SAVE+20, AUDIT+2, AUDIT+3 , AUDIT+10, AUDIT+11, AUDIT+15, AUDIT+16, AUDIT+20, LOGACT+4 |
NEWDATA | ITEM+3~, AUDIT+3!* |
NEWDATA( | AUDIT+6, AUDIT+7, AUDIT+11, AUDIT+12 |
NEWDATA(14 | AUDIT+11, AUDIT+16, AUDIT+17 |
NEWDATA(17 | AUDIT+11, AUDIT+16, AUDIT+20 |
NEWITEM | SAVE+1~, SAVE+5*, SAVE+11*, SAVE+20 |
NEWVALUE | LOGACT~, LOGACT+3 |
OLDDATA | ITEM+3~, LOAD+8!*, AUDIT+1 |
OLDDATA( | LOAD+10, AUDIT+5, AUDIT+6, AUDIT+7, AUDIT+10, AUDIT+12 |
OLDDATA(14 | LOAD+13, AUDIT+10, AUDIT+15, AUDIT+17, AUDIT+20 |
OLDDATA(15 | LOAD+13 |
OLDDATA(16 | LOAD+14 |
OLDDATA(17 | LOAD+14, AUDIT+10, AUDIT+15, AUDIT+20 |
OLDDATA(2 | LOAD+10 |
OLDDATA(3 | LOAD+11 |
OLDDATA(4 | LOAD+11 |
OLDDATA(5 | LOAD+11 |
OLDDATA(6 | LOAD+12 |
OLDDATA(7 | LOAD+12 |
OLDDATA(8 | LOAD+12 |
OLDDATA(9 | LOAD+13 |
OLDVALUE | LOGACT~, LOGACT+3 |
PHARMLOC | ITEM~, UPDINV+6, LOAD+7, LOAD+8, SAVE+5, SAVE+8, SAVE+18, SAVE+20, AUDIT+2, AUDIT+3 , AUDIT+10, AUDIT+11, AUDIT+15, AUDIT+16, AUDIT+20, LOGACT+4 |
PRPT | ITEM+3~, DUOU+3!, DUOU+4*, DUOU+5, DUOU+6, DUOU+8, NUMOU+1!, NUMOU+2*, NUMOU+3, NUMOU+5 , NUMDU+1!, NUMDU+3*, NUMDU+4, NUMDU+5, NUMDU+7 |
PSAACTCR | ITEM+2~, LOAD+3* |
PSACOST | ITEM+2~, LOAD+3* |
PSADRNAM | ITEM+2~, DRUG+3, DRUG+8*, LOAD+10* |
PSADRUG | ITEM+3~, DRUG+5, DRUG+8*, DRUG+9, DRUG+11, DRUG+13, NDC+2, ORDUNT+2, ORDUNT+4, DSPUNT+2 , DSPUNT+3, DUOU+1, DUOU+5, UPDINV+6, LOAD+2*, LOAD+10*, SAVE+8, SAVE+13, SAVE+20, AUDIT+15 , AUDIT+16, AUDIT+20 |
PSADSPUN | ITEM+1~, DRUG+11*, DSPUNT+1, DSPUNT+2*, DSPUNT+3, DSPUNT+6, DSPUNT+8*, DSPUNT+10*, DSPUNT+12*, LOAD+3* , LOAD+12*, LOAD+17 |
PSADUNAM | ITEM+2~, DRUG+11*, DRUG+12*, DSPUNT+2*, DSPUNT+12*, DUOU+5, DUOU+6, DUOU+8, NUMDU+3, GOTO+12 , GOTO+13, LOAD+17* |
PSADUOU | ITEM+1~, DRUG+13*, DUOU+1*, DUOU+2*, DUOU+5, DUOU+7, DUOU+10*, NUMDU+2, LOAD+2*, LOAD+12* , CHKREQ+1, CHKREQ+4 |
PSAESTCR | ITEM+2~, LOAD+3* |
PSAEXPDT | ITEM+2~, EXPDT+4, EXPDT+6*, EXPDT+8*, EXPDT+9*, LOAD+13* |
PSAMFR | ITEM+1~, MFR+3, MFR+6*, MFR+7*, MFR+8*, LOAD+2*, LOAD+10* |
PSANDC | ITEM+1~, NDC+1*, NDC+2, NDC+3*, LOAD+2*, LOAD+11* |
PSAORDUN | ITEM+1~, DRUG+9*, DRUG+10, ORDUNT+2*, ORDUNT+3, ORDUNT+9*, LOAD+2*, LOAD+11*, LOAD+16, CHKREQ+1 , CHKREQ+3 |
PSAOUNAM | ITEM+3~, DRUG+10*, ORDUNT+3*, ORDUNT+4, ORDUNT+6, ORDUNT+9*, DUOU+4, NUMOU+2, GOTO+11, LOAD+16* |
PSAQTYDU | ITEM+1~, NUMDU+4, NUMDU+9*, LOAD+2*, LOAD+14*, CHKREQ+1, CHKREQ+5, SAVE+20 |
PSAQTYOU | ITEM+1~, NUMOU+4, NUMOU+7*, NUMOU+8*, NUMDU+2, LOAD+2*, LOAD+12* |
PSAREAS | ITEM+2~, REASON+2, REASON+5*, LOAD+3*, LOAD+13*, CHKREQ+1, CHKREQ+6 |
PSAUIEXT | UPDINV+1!, UPDINV+3*, UPDINV+4 |
PSAUPC | ITEM+1~, UPC+3, UPC+5*, UPC+7*, UPC+8*, LOAD+2*, LOAD+11* |
PSAUPINV | ITEM+2~, UPDINV+3, UPDINV+9*, UPDINV+10*, LOAD+3*, LOAD+13*, SAVE+20 |
PSAUSER | ITEM+3~, LOAD+3*, LOAD+14* |
QUIT | ITEM~, END* |
TAG | GOTO+1~, GOTO+20* |
TAG( | GOTO+20 |
TAG("DISPENSE | UNIT" , GOTO+10* |
TAG("DRUG" | GOTO+6* |
TAG("EXPIRATI | ON DATE" , GOTO+15* |
TAG("MFR" | GOTO+7* |
TAG("NDC" | GOTO+8* |
TAG("NUMBER O | F " , GOTO+11*, GOTO+12*, GOTO+13* |
TAG("ORDER UN | IT" , GOTO+9* |
TAG("RETURN R | EASON" , GOTO+16* |
TAG("UPC" | GOTO+14* |
TAG("UPDATE I | NVENTORY" , GOTO+17* |
TRGT | GOTO+1~, GOTO+5*, GOTO+20 |
TYPE | LOGACT~, LOGACT+4 |
X | ITEM+3~, DRUG+1!, DRUG+5, DRUG+7, MFR+5, MFR+6, MFR+7, MFR+8, NDC+3*, ORDUNT+1! , ORDUNT+7, ORDUNT+8, DSPUNT+8, DSPUNT+9, DSPUNT+10, DSPUNT+11, DSPUNT+12, DUOU+3!, DUOU+9, NUMOU+1! , NUMOU+6, NUMOU+7, NUMDU+1!, NUMDU+8, UPC+1!, UPC+5, UPC+6, UPC+7, UPC+8, EXPDT+1! , EXPDT+6, EXPDT+7, EXPDT+8, REASON+3, REASON+4, UPDINV+5, CONF+2, SAVE+7~, SAVE+8* |
Y | ITEM+3~, DRUG+1!, DRUG+8, ORDUNT+1!, ORDUNT+9, DUOU+3!, DUOU+10, NUMOU+1!, NUMOU+8, NUMDU+1! , NUMDU+9, UPC+1!, EXPDT+1!, EXPDT+9, REASON+5, UPDINV+6, UPDINV+10, CONF+2, SAVE+11 |
Y(0 | ORDUNT+9 |