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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSJPADIT

Package: Inpatient Medications

Routine: PSJPADIT


Information

PSJPADIT ;BIR/JCH-INPATIENT PADE INVENTORY FILE UTILITIES ;25 SEP 97 / 7:41 AM

Source Information

Source file <PSJPADIT.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 4 ($$OLDPKUP,UNLOAD)^PSJPAD70  ERROR^PSJPAD7U  ($$FILDEV,FILDEV)^PSJPADIU  ($$DEVBAL,$$TSIGN)^PSJPDRU1  
VA FileMan 3 ($$FIND1,LIST)^DIC  (FILE,UPDATE)^DIE  GETS^DIQ  
Health Level Seven 1 $$UPPER^HLFNC  
Kernel 1 $$NOW^XLFDT  

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: 5

Package Total Caller Graph
Inpatient Medications 3 PSJPAD7I  PSJPADPT  PSJPDRU1  
Auto Replenishment Ward Stock 2 ^PS(58.6  ^PS(58.63  

Entry Points

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

External References

Name Field # of Occurrence
$$FIND1^DIC FILSYS+1, FILDRWR+2, FILDRWR+5, FILDRUG+18, FILDRUG+21, FILDRUG+22, DRGDRWR+2, DRGDRWR+5, UPCKDRW+15, UPCKDRW+26
, UPCKDRW+39
LIST^DIC DRWRBAL+11
FILE^DIE DRGDRWR+11, UPDEVBAL+16, UPDEVBAL+24, UPDRWBAL+12, UPCKDRW+34, UPCKDRW+43, UPCKBAL+24
UPDATE^DIE FILDRWR+4, FILDRUG+20, DRGDRWR+4, UPCKDRW+25, UPCKDRW+38
GETS^DIQ ORDIX+2
$$UPPER^HLFNC FIL58601+35
$$OLDPKUP^PSJPAD70 FIL58601+44
UNLOAD^PSJPAD70 FIL58601+90
ERROR^PSJPAD7U LOGERR+1
$$FILDEV^PSJPADIU FIL58601+51
FILDEV^PSJPADIU FILEDEV+5
$$DEVBAL^PSJPDRU1 DEVBAL+1
$$TSIGN^PSJPDRU1 TSIGN+1
$$NOW^XLFDT FIL58601+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(58.6 - [#58.6] GETS^DIQ
^PS(58.601 - [#58.601] FIND1^DIC
58.60111 FIND1^DIC
58.60112 FIND1^DIC
58.601121 FIND1^DIC,  LIST^DIC
58.601122 FIND1^DIC
58.601123 FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(58.6 - [#58.6] FIL58601+34*, FIL58601+35, FIL58601+37, FIL58601+38, FIL58601+93*, FILDRUG+9, UPDEVBAL+8, UPDEVBAL+21, UPCKDRW+11, UPCKDRW+13
^PS(58.601 - [#58.601] FILEDEV+3, UPDRWBAL+4, UPCKDRW+17, UPCKDRW+19
^PSDRUG - [#50] FILDRUG+7

Label References

Name Line Occurrences
$$DELCHK FIL58601+82
$$DEVBAL UPDEVBAL+22
$$DRGDRWR FIL58601+67
$$FILDRUG FIL58601+59
$$FILDRWR FIL58601+56
$$FILSYS FIL58601+48
$$TSIGN UPCKBAL+15
$$UPCKBAL FIL58601+73
$$UPCKDRW FIL58601+70
$$UPDEVBAL FIL58601+79
$$UPDRWBAL FIL58601+75
LOGERR FIL58601+44, FIL58601+48, FIL58601+51, FIL58601+56, FIL58601+64, FIL58601+67, FIL58601+70, FIL58601+73, FIL58601+75, FIL58601+79

Naked Globals

Name Field # of Occurrence
^( UPDRWBAL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BALANCE UPDEVBAL+2~, UPDEVBAL+8*, UPDEVBAL+9*, UPDEVBAL+16, UPDRWBAL+2~
D FILDRUG+17~
D0 FILDRUG+17~
DA FIL58601+34, FILDRUG+17~
DBALIENS DRGDRWR+6~, DRGDRWR+8*, DRGDRWR+9, UPDEVBAL+2~, UPDEVBAL+12*, UPDEVBAL+16, UPDEVBAL+22, UPDEVBAL+23, UPDRWBAL+2~, UPDRWBAL+9*
, UPDRWBAL+10, UPCKDRW+40*, UPCKDRW+41, UPCKDRW+42, UPCKBAL+10~, UPCKBAL+21*, UPCKBAL+22
DD FILDRUG+17~
DEV FIL58601+83~, FIL58601+85*, FIL58601+90
DEVIEN FILDRUG+1~, FILDRUG+3*, FILDRUG+15, FILDRUG+18, FILDRUG+20, FILDRUG+21, FILDRUG+22
DIC FILDRUG+17~
DICR FILDRUG+17~
DICRS FILDRUG+17~
DIE FILDRUG+17~
DIERR FILSYS+1!, FILDRWR+2!, FILDRWR+4!, FILDRWR+5!, FILDRUG+18!, FILDRUG+20!, FILDRUG+21!, FILDRUG+22!, DRGDRWR+2!, DRGDRWR+4!
, DRGDRWR+5!, DRGDRWR+11!, UPDEVBAL+16!, UPDEVBAL+24!, UPDRWBAL+12!, UPCKDRW+15!, UPCKDRW+25!, UPCKDRW+26!, UPCKDRW+34!, UPCKDRW+38!
, UPCKDRW+39!, UPCKDRW+43!, UPCKBAL+24!, ORDIX+2!
DO FILDRUG+17~
DOSFORM UPDEVBAL+2~, UPDEVBAL+19~, UPDEVBAL+21*, UPDEVBAL+23, UPCKDRW+6~, UPCKDRW+11*, UPCKDRW+33
DR FILDRUG+17~
DRG FIL58601+83~, FIL58601+88*, FIL58601+90
DRGDEV FIL58601+83~, FIL58601+87*, FIL58601+90
DRGID FILDRUG+8~, FILDRUG+11*, FILDRUG+13
DRGIENS UPCKDRW+4~
DRGNAME FILDRUG+8~, FILDRUG+10*, FILDRUG+13
DRGNODE FILDRUG+8~, FILDRUG+9*, FILDRUG+10, FILDRUG+11
DRUG FILDRUG+1~, FILDRUG+2*, FILDRUG+5, FILDRUG+7, FILDRUG+18, FILDRUG+20, FILDRUG+21, FILDRUG+22, FILDRUG+23, DRWRBAL+13~*
DRUGIEN DRWRBAL~, DRWRBAL+10, DRWRBAL+13, DEVBAL~, DEVBAL+1
DRW FIL58601+83~, FIL58601+86*, FIL58601+90, UPCKBAL+8~, UPCKBAL+19*
DRWBAL DRWRBAL+5!*, DRWRBAL+13*, DRWRBAL+14
ERR FIL58601+31~, FIL58601+44, FIL58601+48*, FIL58601+51*, FIL58601+56*, FIL58601+59*, FIL58601+62*, FIL58601+63*, FIL58601+64, FIL58601+67*
, FIL58601+70*, FIL58601+73*, FIL58601+75*, FIL58601+79*, FILSYS+1!, FILDRWR+2!, FILDRWR+4!, FILDRWR+5!, FILDRUG+17~, FILDRUG+18!
, FILDRUG+20!, FILDRUG+21!, FILDRUG+22!, DRGDRWR+1~, DRGDRWR+2!, DRGDRWR+4!, DRGDRWR+5!, DRGDRWR+11!, UPDRWBAL+7~, UPDRWBAL+12!
, UPCKDRW+2~, UPCKDRW+15!, UPCKDRW+25!, UPCKDRW+26!, UPCKDRW+34!, UPCKDRW+38!, UPCKDRW+39!, UPCKDRW+43!, UPCKBAL+24!
ERRMSG FIL58601+24~, FILSYS~, FILSYS+2*, FILDRWR~, FILDRWR+6*, FILDRUG~, FILDRUG+5*, FILDRUG+12*, FILDRUG+13*, FILDRUG+15*
, FILDRUG+16*, FILDRUG+23*, DRGDRWR~, DRGDRWR+12*, UPDEVBAL~, UPDRWBAL~, UPCKDRW~, UPCKDRW+22*, UPCKDRW+23*, UPCKDRW+44*
, UPCKBAL~, LOGERR~, LOGERR+1
ERROR ORDIX+2!
FDA FIL58601+32~, FILDRWR+4!, FILDRUG+17~, DRGDRWR+1~, UPDEVBAL+2~, UPDEVBAL+16~, UPDEVBAL+19~, UPDRWBAL+2~, UPCKDRW+1~, UPCKDRW+36~
, UPCKBAL+5~
FDA( FILDRWR+4*, FILDRUG+20*, DRGDRWR+4*, DRGDRWR+9*, UPDEVBAL+16*, UPDEVBAL+22*, UPDEVBAL+23*, UPDRWBAL+10*, UPCKDRW+25*, UPCKDRW+29*
, UPCKDRW+30*, UPCKDRW+31*, UPCKDRW+32*, UPCKDRW+33*, UPCKDRW+36*, UPCKDRW+37*, UPCKDRW+41*, UPCKDRW+42, UPCKBAL+22*
II UPDRWBAL+2~
INVDATA FIL58601+30~, UPDEVBAL+2~, UPDRWBAL+2~, UPCKDRW+5~
ORDER ORDIX+1~, ORDIX+3*, ORDIX+4
OUT DRWRBAL+7~
OUT("DILIST" DRWRBAL+12, DRWRBAL+13
PADATA FIL58601~, FIL58601+25, FIL58601+43, FIL58601+48, FIL58601+51, FIL58601+56, FIL58601+59, FIL58601+67, FIL58601+70, FIL58601+73
, FIL58601+75, FIL58601+79, FIL58601+82, DELCHK~, FILSYS~, FILEDEV+5, FILDRWR~, FILDRUG~, DRGDRWR~, UPDEVBAL~
, UPDRWBAL~, UPCKDRW~, UPCKBAL~, UPCKBAL+15, TSIGN~, TSIGN+1
PADATA( UPCKBAL+19
PADATA("DEVIC E IEN" , FIL58601+85, FILDRWR+2, FILDRWR+4, FILDRWR+5, FILDRUG+3, DRGDRWR+2, DRGDRWR+4, DRGDRWR+5, DRGDRWR+8
, UPDEVBAL+12, UPDEVBAL+22, UPDRWBAL+3, UPCKDRW+15, UPCKDRW+17, UPCKDRW+19, UPCKDRW+25, UPCKDRW+26, UPCKDRW+28, UPCKDRW+36
, UPCKDRW+37, UPCKDRW+39, UPCKDRW+40, UPCKBAL+21
PADATA("DRAWE R IEN" , FIL58601+86, FILDRWR+2*, FILDRWR+3, FILDRWR+5*, FILDRWR+6, DRGDRWR+2, DRGDRWR+4, DRGDRWR+5, DRGDRWR+8
, UPDRWBAL+3, UPCKDRW+15, UPCKDRW+17, UPCKDRW+19, UPCKDRW+25, UPCKDRW+26, UPCKDRW+28, UPCKDRW+36, UPCKDRW+37, UPCKDRW+39
, UPCKDRW+40, UPCKBAL+21
PADATA("DRUG DEV IEN" , FIL58601+87, FILDRUG+18*, FILDRUG+19, FILDRUG+21*, FILDRUG+22*, FILDRUG+23, UPDEVBAL+12, IEN" , FIL58601+88
, DRGDRWR+2*, DRGDRWR+3, DRGDRWR+5*, DRGDRWR+6, DRGDRWR+8, DRGDRWR+12, UPDRWBAL+3
PADATA("POCK/ SUB IEN" , FIL58601+89, UPCKDRW+15*, UPCKDRW+24, UPCKDRW+26*, UPCKDRW+27, UPCKDRW+28, UPCKDRW+44, UPCKBAL+21
PADATA("SYS I EN" , FIL58601+84, FILSYS+1*, FILSYS+2, FILEDEV+2*, FILDRWR+2, FILDRWR+4, FILDRWR+5, FILDRUG+4, DRGDRWR+2
, DRGDRWR+4, DRGDRWR+5, DRGDRWR+8, UPDEVBAL+12, UPDEVBAL+22, UPDRWBAL+3, UPCKDRW+15, UPCKDRW+17, UPCKDRW+19, UPCKDRW+25
, UPCKDRW+26, UPCKDRW+28, UPCKDRW+36, UPCKDRW+37, UPCKDRW+39, UPCKDRW+40, UPCKBAL+21
PADATA(1 FILSYS+1, FILSYS+2, UPCKDRW+22
PADATA(10 UPCKDRW+12*, UPCKDRW+13*, UPCKDRW+14, UPCKDRW+32, UPCKBAL+12, UPCKBAL+20
PADATA(12 FIL58601+37*, UPCKBAL+16
PADATA(16 FIL58601+38*
PADATA(2 FILEDEV+3*, FILEDEV+4*, UPCKDRW+22
PADATA(3 FIL58601+53, FILDRWR+1*, FILDRWR+2, FILDRWR+4, FILDRWR+5, FILDRWR+6
PADATA(4 FIL58601+60, FILDRUG+2, DRGDRWR+2, DRGDRWR+4, DRGDRWR+5, DRGDRWR+12, UPDEVBAL+22, UPDRWBAL+5, UPCKDRW+12, UPCKDRW+13
, UPCKDRW+22, UPCKDRW+29
PADATA(5 FIL58601+40, DELCHK+2, UPDEVBAL+4, UPDEVBAL+5, UPCKBAL+16, UPCKBAL+17
PADATA(6 UPCKDRW+30, UPCKBAL+13
PADATA(7 FIL58601+53, UPCKDRW+14, UPCKDRW+22, UPCKDRW+31
PADATA(8 DRGDRWR+9, UPCKDRW+30, UPCKBAL+16
PADATA(9 FIL58601+28*, UPCKDRW+21, UPCKDRW+23, UPCKDRW+37, UPCKDRW+41
PADATA0 FILEDEV+1~
PADATA6 UPCKDRW+7~
PADEDEV DRWRBAL~, DRWRBAL+9, DRWRBAL+11, DEVBAL~, DEVBAL+1
PADEDRWR DRWRBAL~, DRWRBAL+9, DRWRBAL+11
PADESYS DRWRBAL~, DRWRBAL+9, DRWRBAL+11, DEVBAL~, DEVBAL+1
PADNOW FIL58601+24~, FIL58601+27*, FIL58601+28
PCK FIL58601+83~, FIL58601+89*, FIL58601+90, UPCKBAL+3~, UPCKBAL+12*
PCKBEG UPCKBAL+4~, UPCKBAL+16*, UPCKBAL+17
PCKTOT UPCKBAL+7~, UPCKBAL+17*, UPCKBAL+18*, UPCKBAL+22
PDEV UPDRWBAL+2~, UPDRWBAL+3*, UPDRWBAL+4, UPDRWBAL+9
PDRG UPDRWBAL+2~, UPDRWBAL+3*, UPDRWBAL+9
PDRW UPDRWBAL+2~, UPDRWBAL+3*, UPDRWBAL+4, UPDRWBAL+9
PKBAL UPCKDRW+30~*
PKSBIENS UPCKDRW+28~*, UPCKDRW+29, UPCKDRW+30, UPCKDRW+31, UPCKDRW+32, UPCKDRW+33
PNOD UPDRWBAL+2~, UPDRWBAL+4*, UPDRWBAL+5, UPDRWBAL+6
POCK UPDRWBAL+2~, UPDRWBAL+4*
POCKSUB UPCKDRW+3~, UPCKDRW+14*, UPCKDRW+15, UPCKDRW+17, UPCKDRW+25, UPCKDRW+26, UPCKDRW+35, UPCKDRW+36, UPCKDRW+39, UPCKDRW+44
PS586IEN FIL58601+34~*, FIL58601+35, FIL58601+37, FIL58601+38, FIL58601+44, FIL58601+93, FILDRUG+9, UPDEVBAL+8, UPDEVBAL+21, UPCKDRW+11
, UPCKDRW+13, ORDIX~, ORDIX+2, ORDIX+3, ORDIX+5
PSJNOTE FIL58601+24~, FIL58601+35*, FIL58601+36, FIL58601+40, FIL58601+77
PSJOMS FIL58601~
PSJOMS("CABID" FIL58601+62
PSJOMS("DISPSYS" FIL58601+63
PSJOMS("DRGITM" FIL58601+61
PSJTTRAN DELCHK+1~, DELCHK+2*
PSPRVDIE UPCKDRW+9~, UPCKDRW+17*, UPCKDRW+19, UPCKDRW+39*, UPCKDRW+40
PSPRVDT UPCKDRW+8~, UPCKDRW+19*, UPCKDRW+21, UPCKDRW+23, UPCKDRW+35
PSTMPAR FIL58601+43*, FIL58601+44, FIL58601+45!
PSYS UPDRWBAL+2~, UPDRWBAL+3*, UPDRWBAL+4, UPDRWBAL+9
PTOT UPDRWBAL+2~, UPDRWBAL+4*, UPDRWBAL+6*, UPDRWBAL+10
RESULT ORDIX+1~
RESULT( ORDIX+3, ORDIX+5
RESULTS ORDIX+1~
SUBDRW UPCKBAL+9~, UPCKBAL+20*, DRWRBAL+6~, DRWRBAL+12*, DRWRBAL+13
SYS FIL58601+83~, FIL58601+84*, FIL58601+90
SYSIEN FILDRUG+1~, FILDRUG+4*, FILDRUG+16, FILDRUG+18, FILDRUG+20, FILDRUG+21, FILDRUG+22
TMPARRAY FIL58601+43~
TRERR UPDEVBAL+2~, UPDEVBAL+16~, UPDEVBAL+19~, UPDEVBAL+24!
TRNSAMT DRGDRWR+6~, UPCKBAL+6~, UPCKBAL+13*, UPCKBAL+14*, UPCKBAL+15*, UPCKBAL+17
TRNSIGN DRGDRWR+6~
X FILDRUG+17~
XARRAY FILEDEV~
XARRAY("SYS I EN" , FILEDEV+3
XARRAY(1 FILEDEV+4
XARRAY(2 FILEDEV+2, FILEDEV+3
Y FILDRUG+17~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All