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

Package: Inpatient Medications

Routine: PSJOC


Information

PSJOC ;BIR/MV - NEW ORDER CHECKS DRIVER ; 9/10/14 10:53pm

Source Information

Source file <PSJOC.m>

Entry Points

Name Comments DBIA/ICR reference
OC(PSPDRG,PSJPTYP) ;
DISPLAY ;
PGX ;Perform PGx check
GMRAOC ;Display allergy & CPRS OC regardless if FDB is connected
ALLERGY ;Do allergy order check
DSPORD(ON,PSJNLST,PSJCLINF) ;Display the order data
DRUGERR ;Display drug level errors
DSPDRGER(PSJDSFLG) ;
ERRCHK(PSJTYPE,PSJX) ;
PING(PSJMSG) ;Check if FDB is down. Return 0 if it is
DSPSERR(PSJMSG) ;Display system errors
NOFDB(PSJX,PSJMSG) ;Display connection down message
PROSPERR() ;Display exceptions for prospective drug
HAZCHK ;Check for a hazardous drug component and display soft error type warning roll and scroll alert *364
HAZDRUG(FILE,AR) ;Get Hazardous to Handle and Hazardous to Dispose fields per component and return Haz array by DRUG IEN *364
; FILE = file root + Order Num from inpatient variables during workflow; Example VAR contains: "^PS(55,DFN,5,ON," or "(PS(53.1,ON," or "^PS(55,DFN,"IV",ON,"
; (build ROOT to the multiple level to find all Disp Drugs or Additives or Solution and get HAZ flags)
; AR = array of component's IEN and their Haz flag settings
WRAPTEXT(TEXT,LIMIT,CSPACES) ;Wrap text util copied in from a PSO routine originally *364

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Building MEDS profile please wait...",!
  • Line Location: OC+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: "Now processing Clinical Reminder Order Checks. Please wait ..."
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !!,"Now Processing Enhanced Order Checks! Please wait...",!!
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: !!,"Now doing allergy checks. Please wait..."
  • Line Location: ALLERGY+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DSPORD+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DSPORD+12
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPORD+13
Function Call: WRITE
  • Prompt: $E(X,9,$L(X))
  • Line Location: DSPORD+16
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPORD+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUGERR+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DRUGERR+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DSPDRGER+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPDRGER+8
Function Call: WRITE
  • Prompt: !!,PSJMSG
  • Line Location: NOFDB+3
Function Call: WRITE
  • Prompt: !!,"No Enhanced Order Checks can be performed."
  • Line Location: NOFDB+4
Function Call: WRITE
  • Prompt: !," Reason(s): ",PSJX,!!
  • Line Location: NOFDB+5
Function Call: WRITE
  • Prompt: #,$C(7),LL,!,$J("***** WARNING *****",47)
  • Line Location: HAZCHK+24
Function Call: WRITE
  • Prompt: !
  • Line Location: HAZCHK+25
Function Call: WRITE
  • Prompt: LL,!
  • Line Location: HAZCHK+27
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR(" ",CSPACES)
  • Line Location: WRAPTEXT+8
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR(" ",CSPACES)
  • Line Location: WRAPTEXT+13
Function Call: WRITE
  • Prompt: NEXTWORD_" "
  • Line Location: WRAPTEXT+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call