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 |  Marked Items  | All
Print Page as PDF
Routine: PSJLIUTL

Package: Inpatient Medications

Routine: PSJLIUTL


Information

PSJLIUTL ;BIR/MV - IV LM utilities modules ;Jul 02, 2018@09:45

Source Information

Source file <PSJLIUTL.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Inpatient Medications 8 ($$ENDD,$$ENDTC,$$ENDTC2)^PSGMI  ENFD^PSGNE3  ENSTOP^PSIVCAL  ($$CODES,GTOT)^PSIVUTL  NFIV^PSJDIN  $$DURMIN^PSJLIVMD  SETTMP^PSJLMPRU  $$DATE2^PSJUTL2  
Kernel 2 $$FMADD^XLFDT  $$LOW^XLFSTR  
List Manager 1 $$SETSTR^VALM1  
Order Entry Results Reporting 1 ($$ES,ES)^ORX8  
Pharmacy Data Management 1 $$HAZ^PSSUTIL  

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

Package Total Caller Graph
Inpatient Medications 4 PSJ LM BRIEF PATIENT INFO MENU  PSJ LM IV OE MENU  PSJLIVFD  PSJLIVMD  

Entry Points

Name Comments DBIA/ICR reference
FLDNO(X,COL)
LONG(Y,COL,LEN) ; Display long fields.
WRTDRG(DRGT) ; Print AD/SOL drugs for "backdoor" view.
WTPC ; Write provider comments.
TYPE() ; IV Type
STARTDT() ; Start Date
STARTDT2() ; Start Date with 4 digit year #373
STOPDT() ; Stop Date
STOPDT2() ; Stop Date with 4 digit year #373
PROVIDER() ; Provider
WDTE(Y) ; Format and print date.
ACTIONS()
ACT() ;
REQDT(ORDER) ;

External References

