Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Inpatient Medications 5 GETPDMGR^PSJPAD7I  ASKRESET^PSJPADPT  DRCAB^PSJPDRIN  ALLSCHED^PSJPDRIP  DRUGSEL^PSJPDRTR  
VA FileMan 5 EN^DDIOL  ($$FIND1,LIST)^DIC  ^DIK  GETS^DIQ  ^DIR  
Health Level Seven 1 $$FMDATE^HLFNC  
Kernel 1 ($$FMTE,$$FMTHL7,$$NOW)^XLFDT  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSJPAD7I  PSJPADIT  PSJPADPT  

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)

External References

Name Field # of Occurrence
EN^DDIOL UNLHLP+11
$$FIND1^DIC ACTDWO+4, ACTDWO+7, GETGRPS+34, GETGRPS+37, OLDPKUP+6, OLDPKUP+13, OLDPKUP+33, OLDPKUP+38
LIST^DIC GETGRPS+42, GETGRPS+46, GETGRPS+50, GETGRPS+54, GETGRPS+58, GETGRPS+67
^DIK UNLOAD+13, UNLOAD+15, UNLOAD+22
GETS^DIQ ACTDWO+9, GETGRPS+38
^DIR MANUN+6, UNLDONE+45, UNLDONE+61
$$FMDATE^HLFNC DWOSEND+17
GETPDMGR^PSJPAD7I DWOSEND+32
ASKRESET^PSJPADPT UNLDONE+23
DRCAB^PSJPDRIN UNLDONE+17
ALLSCHED^PSJPDRIP UNLDONE+14
DRUGSEL^PSJPDRTR UNLDONE+19
$$FMTE^XLFDT DWOSEND+17
$$FMTHL7^XLFDT DWOSEND+9
$$NOW^XLFDT DWOSEND+9
^XMD DWOSEND+35

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ...Done."
  • Line Location: UNLDONE+58
Routine Call
  • DIC
  • Line Location:
    • ACTDWO+4
    • ACTDWO+7
    • GETGRPS+34
    • GETGRPS+37
    • OLDPKUP+6
    • OLDPKUP+13
    • OLDPKUP+33
    • OLDPKUP+38
Routine Call
  • DIC
  • Line Location:
    • GETGRPS+42
    • GETGRPS+46
    • GETGRPS+50
    • GETGRPS+54
    • GETGRPS+58
    • GETGRPS+67
