Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSJPAD70

Package: Inpatient Medications

Routine: PSJPAD70


Information

PSJPAD70 ;BIR/JCH - HL7 UTILITY FOR PADE INBOUND POCKET ACTIVITY ;01/06/16 1:34 PM

Source Information

Source file <PSJPAD70.m>

Entry Points

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)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ...Done."
  • Line Location: UNLDONE+58

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(58.601 - [#58.601] FIND1^DIC
58.60111 FIND1^DIC
58.601122 FIND1^DIC
58.6014 LIST^DIC
58.60141 LIST^DIC
^PS(58.63 - [#58.63] FIND1^DIC,  GETS^DIQ
58.635 LIST^DIC
58.636 LIST^DIC
58.637 LIST^DIC
58.638 LIST^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call