PSJPADIT ;BIR/JCH-INPATIENT PADE INVENTORY FILE UTILITIES ;25 SEP 97 / 7:41 AM
Source file <PSJPADIT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FIL58601(PADATA,PSJOMS) | ; File PADE data into PADE INVENTORY file #58.601
; PADE HL7 messages filed into the PADE IN TRANSACTION (#58.6) trigger new-style 'AC' action cross reference, entering here. |
|
| DELCHK(PADATA) | ; Check if incoming transaction represents a drug removed from the device
|
|
| FILSYS(PADATA,ERRMSG) | ; Check for PADE Inbound System in PADE INVENTORY file
|
|
| FILEDEV(XARRAY) | ; File device from PADE DISPENSING DEVICE (#58.63) file
|
|
| FILDRWR(PADATA,ERRMSG) | ; Add PADE Drawer to PADE System's DISPENSING DEVICE in PADE INVENTORY file
|
|
| FILDRUG(PADATA,ERRMSG) | ||
| DRGDRWR(PADATA,ERRMSG) | ||
| UPDEVBAL(PADATA,ERRMSG) | ||
| UPDRWBAL(PADATA,ERRMSG) | ||
| UPCKDRW(PADATA,ERRMSG) | ||
| UPCKBAL(PADATA,ERRMSG) | ||
| LOGERR(ERRMSG) | ; Log error ERRMSG
|
|
| ORDIX(PS586IEN) | ||
| DRWRBAL(PADESYS,PADEDEV,PADEDRWR,DRUGIEN) | ||
| DEVBAL(PADESYS,PADEDEV,DRUGIEN) | ||
| TSIGN(PADATA) | ; Determine if the transaction amount needs to be added or subtracted, depending on the transaction type
|
