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 |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSJPAD7I

Package: Inpatient Medications

Routine: PSJPAD7I


Information

PSJPAD7I ;BIR/JCH-HL7 RECEIVER FOR OMH PADE POCKET ACTIVITY ;9/3/15 1:34 PM

Source Information

Source file <PSJPAD7I.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 3 ($$ACTDWO,DWOSEND,GETGRPS)^PSJPAD70  ($$CHKFLD,ERROR,LOADMSG)^PSJPAD7U  $$TSIGN^PSJPADIT  
VA FileMan 3 $$FIND1^DIC  UPDATE^DIE  GETS^DIQ  
Kernel 1 ($$FMADD,$$HL7TFM,$$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: 8

Package Total Caller Graph
Inpatient Medications 6 PSJ PADE OMS-O05 SUB  PSJ PADE OMS-O05 SUB 2.3  PSJPAD70  PSJPAD7U  PSJPDRTP  PSJPDRU1  
Auto Replenishment Ward Stock 1 ^PS(58.6  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
OMS(PSJMSH,PSJSEG) ;Process OMS^O05 messages from the PSJ PADE OMS_O05 SUB subscriber protocol
VALIDMSG(PSJOMS,XMT,PSJERR)
FILETRAN(PSJOMS) ; File into PADE INBOUND TRANSACTION file
; Input - PSJOMS() - All input into PADE INBOUND TRANSACTIONS (#58.6) fields
SETPAT(PSJOMS) ; Set patient data
DWO(PSJOMS) ; Send Dispensed Without Order (DWO) Alert
NOPTMSG(PSJOMS)
GETDIV(PSJOMS) ; Get Division from DISPENSING CABINET file (#58.63)
PATRANS(PSJOMS) ; Return flag indicating whether or not transaction type REQUIRES PID and PV1 segments
DRGXREF(DA,PSJOMS) ; Return Drug file (#50) IEN, if present in PSJOMS("DRGITM"). If no Drug IEN, return 0.
; Called from 'AC' cross reference in PADE INBOUND TRANSACTION (#58.6) file
GETPDMGR(XMY)
PTRNSTYP(TTYPE,POCKET) ; Return 1 if TTYPE is a patient transaction type, return zero if TTYPE is NOT patient transaction type

External References

Name Field # of Occurrence
$$FIND1^DIC NOPTMSG+5, NOPTMSG+6, GETDIV+4, GETDIV+5
UPDATE^DIE FILETRAN+67
GETS^DIQ GETDIV+7
$$ACTDWO^PSJPAD70 DWO+3
DWOSEND^PSJPAD70 DWO+5
GETGRPS^PSJPAD70 DWO+4
$$CHKFLD^PSJPAD7U VALIDMSG+40, VALIDMSG+42, VALIDMSG+44, VALIDMSG+46, VALIDMSG+47, VALIDMSG+48, VALIDMSG+49, VALIDMSG+52, VALIDMSG+56
ERROR^PSJPAD7U VALIDMSG+28, VALIDMSG+30, VALIDMSG+31, VALIDMSG+33, VALIDMSG+40, VALIDMSG+42, VALIDMSG+44, VALIDMSG+47, VALIDMSG+50, VALIDMSG+52
, VALIDMSG+60, FILETRAN+72
LOADMSG^PSJPAD7U OMS+13
$$TSIGN^PSJPADIT FILETRAN+47
$$FMADD^XLFDT FILETRAN+8
$$HL7TFM^XLFDT FILETRAN+5
$$NOW^XLFDT OMS+11, FILETRAN+3

Used in HL7 Interface

HL7 Protocol Name Call Tags
PSJ PADE OMS-O05 SUB OMS
PSJ PADE OMS-O05 SUB 2.3 OMS

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(58.601 - [#58.601] FIND1^DIC
^PS(58.63 - [#58.63] FIND1^DIC,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(58.63 - [#58.63] NOPTMSG+7
^PSDRUG - [#50] FILETRAN+15, FILETRAN+16
^XUSEC("PSJ PADE MGR" GETPDMGR+5

Label References

Name Line Occurrences
$$NOPTMSG VALIDMSG+54
$$PATRANS VALIDMSG+28, VALIDMSG+30, VALIDMSG+32
$$PTRNSTYP FILETRAN+39
$$VALIDMSG OMS+15
DWO VALIDMSG+46
FILETRAN OMS+17
SETPAT FILETRAN+40, FILETRAN+44

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CABIEN GETDIV+1~, GETDIV+5*, GETDIV+7, GETDIV+8
CABNAME GETDIV+1~, GETDIV+2*, GETDIV+5
DA DRGXREF~
DIC VALIDMSG+17~
DIERR FILETRAN+67!, NOPTMSG+5!, NOPTMSG+6!, GETDIV+4!, GETDIV+5!, GETDIV+7!
DR VALIDMSG+17~
DRUGIEN DRGXREF+2~, DRGXREF+3*, DRGXREF+5*, DRGXREF+6
FDA FILETRAN+2~
FDA( FILETRAN+9*, FILETRAN+11*, FILETRAN+12*, FILETRAN+13*, FILETRAN+15*, FILETRAN+17*, FILETRAN+18*, FILETRAN+21*, FILETRAN+22*, FILETRAN+23*
, FILETRAN+24*, FILETRAN+25*, FILETRAN+26*, FILETRAN+27*, FILETRAN+29*, FILETRAN+31*, FILETRAN+32*, FILETRAN+33*, FILETRAN+34*, FILETRAN+35*
, FILETRAN+45*, FILETRAN+52*, FILETRAN+53*, FILETRAN+55*, FILETRAN+56!, FILETRAN+57*, FILETRAN+58*, FILETRAN+59*, FILETRAN+60*, FILETRAN+61*
, FILETRAN+62*, FILETRAN+63*, FILETRAN+66*, SETPAT+2*, SETPAT+3*, SETPAT+4*, SETPAT+5*, SETPAT+6*, SETPAT+7*, SETPAT+8*
, SETPAT+9*
GROUPS DWO+1~, DWO+2*, DWO+4, DWO+5
I VALIDMSG+17~, VALIDMSG+32*, VALIDMSG+33
MSH VALIDMSG+17~
NTE VALIDMSG+17~
ORC VALIDMSG+17~
PADEPCK PTRNSTYP+1~, PTRNSTYP+2*, PTRNSTYP+6
PADEVIEN NOPTMSG+3~, NOPTMSG+6*, NOPTMSG+7
PADMGR GETPDMGR+4~, GETPDMGR+5*
PADPTMSG NOPTMSG+3~, NOPTMSG+4*, NOPTMSG+7*, NOPTMSG+8
PARRAY FILETRAN+2~, FILETRAN+47
PARRAY(5 FILETRAN+46*
PARRAY(6 FILETRAN+46*
PCKBAL FILETRAN+2~, FILETRAN+50*, FILETRAN+51*, FILETRAN+52
PID VALIDMSG+17~
POCKBIN FILETRAN+42~*, FILETRAN+43
POCKET FILETRAN+37~*, FILETRAN+39, PTRNSTYP~, PTRNSTYP+2
PSJ7DT FILETRAN+2~, FILETRAN+5*, FILETRAN+6*, FILETRAN+8*, FILETRAN+9
PSJDIER2 FILETRAN+69~*, FILETRAN+70
PSJDIERR FILETRAN+2~, FILETRAN+67!, FILETRAN+68*, FILETRAN+69, FILETRAN+70
PSJDIERR("DIERR" FILETRAN+68, FILETRAN+70
PSJDIV GETDIV+1~, GETDIV+8*, GETDIV+9
PSJDT OMS+10~, OMS+11*
PSJERR OMS+10~, OMS+11*, OMS+13, OMS+15, VALIDMSG~, VALIDMSG+17~, VALIDMSG+18*, VALIDMSG+27, VALIDMSG+28*, VALIDMSG+29
, VALIDMSG+30*, VALIDMSG+31*, VALIDMSG+32, VALIDMSG+33*, VALIDMSG+40*, VALIDMSG+42*, VALIDMSG+44*, VALIDMSG+46*, VALIDMSG+47*, VALIDMSG+50*
, VALIDMSG+52*, VALIDMSG+56*, VALIDMSG+57, VALIDMSG+58*, VALIDMSG+59*, VALIDMSG+60
PSJERR2 VALIDMSG+17~, VALIDMSG+18*, VALIDMSG+48*, VALIDMSG+50, NOPTMSG+3~, NOPTMSG+5!, NOPTMSG+6!
PSJERR2("DIERR" NOPTMSG+6, NOPTMSG+7
PSJERR3 VALIDMSG+17~, VALIDMSG+18*, VALIDMSG+49*, VALIDMSG+50
PSJHL OMS+10~, OMS+15
PSJHLIDS VALIDMSG+17~
PSJIEN VALIDMSG+17~
PSJMNAME SETPAT+1~
PSJMSG FILETRAN+2~, FILETRAN+69~, FILETRAN+70*, FILETRAN+71*, FILETRAN+72
PSJMSH OMS~, OMS+13
PSJMUMPS VALIDMSG+17~, VALIDMSG+39*, VALIDMSG+40, VALIDMSG+43*, VALIDMSG+44, VALIDMSG+45*, VALIDMSG+46, VALIDMSG+51*, VALIDMSG+52, VALIDMSG+55*
, VALIDMSG+56
PSJNOW FILETRAN+2~, FILETRAN+3*, FILETRAN+6, FILETRAN+8
PSJOMS OMS+10~, OMS+13, OMS+15, OMS+17, VALIDMSG~, VALIDMSG+28, VALIDMSG+30, VALIDMSG+32, VALIDMSG+46, VALIDMSG+54
, FILETRAN~, FILETRAN+40, FILETRAN+44, SETPAT~, DWO~, DWO+3, DWO+4, DWO+5, NOPTMSG~, GETDIV~
, PATRANS~, DRGXREF~
PSJOMS( VALIDMSG+33
PSJOMS("ACBCNT" FILETRAN+35, FILETRAN+50, FILETRAN+55
PSJOMS("CABID" FILETRAN+13, FILETRAN+71, NOPTMSG+6, GETDIV+2
PSJOMS("COMMENT" FILETRAN+43, FILETRAN+60
PSJOMS("DFN" VALIDMSG+43, VALIDMSG+44, VALIDMSG+56, SETPAT+2
PSJOMS("DISPSYS" VALIDMSG+40, FILETRAN+11, FILETRAN+71, NOPTMSG+5, GETDIV+3
PSJOMS("DRGEID" FILETRAN+20*, FILETRAN+58, FILETRAN+62
PSJOMS("DRGETXT" FILETRAN+19*, FILETRAN+57, FILETRAN+63
PSJOMS("DRGITM" FILETRAN+14, FILETRAN+15, FILETRAN+16, FILETRAN+18, FILETRAN+20, DRGXREF+3, DRGXREF+5
PSJOMS("DRGTXT" FILETRAN+17, FILETRAN+19
PSJOMS("DRGUNIT" FILETRAN+23
PSJOMS("DRWR" FILETRAN+12
PSJOMS("EXBCNT" FILETRAN+34, FILETRAN+50
PSJOMS("LOTNUM" FILETRAN+59
PSJOMS("MDFN" SETPAT+7
PSJOMS("MPTNAMA" SETPAT+8
PSJOMS("MPTNAMB" SETPAT+9
PSJOMS("NUR1" FILETRAN+29
PSJOMS("NUR1A" VALIDMSG+47, FILETRAN+23, FILETRAN+24
PSJOMS("NUR1B" VALIDMSG+48, FILETRAN+25
PSJOMS("NUR1C" VALIDMSG+49, FILETRAN+25
PSJOMS("NUR2" FILETRAN+31
PSJOMS("NUR2A" FILETRAN+26
PSJOMS("NUR2B" FILETRAN+27
PSJOMS("NUR2C" FILETRAN+27
PSJOMS("ORC" VALIDMSG+29
PSJOMS("PKT" FILETRAN+32, FILETRAN+37, FILETRAN+42
PSJOMS("POREORD" FILETRAN+61
PSJOMS("PSDQ" FILETRAN+48
PSJOMS("PSJDT" VALIDMSG+52, FILETRAN+5
PSJOMS("PTID" VALIDMSG+59, SETPAT+5
PSJOMS("PTNAMA" SETPAT+3
PSJOMS("PTNAMB" SETPAT+4
PSJOMS("RQD" VALIDMSG+27
PSJOMS("SBDRWR" FILETRAN+33
PSJOMS("SSN" VALIDMSG+59
PSJOMS("STYP" VALIDMSG+42
PSJOMS("TOTITMS" FILETRAN+53, FILETRAN+54
PSJOMS("TRNSAMT" FILETRAN+21, FILETRAN+46, FILETRAN+48*, FILETRAN+50, FILETRAN+55
PSJOMS("TTYPE" VALIDMSG+46, FILETRAN+22, FILETRAN+39, FILETRAN+41, FILETRAN+46, FILETRAN+50, FILETRAN+56, PATRANS+1, PATRANS+2
PSJOMS("VAORD" FILETRAN+45, SETPAT+6
PSJOMS("ZPM" VALIDMSG+31
PSJPSYS NOPTMSG+3~, NOPTMSG+5*, GETDIV+1~, GETDIV+3*, GETDIV+4*
PSJSEG OMS~
PTRNSTYP FILETRAN+37~, FILETRAN+39*, FILETRAN+40, PTRNSTYP+1~, PTRNSTYP+6*, PTRNSTYP+7
PV1 VALIDMSG+17~
RESULT GETDIV+1~, GETDIV+6!
RESULT( GETDIV+8
RQD VALIDMSG+17~
TSIGN FILETRAN+2~, FILETRAN+47*, FILETRAN+48
TTYPE PTRNSTYP~, PTRNSTYP+6
XMT VALIDMSG~
XMY GETPDMGR~
XMY( GETPDMGR+5*
ZPM VALIDMSG+17~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All