Routine: PSJUTL

Package	Total	Call Graph
Inpatient Medications	6	8^PSGOE81 EN^PSGS0 $$ENSET^PSGSICHK 64^PSIVEDT1 ATS^PSJMUTL $$ENQ^PSJORP2
VA Fileman	4	NOW^%DTC ^DIC DO^DIC1 ^DIR
IHS Changes To Pharmacy	1	$$SCREEN^APSPMULT
Registration	1	CLEAR^VALM1

Package	Total	Caller Graph
Inpatient Medications	27	APPLICATION PSGL PSGOE PSGOE3 PSGOE41 PSGOE7 PSGOE81 PSGOE91 PSGOEF PSGOER0 PSGPR PSGVBWP PSIV PSIVEDT1 PSIVOPT1 PSIVOPT2 PSIVORC PSIVORC1 PSIVORC2 PSIVORE PSIVORFA PSIVORFE PSJCOMR PSJLIFN PSJPR ^PS(59.6 PSJLIFNI

Entry Points

Name	Comments	DBIA/ICR reference
FS	;
READ	; hold screen
ENPC(PSJTYP,PSJSYSP,LEN,TEXT)	; Copy Provider Comments -> Special Instructions.
ENAQ	; application query
ENPCHLP1(Y)	; Display help messages for Provider Comment copy.
ENBCMA(PSJTYP)	;
EFDDISP	;Display Expected First Dose
EFDNV	;Call here if Editing Fields for a NON-VERIFIED order ; Field 10 = Start Date ; Field 25 = Stop Date ; Field 39 = Admin Times
COMSI(PARENT,INSTR)	;
1	;;All Medications
3	;;IV Piggybacks
2	;;Non-IV Medications only
5	;;TPNs
4	;;LVPs
6	;;Chemotherapy Medications (IV)
ENMARDH	;Help text for MAR default answer.
ENOISC(PSJOI,USAGE)	;Set DIC("S") so that only Orderable Items with at
ENPCHLP2(Y,X)	;
ENDH(X)	; device help
REDISP	; Redisplay Provider Comments and allow entry of Spec. Instructions.
ENALU	; application look-up
AADR	; display allergies and adverse reactions
EFDACT	;Call here if Editing Fields for an ACTIVE order ; Field 10 = Start Date ; Field 34 = Stop Date ; Field 41 = Admin Times
EFDIV(PSGZZND)	;Set variables for EFD on IV orders.
ENORL(X)	; Return patient's location as variable ptr.
EFD	;The following EFD Tags are used to Calculate the Expected First Dose for backdoor
ENDL	; device look-up
EFDNEW	;Call Here if NEW or RENEWED Order
CHKSTOP	;BHW - PSJ5177 Warn user if the Stop Date is < now.
ENFIELD(Y)	;
ENMARD()	; validate MAR SELECTION DEFAULT string in WARD PARMS file.

External References

Name	Field # of Occurrence
NOW^%DTC	CHKSTOP+2
$$SCREEN^APSPMULT	ENOISC+8
^DIC	ENDL+2, ENDH+2, ENALU+1, ENAQ+1
DO^DIC1	ENDL+2, ENDH+2, ENALU+1, ENAQ+1
^DIR	ENPC+10, ENBCMA+3, COMSI+5
8^PSGOE81	REDISP+3
EN^PSGS0	EFDIV+2
$$ENSET^PSGSICHK	ENPC+4
64^PSIVEDT1	REDISP+4
ATS^PSJMUTL	AADR+1
$$ENQ^PSJORP2	EFDDISP+6
CLEAR^VALM1	REDISP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: READ+2
Function Call: WRITE	Prompt: !?5,"Press return to continue " Line Location: READ+3
Function Call: WRITE	Prompt: !!,"No allergies or ADRs on file." Line Location: AADR+2
Function Call: WRITE	Prompt: !!,"Allergies: " Line Location: AADR+3
Function Call: WRITE	Prompt: ?12,$G(@A),! Line Location: AADR+3
Function Call: WRITE	Prompt: !," ADR: " Line Location: AADR+4
Function Call: WRITE	Prompt: ?12,$G(@A),! Line Location: AADR+4
Function Call: WRITE	Prompt: !,"PROVIDER COMMENTS:" Line Location: ENPC+8
Function Call: WRITE	Prompt: !,^PS(53.1,+$G(PSJORD),12,PSJTMP,0) Line Location: ENPC+9
Function Call: WRITE	Prompt: ! Line Location: ENPC+10
Function Call: WRITE	Prompt: ^(X,0),! Line Location: REDISP+1
Function Call: WRITE	Prompt: !! Line Location: REDISP+2
Function Call: WRITE	Prompt: !,"Enter ""YES"" to copy Provider Comments into the ",$$ENFIELD(Y)," field",!,"or ""NO"" to bypass",!,"or ""!"" to copy the Provider Comments into the ",$$ENFIELD(PSJTYP)," field",!,"and flag them for display in a BCMA Message Box",!! Line Location: ENPCHLP1+1
Function Call: WRITE	Prompt: !,"The Provider Comments entered for this order are longer than the space available",!,"in the ",$$ENFIELD(Y)," field.",!!,"Enter ""YES"" to copy the first ",X-3," characters into the ",$$ENFIELD(Y),!,"field, or ""NO"" to continue.",!! Line Location: ENPCHLP2+1
Function Call: WRITE	Prompt: !!,"Would you like to flag the ",$$ENFIELD(PSJTYP)," field for display in a BCMA",!,"Message box?" Line Location: ENBCMA+2
Function Call: WRITE	Prompt: ! Line Location: ENBCMA+3
Function Call: WRITE	Prompt: !!!!?15," WARNING ",!?5,"This order is part of a complex order." Line Location: COMSI+2
Function Call: WRITE	Prompt: !!,"Would you like to copy the ",$$ENFIELD(PSJTYP) Line Location: COMSI+3
Function Call: WRITE	Prompt: !,"to the other orders in the complex order?" Line Location: COMSI+4
Function Call: WRITE	Prompt: !!,"All Medications (1) may not be selected in combination with other types." Line Location: ENMARD+7
Function Call: WRITE	Prompt: !!?2,"Enter the number corresponding to the type of orders to be included on MARs",!,"printed for this ward. Multiple types (except 1) may be selected using ""-""",!,"or "","" as delimiters.",!!,"Choose from: ",! Line Location: ENMARDH+1
Function Call: WRITE	Prompt: !?13,X," - ",$P($T(@X),";;",2) Line Location: ENMARDH+2
Function Call: WRITE	Prompt: ! Line Location: ENMARDH+3
Function Call: WRITE	Prompt: ! Line Location: EFDIV+7
Function Call: WRITE	Prompt: !,"Expected First Dose: ",Y Line Location: EFDDISP+9
Function Call: WRITE	Prompt: !,$C(7),"The Stop Date/Time is in the Past!!! This order will",!,"automatically EXPIRE upon Verification!!",! Line Location: CHKSTOP+4
Routine Call	DIC Line Location: ENDL+2 ENDH+2 ENALU+1 ENAQ+1
Routine Call	DIR Line Location: ENPC+10 ENBCMA+3 COMSI+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^%ZIS(1 - [#3.5]	Classic Fileman Calls
^PS(50.35 - [#50.35]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EFDDISP+8
^DIC(42 - [#42]	ENORL+1
^PS(50.3 - [#50.3]	ENALU+2
^PS(50.7 - [#50.7]	ENOISC+7
^PS(53.1 - [#53.1]	ENPC+1, ENPC+3, ENPC+9, REDISP+1
^PSDRUG - [#50]	ENOISC+8
^PSDRUG("ASP"	ENOISC+8

Label References

Name	Line Occurrences
$$COMSI	ENBCMA+4
$$ENFIELD	ENPC+10, ENPCHLP1+1, ENPCHLP2+1, ENBCMA+2, ENBCMA+3, COMSI+3, COMSI+5
CHKSTOP	EFDIV+5
EFDDISP	EFDNEW+3, EFDACT+13, EFDNV+6, EFDNV+17
EFDNEW	EFDIV+6
FS	ENMARD+4
READ	READ+2, AADR+5
REDISP	ENPC+5

Naked Globals

Name	Field # of Occurrence
^(	ENPC+3, REDISP+1
^("I"	ENOISC+8
^(44	ENORL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CHKSTOP+2~
%H	CHKSTOP+2~
%I	CHKSTOP+2~
A	AADR+1~, AADR+3, AADR+4
B	AADR+1~, AADR+3, AADR+4
D	ENDH+1~, ENAQ+1~
DA	ENDL+1~, ENDH+1~, ENALU+1~, ENAQ+1~
DA(1	ENALU+1
DIC	ENDL+1~, ENDL+2, ENDH+1~, ENDH+2, ENALU+1~, ENAQ+1~
DIC(0	ENDL+2, ENDH+2, ENALU+1, ENAQ+1
DIE	ENDL+1~, ENDH+1~, ENALU+1~, ENAQ+1~
DIR	ENPC+2~, ENBCMA+1~, COMSI+1~
DIR("??"	ENPC+10*
DIR("A"	ENPC+10, ENBCMA+3, COMSI+5*
DIR(0	ENPC+10, ENBCMA+3, COMSI+5*
DIX	ENDL+1~, ENALU+1~
DO	ENDL+1~, ENDH+1~, ENALU+1~, ENAQ+1~
DR	ENDL+1~, ENDH+1~, ENALU+1~, ENAQ+1~
DT	ENOISC+7, ENOISC+8
DTIME	READ+3
DZ	ENDH+1~, ENAQ+1~
FOUND	ENOISC+6~, ENOISC+7, ENOISC+8, ENOISC+9
INFO	EFDNEW+1~, EFDNEW+2, EFDACT+4~, EFDACT+12, EFDNV+4~, EFDNV+7, EFDNV+16, EFDDISP+6
INSTR	COMSI~
IOSL	READ+2
IOST	READ+1
KEY	EFDACT+4~, EFDACT+6, EFDNV+4~, EFDNV+10
LAST	EFDACT+4~, EFDACT+8, EFDACT+10, EFDACT+11, EFDNV+4~, EFDNV+12, EFDNV+14, EFDNV+15
LEN	ENPC~, ENPC+3, ENPC+5
LYN	EFDIV+2~
ORDER	EFDACT+4~, EFDACT+6, EFDNV+4~, EFDNV+10
ORDER(	EFDACT+6, EFDACT+10, EFDNV+10, EFDNV+14
ORDER(99	EFDACT+8, EFDNV+12
>> P("OPI"	REDISP+4, ENBCMA+4, ENBCMA+5, ENBCMA+6
>> P("PD"	EFDIV+3
>> P(11	EFDIV+3
>> P(2	EFDIV+3
>> P(3	EFDIV+3, CHKSTOP+1, CHKSTOP+3
>> P(9	EFDIV+2, EFDIV+3
PARENT	COMSI~
PSGADR	AADR+2, AADR+4, AADR+5!
PSGALG	AADR+2, AADR+3, AADR+5!
>> PSGDRG	EFDNEW+2, EFDIV+3*
>> PSGF2	EFDACT+11, EFDNV+15
>> PSGFD	EFDACT+12, EFDNV+16
>> PSGNEFD	EFDNEW+2, EFDNV+7, EFDIV+3*
>> PSGNESD	EFDNEW+2, EFDNV+7, EFDIV+3*
PSGOEE	ENPC+2~, ENPC+5*
>> PSGOEER	EFDACT+6, EFDNV+6, EFDNV+10
PSGOES	EFDIV+2~*
PSGP	EFDDISP+5~*, EFDDISP+6
>> PSGPDRG	EFDACT+12, EFDNV+7, EFDNV+16
PSGS0XT	EFDIV+2~
PSGS0Y	EFDNEW+2, EFDACT+12, EFDNV+7, EFDNV+16, EFDIV+2~, EFDIV+3*
>> PSGSCH	EFDNEW+2, EFDACT+12, EFDNV+7, EFDNV+16, EFDIV+3*, EFDDISP+3, EFDDISP+4
>> PSGSD	EFDACT+12, EFDNV+16
PSGSI	ENPC+2~, ENPC+5, ENPC+10, ENPC+11, ENPC+12, REDISP+2, REDISP+4*, ENBCMA+4, ENBCMA+5, ENBCMA+6
>> PSGST	EFDNEW+2, EFDACT+12, EFDNV+7, EFDNV+16, EFDIV+3*, EFDDISP+2
PSGZZND	EFDIV~, EFDIV+1, EFDIV+2*, EFDIV+3
PSJ	ENOISC+6~, ENOISC+7, ENOISC+8, ENALU+1~*, ENALU+2
PSJANS	ENMARD+1~, ENMARD+4, ENMARD+5, ENMARD+6, ENMARD+7!, ENMARD+8, ENMARD+9, FS+1!, FS+2, FS+3 , FS+4!*
>> PSJCOM	ENBCMA+4
PSJCOMSI	ENBCMA+4!*
PSJOI	ENOISC~, ENOISC+7, ENOISC+8
>> PSJORD	ENPC+1, ENPC+3, ENPC+9, REDISP+1, ENBCMA+4
PSJSYSP	ENPC~
PSJTMP	ENPC+7~, ENPC+9
PSJTYP	ENPC~, ENPC+4, ENPC+10, REDISP+3, REDISP+4, ENPCHLP1+1, ENBCMA~, ENBCMA+2, ENBCMA+3, ENBCMA+4 , ENBCMA+5, ENBCMA+6, COMSI+3, COMSI+5
PSJX1	ENMARD+1~, ENMARD+2, ENMARD+4, FS+1, FS+2, FS+3, FS+4
PSJX2	ENMARD+1~, FS+3, FS+4
PSNOW	CHKSTOP+2~*, CHKSTOP+3
Q	ENMARD+1~, ENMARD+4, ENMARD+6, ENMARD+7, ENMARD+8
RANGE	ENMARD+1~, ENMARD+2*, ENMARD+3
RANGE(	ENMARD+2*, FS+1, FS+4
TEXT	ENPC~, ENBCMA+4~*
U	ENOISC+7, ENOISC+8, EFDNEW+2, EFDACT+6, EFDACT+12, EFDNV+7, EFDNV+10, EFDNV+16
USAGE	ENOISC~, ENOISC+8
X	ENDL+2!, ENDL+3, ENDH~, READ+3, ENALU+1!, ENALU+2!, ENAQ+1, ENPC+2~, ENPC+3, REDISP+1 , ENPCHLP2~, ENPCHLP2+1, ENBCMA+1~, COMSI+1~, ENORL~, ENORL+1, ENMARD+3, ENMARD+4, ENMARD+9, FS+4 , ENMARDH+2~, EFDIV+2~, CHKSTOP+2~
XQH	ENDH+1~, ENAQ+1~
Y	ENDL+2, ENALU+1, ENPC+2~, ENPC+3, ENPC+4, ENPC+5, ENPC+10, ENPC+11, ENPC+12, ENPCHLP1~ , ENPCHLP1+1, ENPCHLP2~, ENPCHLP2+1, ENBCMA+1~, ENBCMA+5, ENFIELD~, ENFIELD+1, COMSI+1~, COMSI+6, EFDDISP+1~ , EFDDISP+6, EFDDISP+7, EFDDISP+9
Y(0	ENDL+3, ENALU+2
Z	EFDDISP+1~
ZZND	EFDIV+2~

Marked Items

Name	Field # of Occurrence
$T(@$PIECE^2;4(5)	ENMARD+8
$T(@X	ENMARDH+2

Customize PDF page

Package: Inpatient Medications

Routine: PSJUTL

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 27

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items