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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSJHL7

Package: Inpatient Medications

Routine: PSJHL7


Information

PSJHL7 ;BIR/LDT-ACTIONS ON HL7 MESSAGES FROM OE/RR (CONT) ;29 AUG 96 / 11:18 AM

Source Information

Source file <PSJHL7.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Inpatient Medications 9 ^PSGAL5  ENWALL^PSGNE3  $$GTNEDFD^PSGOE7  LOG^PSIVORAL  (FILEOPI,FILESI,GETOPI,GETSI)^PSJBCMA5  $$DDOK^PSJHL10  EN1^PSJHL2  $$ENRNAT^PSJHL7  
$$GETDUR^PSJLIVMD  
VA FileMan 2 FILE^DICN  ^DIE  

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 PSJHL10  PSJHL4A  PSJHL7  

Entry Points

Name Comments DBIA/ICR reference
RENEW ;Renew orders from OE/RR
DONE ;
IVSET ;
PUT531 ; Move data in local variables to 53.1
PTD531 ; Move drug data from local array into 53.1
ENRNAT(OWD,NWD,SC,OAT) ;Determine admin times for renewal orders.
GTDRG ; Get drug info and place in DRG(.
REN531(PSGORD,PSGDT,PSGOEPR,PSGOFD,PSGP) ;
CHK(X,Y,Z) ;Check for required fields
; Input: X="^^"_MED ROUTE_"^^^^"_SCH TYPE
; Y=ORDERABLE ITEM_"^"_DOSAGE ORDERED
; Z=SCHEDULE_"^"_START DATE/TIME_"^^"_STOP DATE/TIME
CHKM ;

External References

Name Field # of Occurrence
FILE^DICN REN531+7
^DIE DONE+5
^PSGAL5 DONE+3
ENWALL^PSGNE3 RENEW+11
$$GTNEDFD^PSGOE7 RENEW+8
LOG^PSIVORAL DONE+6
FILEOPI^PSJBCMA5 REN531+12
FILESI^PSJBCMA5 REN531+10
GETOPI^PSJBCMA5 REN531+12
GETSI^PSJBCMA5 REN531+10
$$DDOK^PSJHL10 CHK+8
EN1^PSJHL2 DONE+7
$$ENRNAT^PSJHL7 RENEW+9
$$GETDUR^PSJLIVMD PUT531+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS( GTDRG+3
^PS(50.7 - [#50.7] IVSET+6, CHK+4
^PS(51.1 - [#51.1] ENRNAT+3, ENRNAT+6
^PS(51.2 - [#51.2] IVSET+7
^PS(53.1 - [#53.1] PUT531+1*, PUT531+7*, PUT531+8*, PUT531+9*, PUT531+11*, PUT531+14, PTD531+1!*, PTD531+3, PTD531+4*, REN531+3
^PS(53.45 - [#53.45] REN531+10, REN531+12
^PS(55 - [#55] RENEW+5, RENEW+10, IVSET+2, IVSET+3, IVSET+4, IVSET+5, IVSET+6, GTDRG+1, REN531+4, REN531+5
, REN531+9, REN531+11
^PS(59.6 - [#59.6] RENEW+2
^SC - [#44] RENEW+2
^VA(200 - [#200] IVSET+3, IVSET+5

Label References

Name Line Occurrences
DONE RENEW+3
GTDRG IVSET+8
IVSET RENEW+3
PTD531 PUT531+12
REN531 RENEW+24, PUT531+14, PTD531+5

Naked Globals

Name Field # of Occurrence
^( RENEW+5, RENEW+10, RENEW+17*, GTDRG+3
^(0 RENEW+21*
^(2 RENEW+5, RENEW+17*
^(2.1 RENEW+5, RENEW+17*
^(6 RENEW+5, RENEW+17*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CHK CHK+4*, CHK+5*, CHK+6*, CHK+8*, CHKM+1, CHKM+3
>> CLERK IVSET+5
DA DONE+1~, DONE+2*, REN531+6!
DA(1 DONE+2*, REN531+6*
DA(2 REN531+6*
DD REN531+6!
DFN DONE+6~*, PTD531+5
DIC REN531+6!*
DIC("DR" REN531+7*
DIC("P" REN531+6*
DIC(0 REN531+6*
DIE DONE+1~, DONE+2*, REN531+6!
DINUM REN531+6*, REN531+8!
DO REN531+6!, REN531+8!
>> DOSE RENEW+7*, RENEW+17
DR DONE+1~, DONE+2*, REN531+6!
DRG IVSET+1~, IVSET+3*, PTD531+3*, PTD531+4, GTDRG+3*
DRG( IVSET+10, PUT531+12, PTD531+2, PTD531+3, PTD531+4, GTDRG+3*
>> DRGI IVSET+10*, GTDRG+3*
DRGN IVSET+1~, IVSET+3*
>> DRGT IVSET+10*, PUT531+12*, PTD531+1, PTD531+2, PTD531+3, PTD531+4, GTDRG+1*, GTDRG+3
DRUGS RENEW+4~, RENEW+18
DRUGS( RENEW+10*, RENEW+22
DT RENEW+10, RENEW+22
DUP REN531+2~, REN531+3*
DUZ REN531+7
>> F RENEW+17*, RENEW+19, RENEW+21, RENEW+22*
>> FIL GTDRG+1*, GTDRG+3
IVLIM PUT531+1~*
IVLIMIT PUT531+1~
IVND PUT531+14~*
>> JJ RENEW+22*
>> LOC RENEW+2, RENEW+9
>> LOGIN RENEW+13, IVSET+4
>> MSG CHKM+3*, CHKM+4
MSG2 CHKM+2~, CHKM+3*, CHKM+4
ND RENEW+4~, RENEW+5*, RENEW+7, RENEW+10*, RENEW+13*, RENEW+14*, RENEW+17, RENEW+24, IVSET+6*, IVSET+7*
PUT531+14, GTDRG+3*, CHK+5
ND( PUT531+7
ND(0 PUT531+2*, PUT531+3*, PTD531+5
ND(17 PUT531+6*
ND(2 PUT531+4*
ND(4 PUT531+4*
ND(8 PUT531+5*
ND(9 PUT531+5*
ND1 RENEW+4~, RENEW+5*, RENEW+6*, RENEW+7
>> ND14 REN531+6*
ND2 RENEW+4~, RENEW+5*, RENEW+7, RENEW+8, RENEW+9, RENEW+16*, RENEW+17
ND2P1 RENEW+4~, RENEW+5*, RENEW+17
>> NEWORDER RENEW+13, RENEW+17, RENEW+24, PUT531+1, PUT531+2, PUT531+7, PUT531+8, PUT531+9, PUT531+11, PUT531+14
PTD531+1, PTD531+3, PTD531+4, PTD531+5
NWD ENRNAT~, ENRNAT+6
OAT ENRNAT~, ENRNAT+3, ENRNAT+5
OIDRG RENEW+4~, RENEW+7*, RENEW+8, RENEW+17
ON55 DONE+1~, DONE+4*
OOAT ENRNAT+2~, ENRNAT+3*, ENRNAT+5, ENRNAT+7
>> ORDCON RENEW+17, PUT531+9
>> ORDER RENEW+14, IVSET+3
OWAT ENRNAT+2~
OWD ENRNAT~, ENRNAT+3
P IVSET+1~
P( IVSET+2*
P("CLRK" IVSET+5*, PUT531+4
P("DO" IVSET+6*, PUT531+8
P("FRES" IVSET+5*
P("LOG" IVSET+4*, PUT531+3
P("MR" IVSET+7*, PUT531+2
P("OPI" IVSET+5*, PUT531+5
P("OT" IVSET+9*, IVSET+10*, PUT531+2
P("PD" IVSET+6*, PUT531+8
P("PON" IVSET+3*, PUT531+3
P("REM" IVSET+3*, PUT531+5
P("REN" IVSET+2*, PUT531+4
P("RES" IVSET+2*, IVSET+5*, PUT531+3, PTD531+5
P("SYRS" IVSET+5*, PUT531+5
P(11 PUT531+4
P(15 PUT531+4
P(21 IVSET+3*, PUT531+3
P(23 PUT531+5
P(3 PTD531+5
P(4 IVSET+9, PUT531+5
P(5 PUT531+5
P(6 IVSET+3*, PUT531+2
P(7 PUT531+5
P(8 PUT531+5, PUT531+6
P(9 PUT531+4
>> PREON RENEW+3, RENEW+5, RENEW+10, RENEW+14, RENEW+23, RENEW+24, DONE+2, DONE+3, DONE+4, DONE+6
DONE+7, IVSET+2, IVSET+3, IVSET+4, IVSET+5, IVSET+6, PUT531+1, PUT531+13, GTDRG+1, REN531+2
, REN531+4, REN531+5, REN531+9, REN531+10, REN531+11, REN531+12
>> PRIORITY RENEW+17, PUT531+9
>> PRNTON RENEW+17, PUT531+11
>> PROVIDER RENEW+13, IVSET+3
>> PSGAL("C" DONE+3*
PSGDFLG CHK+7!
>> PSGDI CHK+7*
PSGDO RENEW+4~, RENEW+7*, RENEW+17
PSGDT REN531~, REN531+1, REN531+3, REN531+7
PSGHSM RENEW+4~, RENEW+7*, RENEW+13
PSGMR RENEW+4~, RENEW+7*, RENEW+13
PSGNEDFD RENEW+4~, RENEW+8*, RENEW+13
>> PSGNEFD RENEW+11*, RENEW+16
>> PSGNESD RENEW+11*, RENEW+12, RENEW+16
PSGOEPR REN531~, REN531+1, REN531+7
PSGOFD REN531~, REN531+1, REN531+7
PSGOLDPR REN531+2~, REN531+4*, REN531+5*, REN531+7
PSGORD REN531~, REN531+1, REN531+3, REN531+6, REN531+10, REN531+12
PSGOXT RENEW+4~, RENEW+8*, RENEW+12, RENEW+16
PSGP REN531~, REN531+1, REN531+4, REN531+5, REN531+6, REN531+9, REN531+10, REN531+11, REN531+12
PSGPFLG CHK+7!
PSGSCH RENEW+4~, RENEW+7*, RENEW+9, RENEW+16
PSGSI RENEW+4~, RENEW+5*, RENEW+17
PSGSM RENEW+4~, RENEW+7*, RENEW+13
PSGSOY RENEW+4~, RENEW+8*, RENEW+9*, RENEW+12*, RENEW+16
PSGST RENEW+4~, RENEW+7*, RENEW+13
>> PSGWLL RENEW+5*
>> PSITEM RENEW+6
PSIVACT DONE+1~, DONE+4*
PSIVALT DONE+1~, DONE+4*
PSIVREA DONE+1~, DONE+4*
>> PSJHLDFN RENEW+5, RENEW+10, RENEW+11, RENEW+13, RENEW+23, RENEW+24, DONE+2, DONE+6, DONE+7, IVSET+2
IVSET+3, IVSET+4, IVSET+5, IVSET+6, PUT531+1, PUT531+3, PUT531+13, PUT531+14, GTDRG+1
>> PSJHLMTN DONE+7*
>> PSJORDER DONE+2
PSJOSTOP RENEW+1~, RENEW+23*, RENEW+24, PUT531+13*, PUT531+14
PSJSYSP REN531+10~*, REN531+12~*
PSJSYSW RENEW+1~, RENEW+2*
PSJSYSW0 RENEW+1~, RENEW+2*, RENEW+5
>> PSOC DONE+7*
>> PSREASON CHKM+4*
>> Q RENEW+10*
Q1 RENEW+1~, RENEW+10*
Q2 RENEW+1~
>> ROC RENEW+14, IVSET+5
SC ENRNAT~, ENRNAT+3
SCP ENRNAT+2~, ENRNAT+3*, ENRNAT+6
U RENEW+13, RENEW+14, RENEW+16, RENEW+17, RENEW+22, IVSET+2, IVSET+3, IVSET+5, IVSET+6, IVSET+7
IVSET+10, PUT531+1, PUT531+2, PUT531+3, PUT531+4, PUT531+5, PUT531+8, PUT531+9, PTD531+3, PTD531+4
, ENRNAT+3, ENRNAT+6, GTDRG+3
>> UNIT RENEW+7*, RENEW+17
WAT RENEW+4~, ENRNAT+3*, ENRNAT+5
WRDPTR RENEW+1~, RENEW+2*
X RENEW+10*, RENEW+15*, IVSET+2*, PUT531+7*, PTD531+2*, PTD531+3, PTD531+4, ENRNAT+2~, ENRNAT+4*, ENRNAT+6*
, REN531+7*, CHK~, CHK+6, CHKM+3*
>> X1 PTD531+3*, PTD531+4
Y IVSET+2*, IVSET+4*, IVSET+5, PTD531+3*, PTD531+4*, ENRNAT+2~, ENRNAT+4*, GTDRG+1*, GTDRG+3, CHK~
, CHK+4, CHK+8
Z CHK~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All