PSJPAD70 ;BIR/JCH - HL7 UTILITY FOR PADE INBOUND POCKET ACTIVITY ;01/06/16 1:34 PM
Source file <PSJPAD70.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DWO(PSJOMS) | ; Send Dispensed Without Order (DWO) Alert
|
|
| ACTDWO(PSJOMS) | ||
| GETGRPS(PSJOMS,GROUPS) | ||
| DWOSEND(PSJOMS,GROUPS) | ;This routine will generate a mailman message when an order is dispensed without an order, and a DWO mail group is defined
|
|
| UNLOAD(PSJPSYS,PADIEN,DRWIEN,DRGIEN,DRGDEV,PCKIEN) | ; Unload (delete) a drug from pocket and drawer for device DEV and system SYS
; INPUT ; PSJPSYS - Inventory System entry from file 58.601 ; PADIEN - Dispensing Device (#1) field (subfile 58.6011) from file 58.601 ; DRWIEN - Drawer (#2) field (subfile 58.60112) from dispensing device subfile (#58.60111) in file 58.601 ; DRGIEN - Drug (Drawer) (#1) field (subfile 58.601121) from drawer subfile (#58.60112) in file 58.61 ; DRGDEV - Drug (Device) (#2) field (subfile 58.60111) from dispensing device subfile (#58.6011) in file 58.601 ; PCKIEN - Pocket/Subdrawer (#2) field (subfile 58.601122) from drawer subfile (58.60112) in file 58.601 |
|
| MANUN(PADEV) | ; Manually unload one drug at a time from PADE INVENTORY SYSTEM (#58.601) file for device PADEV pointer to DISPENSING DEVICE (#58.63) file
; Input : PADEV - Pointer to PADE DISPENSING DEVICE (#58.63) file |
|
| UNLDONE(PADEV) | ; Manually unload a drug from a pocket
; Input : PADIEN = PADE Dispensing Device IEN (required) |
|
| UNLHLP | ||
| OLDPKUP(TMPADATA,ERRMSG,PS586IEN) |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
