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

Package: Inpatient Medications

Routine: PSJUTL


Information

PSJUTL ;BIR/MLM - MISC. INPATIENT UTILITIES ; 10/7/08 1:22pm

Source Information

Source file <PSJUTL.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Inpatient Medications 8 TXT^PSGMUTL  8^PSGOE81  EN^PSGS0  $$ENSET^PSGSICHK  64^PSIVEDT1  (EDITOPI,EDITSI,OPIWARN)^PSJBCMA5  ATS^PSJMUTL  $$ENQ^PSJORP2  
VA FileMan 4 NOW^%DTC  ^DIC  DO^DIC1  ^DIR  
List Manager 1 CLEAR^VALM1  

Caller Graph

Caller Graph Total: 31

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

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC CHKSTOP+2
^DIC ENDL+2, ENDH+2, ENALU+1, ENAQ+1
DO^DIC1 ENDL+2, ENDH+2, ENALU+1, ENAQ+1
^DIR ENPCL+15, ENBCMA+5, COMSI+5
TXT^PSGMUTL ENSI+4
8^PSGOE81 REDISP+3
EN^PSGS0 EFDIV+2
$$ENSET^PSGSICHK ENPCL+9, ENPCL+27
64^PSIVEDT1 REDISP+4
EDITOPI^PSJBCMA5 ENPCL+28
EDITSI^PSJBCMA5 ENPCL+28
OPIWARN^PSJBCMA5 ENPCL+21
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: ENPCL+10
Function Call: WRITE
  • Prompt: !,^PS(53.1,+$G(PSJORD),12,PSJTMP,0)
  • Line Location: ENPCL+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ENPCL+14
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: !,"or type ""E"" to copy the Provider Comments into the ",$$ENFIELD(PSJTYP)," field and open a word processing window for editing."
  • Line Location: ENPCHLP1+2
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+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ENBCMA+5
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: !,PSGEFDMG,": ",Y
  • Line Location: EFDDISP+11
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:
    • ENPCL+15
    • ENBCMA+5
    • 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(51 - [#51] ENSISET+6
^PS(53.1 - [#53.1] ENPCL+2, ENPCL+4, ENPCL+5, ENPCL+9, ENPCL+13, ENPCL+18, ENPCL+19, ENPCL+20, ENPCL+24, ENPCL+27
, REDISP+1, PUT5345+1, PUT5345+3, PUT5345+4
^PS(53.45 - [#53.45] ENPCL+8!, ENPCL+9*, ENPCL+23!, ENPCL+25*, ENPCL+26*, ENPCL+27*, ENBCMA+2, ENBCMA+3, PUT5345+4*, PUT5345+6*
, PUT5345+9, PUT5345+10, PUT5345+11, ENSI+8!, ENSI+9*, ENSI+10*
^PSDRUG - [#50] ENOISC+8
^PSDRUG("ASP" ENOISC+8
^TMP("PSGSIL" ENSI+2!, ENSI+6, ENSI+7*, ENSI+8, ENSI+9, ENSI+11!

Label References

Name Line Occurrences
$$COMSI ENBCMA+6
$$ENBCMA ENPCL+29
$$ENFIELD ENPCL+15, ENPCHLP1+1, ENPCHLP1+2, ENPCHLP2+1, ENBCMA+4, ENBCMA+5, COMSI+3, COMSI+5
$$ENPCL ENPC+1
$$ENSISET ENSI+4
$$PUT5345 ENPCL+22
CHKSTOP EFDIV+5
EFDDISP EFDNEW+3, EFDACT+14, EFDNV+6, EFDNV+17
EFDNEW EFDIV+6
ENSI PUT5345+5
FS ENMARD+4
READ READ+2, AADR+5

Naked Globals

Name Field # of Occurrence
^( REDISP+1
^("I" ENOISC+8
^(0 ENSISET+6
^(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~, PUT5345+7~
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~, PUT5345+7~
DIR ENPCL+9~, ENBCMA+1~, COMSI+1~
DIR("??" ENPCL+15*
DIR("A" ENPCL+15*, ENBCMA+5*, COMSI+5*
DIR(0 ENPCL+14*, ENBCMA+5*, COMSI+5*
DIX ENDL+1~, ENALU+1~
DO ENDL+1~, ENDH+1~, ENALU+1~, ENAQ+1~
DONE ENBCMA+5*, ENSI+1~, ENSI+3*
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
FULL ENSI+1~
I ENSI+1~, ENSI+3*, ENSI+8*, ENSI+10*
II ENSI+1~, ENSI+6*, ENSI+7
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*, EFDNV+4~, EFDNV+12*, EFDNV+14*, EFDNV+15
LEN ENPC~
LN ENPCL+4~*, ENPCL+5, PUT5345+3~*, PUT5345+4
LNCNT ENPCL+4~*, ENPCL+5, ENPCL+6*, ENPCL+7, PUT5345+3~*, PUT5345+5, PUT5345+6
LYN EFDIV+2~
>> MARX( ENSI+6, ENSI+7
>> MARX(1 ENSI+5*
OLD ENSI+1~
OPILN ENPCL+18~*
OPIMSG ENPCL+18~*, ENPCL+21
ORDER EFDACT+4~, EFDACT+6*, EFDNV+4~, EFDNV+10*
ORDER( EFDACT+6*, EFDNV+10*, EFDNV+14
ORDER(99 EFDACT+8, EFDNV+12
>> P("OPI" REDISP+4, ENBCMA+6, ENBCMA+7, ENBCMA+8
>> 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~
PRVCLN ENPCL+24~*, ENPCL+25, ENPCL+26
PSGADR AADR+2, AADR+4, AADR+5!
PSGALG AADR+2, AADR+3, AADR+5!
>> PSGDRG EFDNEW+2, EFDIV+3*
>> PSGDT ENSI+10
PSGEFDMG EFDACT+13*, EFDDISP+10*, EFDDISP+11, EFDDISP+12!
>> PSGF2 EFDNV+15
>> PSGFD EFDACT+12, EFDNV+16
>> PSGNEFD EFDNEW+2, EFDNV+7, EFDIV+3*
>> PSGNESD EFDNEW+2, EFDNV+7, EFDIV+3*
>> PSGOEER EFDACT+6, EFDNV+6, EFDNV+10
PSGOES EFDIV+2~*
PSGORD ENPCL+22, ENPC+1, PUT5345~, PUT5345+1, PUT5345+3, PUT5345+4
PSGP ENPCL~, ENPCL+28, ENPC+1, 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 ENPCL+14*, ENPCL+16*, ENPCL+21*, ENPCL+22*, ENPCL+29*, ENPCL+30, ENPC+1*, ENPC+2, REDISP+2*, REDISP+4*
, ENBCMA+6, ENBCMA+7, ENBCMA+8
>> 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+6
PSJCOMSI ENBCMA+6!*
PSJFIREF PUT5345+5~*
PSJNWTXT ENSI+1~
PSJOI ENOISC~, ENOISC+7, ENOISC+8
PSJORD ENPCL~, ENPCL+1, ENPCL+2, ENPCL+4, ENPCL+5, ENPCL+9, ENPCL+13, ENPCL+18, ENPCL+19, ENPCL+20
, ENPCL+24, ENPCL+27, ENPCL+28, REDISP+1, ENBCMA+6
PSJOVRMX ENPCL+18~, ENPCL+19*, ENPCL+20*, ENPCL+21, PUT5345+2~, PUT5345+9*, PUT5345+10*, PUT5345+11, PUT5345+12
PSJSAVY ENPCL+9~, ENPCL+15*, ENPCL+16, ENPCL+17, ENPCL+21, ENPCL+22, ENPCL+23, ENPCL+29
PSJSIFIL ENSI~, ENSI+1, ENSI+3
PSJSITXT ENSI+1~
PSJSYSP ENPCL+8, ENPCL+9, ENPCL+23, ENPCL+25, ENPCL+26, ENPCL+27, ENPC~, ENBCMA+2, ENBCMA+3, PUT5345+4
, PUT5345+5, PUT5345+6, PUT5345+9, PUT5345+10, PUT5345+11, ENSI+6, ENSI+7, ENSI+8, ENSI+9, ENSI+10
PSJTMP ENPCL+12~*, ENPCL+13*
PSJTMPFI ENSI+1~*, ENSI+3*, ENSI+4
PSJTMPLI ENSI+1~, ENSI+4*, ENSI+5
PSJTMPTX ENPCL+18~, ENPCL+19*, ENPCL+20*, ENPCL+21, PUT5345+2~, PUT5345+9*, PUT5345+10, PUT5345+11*, PUT5345+12
PSJTYP ENPCL~, ENPCL+9, ENPCL+15, ENPCL+18, ENPCL+25, ENPCL+26, ENPCL+27, ENPCL+28, ENPCL+29, ENPC~
, ENPC+1, REDISP+3, REDISP+4, ENPCHLP1+1, ENPCHLP1+2, ENBCMA~, ENBCMA+2, ENBCMA+3, ENBCMA+4, ENBCMA+5
, ENBCMA+6, ENBCMA+7, ENBCMA+8, COMSI+3, COMSI+5, PUT5345+4, PUT5345+5, PUT5345+6, PUT5345+9, PUT5345+10
, PUT5345+11
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
SIMSG PUT5345+2~, PUT5345+8*, PUT5345+12
TEXT ENPC~, ENBCMA+6~*
TMPLIN ENPCL+19*, ENPCL+20, PUT5345+2~, PUT5345+9*, PUT5345+10, PUT5345+11
TOLIN ENSI+1~, ENSI+6*, ENSI+7, ENSI+8*, ENSI+9
TXT ENPCL+18~, PUT5345+3~*, PUT5345+4*, PUT5345+12*, PUT5345+13
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*, ENPCL+9~*, ENPCL+24~, ENPCL+27*
, REDISP+1*, ENPCHLP2~, ENPCHLP2+1, ENBCMA+1~, ENBCMA+5, COMSI+1~, ENORL~, ENORL+1, ENMARD+3*, ENMARD+4
, ENMARD+9*, FS+4, ENMARDH+2~*, EFDIV+2~*, CHKSTOP+2~, ENSI+1~, ENSISET~, ENSISET+4
X1 ENSISET+1~, ENSISET+4*, ENSISET+9*
X2 ENSISET+1~, ENSISET+4*, ENSISET+5, ENSISET+6
XQH ENDH+1~, ENAQ+1~
Y ENDL+2, ENALU+1, ENPCL+9~*, ENPCL+14, ENPCL+15, ENPCL+27*, ENPCHLP1~, ENPCHLP1+1, ENPCHLP2~, ENPCHLP2+1
, ENBCMA+1~, ENBCMA+7, ENFIELD~, ENFIELD+1, COMSI+1~, COMSI+6, EFDDISP+1~, EFDDISP+6*, EFDDISP+7*, EFDDISP+11
, ENSISET+1~*, ENSISET+5*, ENSISET+6*, ENSISET+9*, ENSISET+10
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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All