Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call