Routine Call
  • DIR
  • Line Location:
    • MANUN+6
    • UNLDONE+45
    • UNLDONE+61

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(58.6 - [#58.6] OLDPKUP+36
^PS(58.601 - [#58.601] GETGRPS+68, UNLOAD+11, UNLOAD+19, UNLDONE+9, UNLDONE+55, UNLDONE+56*, OLDPKUP+10, OLDPKUP+12, OLDPKUP+15, OLDPKUP+19
, OLDPKUP+40, OLDPKUP+42
^PS(58.63 - [#58.63] UNLDONE+6
^PSDRUG - [#50] DWOSEND+7, OLDPKUP+27, OLDPKUP+45

Label References

Name Line Occurrences
$$ACTDWO DWO+3
DWOSEND DWO+5
GETGRPS DWO+4
UNLDONE MANUN+10
UNLOAD UNLDONE+57

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CABIEN ACTDWO+1~, ACTDWO+7*, ACTDWO+9, ACTDWO+10
CABNAME ACTDWO+1~, ACTDWO+6*, ACTDWO+7
CC GETGRPS+42~*, GETGRPS+43, GETGRPS+46~*, GETGRPS+47
CG GETGRPS+46~, GETGRPS+47*
CL GETGRPS+42~, GETGRPS+43*
D OLDPKUP+32~
D0 OLDPKUP+32~
DA UNLOAD+9~, UNLOAD+13*, UNLOAD+15*, UNLOAD+18~, UNLOAD+22*, OLDPKUP+32~
DA(1 UNLOAD+13*, UNLOAD+15*, UNLOAD+22*
DA(2 UNLOAD+13*, UNLOAD+15*, UNLOAD+22*
DA(3 UNLOAD+13*, UNLOAD+15*
DD OLDPKUP+32~
DEVBAL UNLOAD+18~, UNLOAD+19*, UNLOAD+20, UNLDONE+55*, UNLDONE+56
DEVIEN OLDPKUP+22~, OLDPKUP+24*, OLDPKUP+29, OLDPKUP+33
DIC OLDPKUP+32~
DICR OLDPKUP+32~
DICRS OLDPKUP+32~
DIE OLDPKUP+32~
DIERR ACTDWO+4!, ACTDWO+7!, ACTDWO+9!, GETGRPS+34!, GETGRPS+37!, GETGRPS+38!, OLDPKUP+6!, OLDPKUP+13!, OLDPKUP+33!, OLDPKUP+38!
DIK UNLOAD+9~, UNLOAD+12*, UNLOAD+14*, UNLOAD+18~, UNLOAD+21*
DIR MANUN+3~, UNLDONE+24~, UNLDONE+59~
DIR("?" MANUN+5*
DIR("A" MANUN+4*, UNLDONE+41*, UNLDONE+44*, UNLDONE+60*
DIR("B" MANUN+6*
DIR(0 MANUN+4*, UNLDONE+41*, UNLDONE+59*
DO OLDPKUP+32~
DR OLDPKUP+32~
DRGDEV UNLOAD~, UNLOAD+19, UNLOAD+22, UNLDONE+3~, UNLDONE+52*, UNLDONE+55, UNLDONE+56, UNLDONE+57
DRGDRW UNLDONE+31~, UNLDONE+33*, UNLDONE+36, UNLDONE+51*, UNLDONE+57
DRGFILNM DWOSEND+6~, DWOSEND+7*, DWOSEND+8*, DWOSEND+19, DWOSEND+26
DRGIEN UNLOAD~, UNLOAD+15, UNLDONE+3~, UNLDONE+4*
DRUG UNLDONE+3~, UNLDONE+19, OLDPKUP+22~, OLDPKUP+23*, OLDPKUP+26, OLDPKUP+27, OLDPKUP+33
DRWIEN UNLOAD~, UNLOAD+11, UNLOAD+12, UNLOAD+13, UNLOAD+14, UNLOAD+15, UNLDONE+3~, UNLDONE+4*, UNLDONE+29*, UNLDONE+30
, UNLDONE+32, UNLDONE+33, UNLDONE+34, UNLDONE+36, UNLDONE+49*, UNLDONE+57
DRWPCK UNLDONE+3~, UNLDONE+4*, UNLDONE+19, UNLDONE+20, UNLDONE+23, UNLDONE+27, UNLDONE+29, UNLDONE+30, UNLDONE+32, UNLDONE+33
, UNLDONE+34, UNLDONE+36, UNLDONE+52
DRWPCK( UNLDONE+29, UNLDONE+30, UNLDONE+32, UNLDONE+33, UNLDONE+34, UNLDONE+52
ENTITY DWOSEND+5~, DWOSEND+28*, DWOSEND+29, DWOSEND+30
ERR OLDPKUP+6!, OLDPKUP+13!, OLDPKUP+32~, OLDPKUP+38!
ERRMSG OLDPKUP~, OLDPKUP+45*, OLDPKUP+46*
ERROR ACTDWO+1~
FDA OLDPKUP+4~, OLDPKUP+32~
GROUPS DWO+1~, DWO+2*, DWO+4, DWO+5, GETGRPS~, GETGRPS+31!, GETGRPS+81*, DWOSEND~, DWOSEND+28
GROUPS( DWOSEND+28, DWOSEND+29, DWOSEND+30
HELPAR UNLHLP+1~, UNLHLP+11
HELPAR(1 UNLHLP+2*
HELPAR(2 UNLHLP+3*
HELPAR(3 UNLHLP+4*
HELPAR(4 UNLHLP+5*
HELPAR(5 UNLHLP+6*
HELPAR(6 UNLHLP+7*
HELPAR(7 UNLHLP+8*
HELPAR(8 UNLHLP+9*
HELPAR(9 UNLHLP+10*
HLCS DWOSEND+6~
HLFS DWOSEND+6~
MAILGRP DWOSEND+5~, DWOSEND+30*, DWOSEND+31
MGCNT DWOSEND+6~, DWOSEND+29*, DWOSEND+30
MSGTEXT DWOSEND+5~
MSGTEXT( DWOSEND+12*, DWOSEND+13*, DWOSEND+14*, DWOSEND+15*, DWOSEND+16*, DWOSEND+17*, DWOSEND+18*, DWOSEND+19*, DWOSEND+20*, DWOSEND+21*
, DWOSEND+22*, DWOSEND+23*, DWOSEND+24*
MSGTYPE DWOSEND+5~
MSHREC DWOSEND+5~
MTXTLN DWOSEND+6~, DWOSEND+11*, DWOSEND+12*, DWOSEND+13*, DWOSEND+14*, DWOSEND+15*, DWOSEND+16*, DWOSEND+17*, DWOSEND+18*, DWOSEND+19*
, DWOSEND+20*, DWOSEND+21, DWOSEND+22*, DWOSEND+23*, DWOSEND+24*
NEXT GETGRPS+30~, GETGRPS+77*, GETGRPS+78
PADEV MANUN~, MANUN+10, UNLDONE~, UNLDONE+5, UNLDONE+6, UNLDONE+9, UNLDONE+10, UNLDONE+23
PADIEN UNLOAD~, UNLOAD+11, UNLOAD+12, UNLOAD+13, UNLOAD+14, UNLOAD+15, UNLOAD+19, UNLOAD+21, UNLOAD+22, UNLDONE+3~
, UNLDONE+9*, UNLDONE+55, UNLDONE+56, UNLDONE+57
PCKCNT UNLDONE+24~, UNLDONE+25*, UNLDONE+35, UNLDONE+36, UNLDONE+37*, UNLDONE+39*, UNLDONE+40, UNLDONE+54
PCKIEN UNLOAD~, UNLOAD+13, UNLDONE+3~, UNLDONE+4*, UNLDONE+50*, UNLDONE+57
PCKNAME UNLDONE+31~, UNLDONE+32*, UNLDONE+35, UNLDONE+36
PCKSEL UNLDONE+24~, UNLDONE+35*, UNLDONE+37, UNLDONE+38
PCKSEL( UNLDONE+36*, UNLDONE+43, UNLDONE+46
PCKSTR UNLDONE+24~, UNLDONE+25*, UNLDONE+37*, UNLDONE+38*, UNLDONE+41, UNLDONE+42, UNLDONE+44
POCKET UNLDONE+28~, UNLDONE+30*, UNLDONE+32, UNLDONE+33, UNLDONE+34, UNLDONE+36
POCKSUB OLDPKUP+1~, OLDPKUP+37*, OLDPKUP+38, OLDPKUP+40
PRIO GETGRPS+30~, GETGRPS+71*, GETGRPS+77, GETGRPS+78
PS586IEN OLDPKUP~, OLDPKUP+36
PSDRG UNLDONE+3~
PSERR UNLOAD+9~
PSJCAB GETGRPS+31~, GETGRPS+37*, GETGRPS+38, GETGRPS+40, GETGRPS+42, GETGRPS+46, GETGRPS+50, GETGRPS+54
PSJCAB("FICHK" GETGRPS+37*
PSJCL GETGRPS+31~
PSJCL("DILIST" GETGRPS+42, GETGRPS+43, GETGRPS+44!
PSJCL("FICHK" GETGRPS+43*
PSJCLGRP GETGRPS+31~
PSJCLGRP("DILIST" GETGRPS+46, GETGRPS+47, GETGRPS+48!
PSJCLGRP("FICHK" GETGRPS+47*
PSJCSUB UNLDONE+3~, UNLDONE+14*
PSJDIV GETGRPS+31~
PSJDIV( GETGRPS+40
PSJDIV("FICHK" GETGRPS+40*
PSJDRC UNLDONE+3~, UNLDONE+17, UNLDONE+19
PSJDWENT GETGRPS+30~, GETGRPS+68*, GETGRPS+70, GETGRPS+73, GETGRPS+77, GETGRPS+78
PSJDWINS GETGRPS+30~, GETGRPS+65*, GETGRPS+67, GETGRPS+68
PSJDWMG GETGRPS+30~, GETGRPS+76*, GETGRPS+78
PSJECNT GETGRPS+30~, GETGRPS+63*, GETGRPS+65
PSJENTYP GETGRPS+31~, GETGRPS+70*, GETGRPS+71, GETGRPS+73
PSJFICHK GETGRPS+31~, GETGRPS+73*
PSJHI GETGRPS+30~, GETGRPS+81*
PSJINP UNLDONE+3~, UNLDONE+17, UNLDONE+19
PSJINP("MANUNLOD" UNLDONE+16*
PSJINP("PADEV" UNLDONE+10*
PSJINP("PSDRG" UNLDONE+23*, UNLDONE+27*
PSJINP("PSJCSUB" UNLDONE+14*, UNLDONE+15*
PSJINP("PSJPSYS" UNLDONE+11*
PSJMCT GETGRPS+30~, GETGRPS+75*, GETGRPS+76
PSJOMS DWO~, DWO+3, DWO+4, DWO+5, ACTDWO~, GETGRPS~, DWOSEND~
PSJOMS("CABID" ACTDWO+6, GETGRPS+37, DWOSEND+15, DWOSEND+26
PSJOMS("DISPSYS" ACTDWO+3, GETGRPS+33, GETGRPS+35
PSJOMS("DRGITM" DWOSEND+7
PSJOMS("DRGTXT" DWOSEND+8
PSJOMS("NUR1A" DWOSEND+24
PSJOMS("NUR1B" DWOSEND+24
PSJOMS("NUR1C" DWOSEND+24
PSJOMS("PSJDT" DWOSEND+9*, DWOSEND+17
PSJOMS("PTID" DWOSEND+22
PSJOMS("PTNAMA" DWOSEND+21
PSJOMS("PTNAMB" DWOSEND+21
PSJOMS("PTNAMC" DWOSEND+21
PSJOMS("SSN" DWOSEND+22
PSJOMS("TTYPE" DWOSEND+10
PSJPSYS ACTDWO+1~, ACTDWO+3*, ACTDWO+4*, GETGRPS+30~, GETGRPS+33*, GETGRPS+34*, GETGRPS+35, GETGRPS+58, GETGRPS+67, GETGRPS+68
, UNLOAD~, UNLOAD+11, UNLOAD+12, UNLOAD+13, UNLOAD+14, UNLOAD+15, UNLOAD+19, UNLOAD+21, UNLOAD+22, UNLDONE+6*
, UNLDONE+7, UNLDONE+9, UNLDONE+11, UNLDONE+55, UNLDONE+56, UNLDONE+57, OLDPKUP+4~, OLDPKUP+10, OLDPKUP+11*, OLDPKUP+12
PSJPSYS("FICHK" GETGRPS+35*
PSJRSLT GETGRPS+30~
PSJRSLT("DILIST" GETGRPS+63, GETGRPS+65
PSJRSLT1 GETGRPS+30~
PSJRSLT1("DILIST" GETGRPS+75, GETGRPS+76
PSJSCR OLDPKUP+4~, OLDPKUP+11*, OLDPKUP+13
PSJSELY UNLDONE+24~, UNLDONE+46*, UNLDONE+49, UNLDONE+50, UNLDONE+51
PSJSTOP MANUN+9~*, MANUN+10, UNLDONE+4*, UNLDONE+19, UNLDONE+20*, UNLDONE+21, UNLDONE+45*, UNLDONE+48, UNLDONE+62*
PSJWGRP GETGRPS+31~
PSJWGRP("DILIST" GETGRPS+54, GETGRPS+55, GETGRPS+56!
PSJWGRP("FICHK" GETGRPS+55*
PSJWRD GETGRPS+31~
PSJWRD("DILIST" GETGRPS+50, GETGRPS+51, GETGRPS+52!
PSJWRD("FICHK" GETGRPS+51*
PSPRVDIE OLDPKUP+3~, OLDPKUP+40*, OLDPKUP+42
PSPRVDT OLDPKUP+2~, OLDPKUP+42*, OLDPKUP+44, OLDPKUP+46
RESULT ACTDWO+1~
RESULT( ACTDWO+10
SCHLST UNLDONE+3~, UNLDONE+13*, UNLDONE+14
SELCNT UNLDONE+24~, UNLDONE+42*, UNLDONE+43, UNLDONE+44
SUBID UNLDONE+31~, UNLDONE+34*, UNLDONE+36, UNLDONE+43~*, UNLDONE+44
SYSIEN OLDPKUP+22~, OLDPKUP+25*, OLDPKUP+30, OLDPKUP+33
TEMPGRP GETGRPS+30~
TEMPGRP( GETGRPS+77, GETGRPS+78*, GETGRPS+81
TEMPGRP("" GETGRPS+81
TMPADATA OLDPKUP~
TMPADATA("DEV ICE IEN" , OLDPKUP+13*, OLDPKUP+14, OLDPKUP+15*, OLDPKUP+16, OLDPKUP+19, OLDPKUP+24, OLDPKUP+38, OLDPKUP+40, OLDPKUP+42
TMPADATA("DRA WER IEN" , OLDPKUP+19*, OLDPKUP+20, OLDPKUP+38, OLDPKUP+40, OLDPKUP+42
TMPADATA("DRU G DEV IEN" , OLDPKUP+33*
TMPADATA("POC K/SUB IEN" , OLDPKUP+38*
TMPADATA("SYS IEN" , OLDPKUP+6*, OLDPKUP+7, OLDPKUP+10*, OLDPKUP+11, OLDPKUP+15, OLDPKUP+19, OLDPKUP+25, OLDPKUP+38, OLDPKUP+40
, OLDPKUP+42
TMPADATA(1 OLDPKUP+6, OLDPKUP+12*, OLDPKUP+45
TMPADATA(10 OLDPKUP+35*, OLDPKUP+36*, OLDPKUP+37
TMPADATA(2 OLDPKUP+9, OLDPKUP+13, OLDPKUP+45
TMPADATA(3 OLDPKUP+18*, OLDPKUP+19
TMPADATA(4 OLDPKUP+23, OLDPKUP+35, OLDPKUP+36, OLDPKUP+45
TMPADATA(7 OLDPKUP+37, OLDPKUP+45
TMPADATA(9 OLDPKUP+44, OLDPKUP+46
WC GETGRPS+50~*, GETGRPS+51, GETGRPS+54~*, GETGRPS+55
WD GETGRPS+50~, GETGRPS+51*
WG GETGRPS+54~, GETGRPS+55*
X MANUN+3~, UNLDONE+59~, OLDPKUP+32~
XMDUZ DWOSEND+5~, DWOSEND+34*
XMSUB DWOSEND+5~, DWOSEND+26*
XMTEXT DWOSEND+5~, DWOSEND+27*
XMY DWOSEND+5~, DWOSEND+32, DWOSEND+33
XMY("G." DWOSEND+31*
XMZ DWOSEND+5~
Y MANUN+3~, MANUN+7, UNLDONE+45, UNLDONE+46, UNLDONE+59~, UNLDONE+62, OLDPKUP+32~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All