Name Field # of Occurrence
$$ES^ORX8 PROVIDER+2
ES^ORX8 PROVIDER+2
$$ENDD^PSGMI REQDT+22, REQDT+32
$$ENDTC^PSGMI STARTDT+2, STOPDT+2, REQDT+24, REQDT+34
$$ENDTC2^PSGMI STARTDT2+2, STOPDT2+2, REQDT+22, REQDT+32
ENFD^PSGNE3 REQDT+29
ENSTOP^PSIVCAL REQDT+30
$$CODES^PSIVUTL TYPE+1
GTOT^PSIVUTL FLDNO+5
NFIV^PSJDIN WRTDRG+7
$$DURMIN^PSJLIVMD REQDT+26
SETTMP^PSJLMPRU LONG+10, LONG+16, WRTDRG+10, WRTDRG+23, WRTDRG+31, WTPC+1, WTPC+3
$$DATE2^PSJUTL2 REQDT+6, REQDT+7, REQDT+21, REQDT+31
$$HAZ^PSSUTIL WRTDRG+17, WRTDRG+25
$$SETSTR^VALM1 FLDNO+7, LONG+9, LONG+11, LONG+15, LONG+18, WRTDRG+9, WRTDRG+22, WRTDRG+30
$$FMADD^XLFDT REQDT+26
$$LOW^XLFSTR PROVIDER+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WDTE+2
^ORD(101 - [#101] ACTIONS+2, ACT+2
^PS(52.7 - [#52.7] WRTDRG+3
^PS(53.1 - [#53.1] WTPC+1, REQDT+2, REQDT+28
^PS(55 - [#55] WTPC+3, REQDT+28

Label References

Name Line Occurrences
LONG WTPC+1, WTPC+3

Naked Globals

Name Field # of Occurrence
^(0 WRTDRG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A REQDT+14*, REQDT+19*
COL FLDNO~, FLDNO+7, LONG~, LONG+9, LONG+11, LONG+15, LONG+18
>> DA ACTIONS+2, ACT+2
>> DA(1 ACTIONS+2, ACT+2
>> DFN WTPC+3, REQDT+28
DIC ACTIONS+1~
>> DRG( WRTDRG+2, WRTDRG+3
>> DRG("AD" WRTDRG+17
>> DRG("SOL" WRTDRG+25
DRGT WRTDRG~, WRTDRG+2, WRTDRG+3, WRTDRG+7, WRTDRG+16, WRTDRG+24
DRGX WRTDRG+1~, WRTDRG+2*, WRTDRG+3, WRTDRG+17
>> DTOUT WTPC+1, WTPC+3
>> DUOUT WTPC+1, WTPC+3
DUR REQDT+25~*, REQDT+26
DURMIN REQDT+26~*
ESIG PROVIDER+2~*, PROVIDER+3
ESIG1 PROVIDER+2~*
LEN LONG~, LONG+6, LONG+7, LONG+9, LONG+10, LONG+11, LONG+14, LONG+15, LONG+18
>> LINE LONG+7*, LONG+8, LONG+11
ND0 REQDT+1~, REQDT+2*, REQDT+4
>> ON FLDNO+7
ORDER REQDT~, REQDT+1, REQDT+2, REQDT+5, REQDT+8, REQDT+9, REQDT+10, REQDT+11, REQDT+12, REQDT+13
, REQDT+15, REQDT+17, REQDT+18, REQDT+20, REQDT+21, REQDT+23, REQDT+25, REQDT+26, REQDT+27, REQDT+28
, REQDT+30, REQDT+33
P WRTDRG+17~
P("DTYP" STARTDT+1, STARTDT2+1, STOPDT+1, STOPDT2+1, PROVIDER+1
P("HAZD" WRTDRG+20*, WRTDRG+21!, WRTDRG+25!, WRTDRG+28*, WRTDRG+29!
P("HAZH" WRTDRG+19*, WRTDRG+21!, WRTDRG+25!, WRTDRG+27*, WRTDRG+29!
P("NAT" PROVIDER+2
P("OT" FLDNO+5, FLDNO+6, STARTDT+1, STARTDT2+1, STOPDT+1, STOPDT2+1, PROVIDER+1
P(17 STARTDT+1, STARTDT2+1, STOPDT+1, STOPDT2+1
P(2 STARTDT+2, STARTDT2+2, REQDT+6, REQDT+15*, REQDT+21*, REQDT+30
P(21 PROVIDER+2
P(23 TYPE+1
P(3 STOPDT+2, STOPDT2+2, REQDT+7, REQDT+20*, REQDT+30, REQDT+31*
P(4 FLDNO+5, TYPE+1, REQDT+15, REQDT+20, REQDT+21, REQDT+31
P(5 TYPE+1
P(6 PROVIDER+3
PARENT REQDT+1~, REQDT+2*, REQDT+3, REQDT+16
>> PSGACT ACTIONS+3, ACTIONS+4, ACTIONS+5, ACTIONS+6, ACTIONS+7, ACTIONS+8, ACTIONS+9, ACTIONS+11*, ACTIONS+12, ACTIONS+13
>> PSGFD REQDT+7*, REQDT+10, REQDT+11, REQDT+17, REQDT+19*, REQDT+20, REQDT+26*, REQDT+27*, REQDT+28, REQDT+29*
, REQDT+30*, REQDT+31, REQDT+32
>> PSGFDN REQDT+32*
>> PSGNEFD REQDT+19, REQDT+20*, REQDT+29
>> PSGNESD REQDT+16*
>> PSGORD REQDT+28
PSGRDTX REQDT+1!, REQDT+2*, REQDT+3, REQDT+4!, REQDT+5*, REQDT+13, REQDT+18, REQDT+25
PSGRDTX( REQDT+1, REQDT+8, REQDT+9*, REQDT+10, REQDT+11*, REQDT+12, REQDT+13, REQDT+15*, REQDT+17, REQDT+18
, REQDT+20*, REQDT+21, REQDT+23, REQDT+25, REQDT+26*, REQDT+27, REQDT+33
PSGRFD REQDT+2*, REQDT+4!, REQDT+18*, REQDT+19*, REQDT+20, REQDT+33*, REQDT+34
PSGRFDN REQDT+2*, REQDT+4!, REQDT+34*
>> PSGRSD REQDT+2*, REQDT+13*, REQDT+14*, REQDT+15, REQDT+23*, REQDT+24
>> PSGRSDN REQDT+2*, REQDT+24*
>> PSGSD REQDT+6*, REQDT+8, REQDT+9, REQDT+12, REQDT+14*, REQDT+15, REQDT+16, REQDT+21*, REQDT+22, REQDT+25
, REQDT+26, REQDT+28, REQDT+29, REQDT+30
>> PSGSDN REQDT+22*
>> PSGSRDTX REQDT+16
PSGST REQDT+28~*
PSHAZ WRTDRG+17~*, WRTDRG+18, WRTDRG+19, WRTDRG+20, WRTDRG+25!~*, WRTDRG+26, WRTDRG+27, WRTDRG+28
>> PSIVAC STARTDT+1, STARTDT2+1, STOPDT+1, STOPDT2+1, PROVIDER+1
>> PSIVBR ACT+4
>> PSIVCHG WTPC+2
>> PSIVNUM STARTDT+1, STARTDT2+1, STOPDT+1, STOPDT2+1, PROVIDER+1
>> PSIVX WTPC+1*, WTPC+3*
>> PSJBADD ACTIONS+11
>> PSJHIDFG ACT+3
>> PSJHIS FLDNO+7
PSJIVIEN WRTDRG+1~, WRTDRG+3*, WRTDRG+7
>> PSJL FLDNO+7*, LONG+9*, LONG+10*, LONG+11*, LONG+15*, LONG+16*, LONG+18*, WRTDRG+5*, WRTDRG+9*, WRTDRG+10
, WRTDRG+22*, WRTDRG+23, WRTDRG+30*, WRTDRG+31, WTPC+1*, WTPC+3*
>> PSJLMX WRTDRG+13*
PSJNF WRTDRG+7~
PSJNF("NF" WRTDRG+8
PSJNX WRTDRG+17~, WRTDRG+21*, WRTDRG+22, WRTDRG+29*, WRTDRG+30
PSJOLDOT FLDNO+5~*
>> PSJORD FLDNO+7, WTPC+1, WTPC+3
>> PSJSTAR FLDNO+4*, FLDNO+6
PSJX WRTDRG+1~, WRTDRG+5*, WRTDRG+8*, WRTDRG+9
PSJX1 WRTDRG+1~, WRTDRG+4*, WRTDRG+5
STR LONG+4~*, LONG+14, LONG+15, LONG+16*, LONG+17*, LONG+18
STRLEN LONG+4~*, LONG+9, LONG+10*, LONG+11
U WRTDRG+3, WRTDRG+4, WRTDRG+5, WRTDRG+17, WRTDRG+25, PROVIDER+3, ACTIONS+2, ACT+2, REQDT+4, REQDT+5
, REQDT+13, REQDT+18, REQDT+22, REQDT+25, REQDT+32
X FLDNO~, FLDNO+6*, FLDNO+7, LONG+8*, LONG+9, LONG+10, LONG+13*, LONG+14, LONG+17, WRTDRG+3*
, WRTDRG+4, WRTDRG+5, TYPE+1*, TYPE+2, STARTDT+1*, STARTDT2+1*, STOPDT+1*, STOPDT2+1*, PROVIDER+1*, PROVIDER+3*
, PROVIDER+4, ACTIONS+1~
>> XQY0 WRTDRG+15
Y LONG~, LONG+6, LONG+7, LONG+9, LONG+11, LONG+13, LONG+14, LONG+17, WTPC+1*, WTPC+3*
, WDTE~, WDTE+1*, WDTE+2*, WDTE+3, ACTIONS+1~, ACTIONS+2*, ACTIONS+3, ACTIONS+4, ACTIONS+5, ACTIONS+6
, ACTIONS+7, ACTIONS+8, ACTIONS+9, ACTIONS+12, ACTIONS+13, ACT+1~, ACT+2*, ACT+3, ACT+4

Marked Items

Name Field # of Occurrence
$T(ES^ORX8 PROVIDER+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All