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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Inpatient Medications 9 CLNDISP^PSJCLNOC  (CK,CKIV,CKIVD)^PSJCROC  EN^PSJGMRA  (DSPLORDU,DSPLORDV,PAUSE)^PSJLMUT1  WRITE^PSJMISC  DI^PSJOCDI  (DT,DTDGCK)^PSJOCDT  ($$SYS,DSPERR)^PSJOCERR  
CPRS^PSJOCOR  
Pharmacy Data Management 2 IN^PSSHRQ2  ($$HAZ,HAZWARNG)^PSSUTIL  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 $$REPEAT^XLFSTR  
List Manager 1 FULL^VALM1  
Outpatient Pharmacy 1 BLD^PSODDPR4  

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

Package Total Caller Graph
Inpatient Medications 10 PSGOE82  PSGSICHK  PSIVEDT  PSIVOC  PSJOCDC  PSJOCDI  PSJOCDS  PSJOCDSD  
PSJOCDT  PSJOCERR  

Entry Points

Name Comments DBIA/ICR reference
OC(PSPDRG,PSJPTYP) ;
DISPLAY ;
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

External References

Name Field # of Occurrence
$$GET1^DIQ ALLERGY+10, ALLERGY+19, ALLERGY+25
^DIR HAZCHK+28
CLNDISP^PSJCLNOC DSPORD+7
CK^PSJCROC DISPLAY+7
CKIV^PSJCROC DISPLAY+9, DISPLAY+10
CKIVD^PSJCROC DISPLAY+11
EN^PSJGMRA ALLERGY+15, ALLERGY+35
DSPLORDU^PSJLMUT1 DSPORD+9
DSPLORDV^PSJLMUT1 DSPORD+10
PAUSE^PSJLMUT1 DISPLAY+28, DISPLAY+29, DISPLAY+34, DSPORD+8, DSPORD+12, DRUGERR+8, DRUGERR+18, DSPDRGER+8, NOFDB+7
WRITE^PSJMISC DSPDRGER+10, DSPDRGER+11
DI^PSJOCDI DISPLAY+21
DT^PSJOCDT DISPLAY+25
DTDGCK^PSJOCDT DISPLAY+26
$$SYS^PSJOCERR OC+9
DSPERR^PSJOCERR DISPLAY+23, DISPLAY+27
CPRS^PSJOCOR GMRAOC+3
BLD^PSODDPR4 OC+12
IN^PSSHRQ2 PING+3
$$HAZ^PSSUTIL HAZCHK+10, HAZCHK+17, HAZDRUG+8, HAZDRUG+12, HAZDRUG+16
HAZWARNG^PSSUTIL HAZCHK+23
FULL^VALM1 DISPLAY+3, ALLERGY+4
$$REPEAT^XLFSTR WRAPTEXT+8, WRAPTEXT+13

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: @IOF
  • Line Location: DRUGERR+8
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+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPDRGER+9
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
Routine Call
  • DIR
  • Line Location:
    • HAZCHK+28

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.6 - [#52.6] HAZDRUG+12
^PS(52.7 - [#52.7] HAZDRUG+16
^TMP($J OC+14!, DISPLAY+19, DISPLAY+26, DISPLAY+29, ALLERGY+23, ALLERGY+24, DRUGERR+10, DRUGERR+11, DRUGERR+13, PING+2*
, DSPSERR+2, PROSPERR+3, PROSPERR+4, PROSPERR+5, PROSPERR+12, PROSPERR+13

Label References

Name Line Occurrences
$$DSPSERR DISPLAY+14, PING+4
$$ERRCHK DRUGERR+16, PROSPERR+7
$$PROSPERR DRUGERR+6
ALLERGY GMRAOC+2
DISPLAY OC+13
DRUGERR DISPLAY+18
DSPDRGER DRUGERR+17, PROSPERR+8
GMRAOC DISPLAY+4
HAZCHK GMRAOC+1
HAZDRUG HAZCHK+8, HAZCHK+15
NOFDB DSPSERR+3
WRAPTEXT HAZCHK+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AR HAZDRUG~
AR( HAZDRUG+8*, HAZDRUG+12*, HAZDRUG+16*
COUNT WRAPTEXT+3~, WRAPTEXT+9*, WRAPTEXT+10
CRIV DISPLAY+9*, DISPLAY+10*, DISPLAY+12!
CROCLN DISPLAY+2~, DISPLAY+5*
CROCLN2 DISPLAY+2~, DISPLAY+5*
CROCNR DISPLAY+5*, DISPLAY+12!
CROCPFLG DISPLAY+12!
CSPACES WRAPTEXT~, WRAPTEXT+6*, WRAPTEXT+8, WRAPTEXT+13
DACNT ALLERGY+7~, ALLERGY+36!
>> DFN OC+12, ALLERGY+15, ALLERGY+35, DSPORD+9, DSPORD+10, HAZCHK+6, HAZCHK+13
DIR HAZCHK+28!
DIR("?" HAZCHK+28*
DIR("A" HAZCHK+28*
DIR(0 HAZCHK+28*
DRGIEN HAZCHK+1~, HAZCHK+16*, HAZCHK+17, HAZCHK+20*, HAZCHK+21, HAZCHK+22, HAZCHK+23
FILE HAZDRUG~, HAZDRUG+6, HAZDRUG+7, HAZDRUG+10, HAZDRUG+11, HAZDRUG+14, HAZDRUG+15
GL HAZDRUG+4~, HAZDRUG+7*, HAZDRUG+11*, HAZDRUG+15*
HAZ HAZCHK+1~, HAZCHK+19*, HAZCHK+23*, HAZCHK+26
HAZD HAZCHK+1~, HAZCHK+2*, HAZCHK+21*, HAZCHK+22, HAZCHK+23
HAZH HAZCHK+1~, HAZCHK+2*, HAZCHK+21*, HAZCHK+22, HAZCHK+23
HDG HAZCHK+1~, HAZCHK+19*, HAZCHK+24*
HTXT HAZCHK+1~, HAZCHK+23, HAZCHK+25
HZAR HAZCHK+1~, HAZCHK+8, HAZCHK+15
HZAR( HAZCHK+10*, HAZCHK+17*, HAZCHK+20, HAZCHK+21
IFN HAZDRUG+4~, HAZDRUG+7*, HAZDRUG+8, HAZDRUG+11*, HAZDRUG+12*, HAZDRUG+15*, HAZDRUG+16*
IOF DISPLAY+3, DSPORD+8, DSPORD+12, DRUGERR+8, DRUGERR+18, DSPDRGER+8
IOSL DISPLAY+32, DSPORD+8, DSPORD+12, DRUGERR+8, DRUGERR+18, DSPDRGER+8
LIMIT WRAPTEXT~, WRAPTEXT+5*, WRAPTEXT+13
LINE WRAPTEXT+3~, WRAPTEXT+12*, WRAPTEXT+13!
LL HAZCHK+1~, HAZCHK+19*, HAZCHK+24, HAZCHK+27
>> NAME HAZCHK+3, HAZCHK+9, HAZCHK+11
NEXTWORD WRAPTEXT+3~, WRAPTEXT+10*, WRAPTEXT+11, WRAPTEXT+12, WRAPTEXT+14
NXT HAZDRUG+4~, HAZDRUG+7*, HAZDRUG+11*, HAZDRUG+15*
NXTROOT HAZDRUG+4~, HAZDRUG+7*, HAZDRUG+11*, HAZDRUG+15*
ON DSPORD~, DSPORD+4, DSPORD+9, DSPORD+10, DSPORD+11, DSPORD+15, HAZCHK+3, HAZCHK+5, HAZCHK+6
>> PSGDRG HAZCHK+3, HAZCHK+9, HAZCHK+10
>> PSGORD HAZCHK+4, HAZCHK+5, HAZCHK+6
>> PSGORQF DISPLAY+4, DISPLAY+7, DISPLAY+11, DISPLAY+13, DISPLAY+22, DISPLAY+27, DISPLAY+30, GMRAOC+2, ALLERGY+14, ALLERGY+34
ALLERGY+35
PSIALLFL ALLERGY+5!
>> PSIVCOPY DISPLAY+28
PSJALGCT ALLERGY+9~, ALLERGY+15*
PSJALLGS ALLERGY+9~, ALLERGY+22*, ALLERGY+33*, ALLERGY+34*, ALLERGY+35
PSJALLGY ALLERGY+36!, HAZCHK+9, HAZCHK+11, HAZCHK+16
PSJALLGY( ALLERGY+10, ALLERGY+18, ALLERGY+20*, ALLERGY+21*, ALLERGY+26*, ALLERGY+27, ALLERGY+28!, ALLERGY+34, ALLERGY+35, HAZCHK+16
PSJALLGY("A" ALLERGY+27!, ALLERGY+31, ALLERGY+32!
PSJALLGY("AA" ALLERGY+11*, ALLERGY+12*, ALLERGY+14, ALLERGY+16!
PSJALLGY("Z" ALLERGY+32
PSJAOC ALLERGY+7~*
PSJCC ALLERGY+29*, ALLERGY+31*, ALLERGY+32, ALLERGY+33*, ALLERGY+34*, ALLERGY+35, ALLERGY+36!
>> PSJCKDRG ALLERGY+24*, ALLERGY+25, ALLERGY+26, ALLERGY+27, ALLERGY+28
PSJCLINF DSPORD~, DSPORD+5*, DSPORD+7
PSJCOL DSPORD+3~, DSPORD+6*
PSJCROCF DISPLAY+2~
PSJDD ALLERGY+9~*, ALLERGY+10*, ALLERGY+11, ALLERGY+12, ALLERGY+13*, ALLERGY+14*, ALLERGY+15, ALLERGY+20, ALLERGY+29*, ALLERGY+31*
ALLERGY+32, ALLERGY+33*, ALLERGY+35*, ALLERGY+36!
PSJDERF2 DISPLAY+2~, DISPLAY+31, DISPLAY+32, DSPDRGER+11*
>> PSJDERR2 DRUGERR+18*
>> PSJDGCK OC+11, DISPLAY+19, DISPLAY+25, DISPLAY+26, DISPLAY+28, DISPLAY+29, DISPLAY+34, ALLERGY+8, ALLERGY+17, DRUGERR+9
PSJDGCKX DISPLAY+6, DISPLAY+12!
PSJDGDRG ALLERGY+7~
PSJDGFLG ALLERGY+7~, ALLERGY+22*, ALLERGY+35*
PSJDN DISPLAY+1~
PSJDNM DISPLAY+1~
PSJDRGIF DISPLAY+2~, DISPLAY+31, DISPLAY+32
PSJDSFLG DSPDRGER~, DSPDRGER+5
PSJDSPFG DRUGERR+1~, DRUGERR+5*, DRUGERR+8, DRUGERR+18, DSPDRGER+6*, PROSPERR+8*, PROSPERR+14*
PSJDUPTF DISPLAY+2~, DISPLAY+31, DISPLAY+32
PSJECNT DISPLAY+1~
>> PSJEXCPT( ERRCHK+7*, ERRCHK+8*
>> PSJEXCPT("PROFILE" DRUGERR+9
PSJGDDN ALLERGY+9~, ALLERGY+10*, ALLERGY+11, ALLERGY+12, ALLERGY+19*, ALLERGY+20, ALLERGY+21, ALLERGY+22*, ALLERGY+25*, ALLERGY+26
ALLERGY+27
PSJGGDN ALLERGY+13*, ALLERGY+14*, ALLERGY+36!
PSJLINE DSPORD+3~, DSPORD+6*
PSJLINEF DRUGERR+1~, DRUGERR+12*
PSJMON DISPLAY+1~
PSJMSG PING~, PING+4, DSPSERR~, DSPSERR+3, NOFDB~, NOFDB+3, NOFDB+4, NOFDB+7
PSJN DRUGERR+1~, DRUGERR+11*, DRUGERR+13, PROSPERR+1~, PROSPERR+4*, PROSPERR+5
PSJNLST DSPORD~, DSPORD+8, DSPORD+12, DSPORD+14
PSJNV DRUGERR+1~, DRUGERR+13*, DRUGERR+16, DSPDRGER+2, DSPDRGER+11, PROSPERR+1~, PROSPERR+5*, PROSPERR+7
PSJOC DISPLAY+1~, DSPORD+3~
PSJOC( DSPORD+11, DSPORD+15
PSJOCDT DISPLAY+1~
PSJOCDTL DISPLAY+1~
PSJOCERR OC+7~
PSJOCLST DISPLAY+1~
PSJOLDSV DISPLAY+1~
>> PSJORD HAZCHK+11, HAZCHK+12, HAZCHK+13
PSJP DISPLAY+1~
PSJPAUSE DISPLAY+1~, DISPLAY+17*, DISPLAY+31!, DISPLAY+32*, DISPLAY+34, DSPDRGER+7!
PSJPERR DRUGERR+1~, DRUGERR+6*, DRUGERR+7, PROSPERR+1~, PROSPERR+11*, PROSPERR+14*, PROSPERR+15
PSJPON DISPLAY+1~, DRUGERR+1~, DRUGERR+10*, DRUGERR+11, DRUGERR+13, DRUGERR+15, PROSPERR+1~, PROSPERR+3*, PROSPERR+4, PROSPERR+5
, PROSPERR+6, PROSPERR+7, PROSPERR+12*, PROSPERR+13
PSJPTYP OC~, OC+12
PSJS DISPLAY+1~
PSJSEV DISPLAY+1~
PSJTOFFL DISPLAY+2~, DISPLAY+15*, DISPLAY+28
PSJTXT DSPDRGER+1~, DSPDRGER+2*, DSPDRGER+5*, DSPDRGER+10
PSJTYPE ERRCHK~, ERRCHK+5, ERRCHK+7, ERRCHK+8
PSJX DSPORD+3~, DSPORD+11*, DSPORD+14, DSPORD+15, DRUGERR+1~, ERRCHK~, ERRCHK+4, ERRCHK+7, ERRCHK+8, NOFDB~
, NOFDB+2, NOFDB+5, NOFDB+6!, PROSPERR+7*
PSJXX ALLERGY+18*, ALLERGY+19, ALLERGY+20, ALLERGY+21, ALLERGY+22*, ALLERGY+23*, ALLERGY+24, ALLERGY+36!
PSJYY ALLERGY+22*, ALLERGY+36!
PSORDN HAZCHK+1~, HAZCHK+4*, HAZCHK+5*, HAZCHK+6*, HAZCHK+7, HAZCHK+8, HAZCHK+12*, HAZCHK+13*, HAZCHK+14, HAZCHK+15
PSPDRG OC~, OC+12, GMRAOC+3
PSPDRG(1 DISPLAY+7
QQ HAZDRUG+4~, HAZDRUG+6*, HAZDRUG+7, HAZDRUG+10*, HAZDRUG+11, HAZDRUG+14*, HAZDRUG+15
ROOT HAZDRUG+4~, HAZDRUG+6*, HAZDRUG+7, HAZDRUG+10*, HAZDRUG+11, HAZDRUG+14*, HAZDRUG+15
TEXT WRAPTEXT~, WRAPTEXT+4, WRAPTEXT+7, WRAPTEXT+10
>> TMPDRG1("AD" DISPLAY+7, DISPLAY+8, DISPLAY+9, DISPLAY+11
>> TMPDRG1("SOL" DISPLAY+7, DISPLAY+8, DISPLAY+10, DISPLAY+11
TOP HAZCHK+1~
U ALLERGY+24, DRUGERR+16, DSPDRGER+2, DSPDRGER+11, DSPSERR+3, DSPSERR+4, PROSPERR+7, HAZCHK+21, HAZDRUG+12, HAZDRUG+16
>> VALMBCK DISPLAY+11*
WORDS WRAPTEXT+3~, WRAPTEXT+7*, WRAPTEXT+9
X DSPORD+3~, DSPORD+15*, DSPORD+16, DSPDRGER+4*, DSPDRGER+5, DSPSERR+1~, DSPSERR+2*, DSPSERR+3, DSPSERR+4, NOFDB+1~
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 |  Local Variables  | All