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  | All
Print Page as PDF
Routine: PSGSICH2

Package: Inpatient Medications

Routine: PSGSICH2


Information

PSGSICH2 ;BIR/JCH-PROVIDER & PHARMACY OVERRIDE UTILITIES 2; 01/25/11 1:02pm

Source Information

Source file <PSGSICH2.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 3 ($$ENLU,$$ENUL)^PSGMI  ($$OROICHK,HLD,ONEINTER)^PSGSICH  (BANNER,DSPROVR,GETPROVR,INTRDIC)^PSGSICH1  
VA FileMan 3 FIELD^DID  EN^DIQ1  ^DIR  
Kernel 1 $$FMTE^XLFDT  
List Manager 1 ($$SETSTR,FULL)^VALM1  
Order Entry Results Reporting 1 $$OCCNT^OROCAPI1  

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

Package Total Caller Graph
Inpatient Medications 8 PSGOEE  PSGSICH  PSGSICH1  PSJ LM FINISH  PSJ LM OVERRIDES  PSJI LM FINISH  PSJI PC RENEWAL  PSJU LM RENEW  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
INTROUT(INTER,PSJIDTM,PSJORDER,OUTARRAY) ; Build array of detailed intervention information
INTRDICO(INTER) ; Retrieve Intervention data from APSP Intervention (#9009032.4) file
DSPINT(OUTARRAY,PSGORD) ;
GETOORDS(DFN,PSGORCD,PSJORDS2) ; Get array of all historical CPRS orders associated with PSGORCD
GETRNW(DFN,PSJCUROR,PSJRNORD,PSJORDS2) ; Get CPRS orders from all renewals for order PSJRNORD
OVRDISF(PSGP,PSGORD,CODE) ; For Pending Orders, only display Provider Overrides and Pharmacy Interventions if new, incoming Provider Override to display
OVRDISP(PSGP,PSGORD,CODE) ; Display ALL Provider Overrides and Pharmacy Interventions associated with specific order
OVRHIST(PSJOAR,PSGORCD) ; History of overrides/interventions using hidden action
HISTHLD() ;

External References

Name Field # of Occurrence
FIELD^DID INTROUT+3
EN^DIQ1 INTRDICO+2
^DIR HISTHLD+1
$$OCCNT^OROCAPI1 OVRDISP+10
$$ENLU^PSGMI INTROUT+4
$$ENUL^PSGMI INTROUT+4
$$OROICHK^PSGSICH OVRDISP+6
HLD^PSGSICH DSPINT+25, DSPINT+28, OVRDISP+14, OVRDISP+23
ONEINTER^PSGSICH OVRDISP+19, OVRHIST+11
BANNER^PSGSICH1 DSPINT+8, DSPINT+10
DSPROVR^PSGSICH1 OVRDISP+13, OVRHIST+7
GETPROVR^PSGSICH1 OVRDISF+2, OVRDISP+12, OVRDISP+29, OVRHIST+7
INTRDIC^PSGSICH1 OVRDISP+16
$$SETSTR^VALM1 DSPINT+19
FULL^VALM1 DSPINT+4, OVRDISP+7, OVRDISP+30, OVRHIST+12
$$FMTE^XLFDT INTROUT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DSPINT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPINT+6
Function Call: WRITE
  • Prompt: !,"No Pharmacist Interventions to display",!!
  • Line Location: DSPINT+8
Function Call: WRITE
  • Prompt: PSJL
  • Line Location: DSPINT+12
Function Call: WRITE
  • Prompt: !!,PSJL
  • Line Location: DSPINT+15
Function Call: WRITE
  • Prompt: !,PSJL
  • Line Location: DSPINT+17
Function Call: WRITE
  • Prompt: !,PSJL
  • Line Location: DSPINT+19
Function Call: WRITE
  • Prompt: " ",PSJL
  • Line Location: DSPINT+20
Function Call: WRITE
  • Prompt: !,PSJL
  • Line Location: DSPINT+22
Function Call: WRITE
  • Prompt: !,PSJL
  • Line Location: DSPINT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPINT+24
Function Call: WRITE
  • Prompt: PSJL
  • Line Location: DSPINT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPINT+27
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OVRDISP+13
Function Call: WRITE
  • Prompt: !!,LINE,!?PSJINDEN,"** ",PSJBANNR," **",!,LINE
  • Line Location: OVRDISP+14
Function Call: WRITE
  • Prompt: !!,"No Provider Overrides to display",!!!
  • Line Location: OVRDISP+14
Function Call: WRITE
  • Prompt: !
  • Line Location: OVRDISP+22
Function Call: WRITE
  • Prompt: !,PSJL
  • Line Location: OVRDISP+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OVRDISP+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OVRHIST+12
Routine Call
  • DIR
  • Line Location:
    • HISTHLD+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APSPQA(32.4 - [#9009032.4] Classic Fileman Calls,  FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] GETOORDS+3, GETOORDS+8, GETOORDS+12, GETOORDS+14, GETOORDS+24, OVRDISF+1
^PS(55 - [#55] GETOORDS+3, GETOORDS+4, GETOORDS+6, GETOORDS+10, GETOORDS+12, GETOORDS+14, GETOORDS+16, GETOORDS+20, GETOORDS+22, GETRNW+1
, GETRNW+2, GETRNW+4, GETRNW+5
^TMP("PSJINTER" OVRDISP+3, OVRDISP+18, OVRDISP+19
^UTILITY("DIQ1" INTROUT+2, INTROUT+6, INTROUT+11, INTROUT+12, INTRDICO+1!

Label References

Name Line Occurrences
$$HISTHLD OVRDISP+30
DSPINT OVRDISP+24, OVRHIST+12
GETOORDS OVRDISP+6
GETRNW GETOORDS+26, GETOORDS+27
OVRDISP OVRDISF+3
OVRHIST OVRDISP+30

Naked Globals

Name Field # of Occurrence
^( GETOORDS+6, GETOORDS+8, GETOORDS+10, GETOORDS+20, GETOORDS+22, GETOORDS+24, GETRNW+2, GETRNW+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CODE OVRDISF~, OVRDISP~, OVRDISP+7, OVRDISP+15
>> DA INTRDICO+2*
DATA INTROUT+6~*, INTROUT+10
DFN INTROUT+9, INTROUT+10, INTROUT+12, INTROUT+13, GETOORDS~, GETOORDS+2, GETOORDS+3, GETOORDS+4, GETOORDS+5, GETOORDS+6
, GETOORDS+7, GETOORDS+9, GETOORDS+10, GETOORDS+11, GETOORDS+12, GETOORDS+14, GETOORDS+16, GETOORDS+17, GETOORDS+18, GETOORDS+19
, GETOORDS+20, GETOORDS+21, GETOORDS+22, GETOORDS+23, GETOORDS+25, GETOORDS+26, GETOORDS+27, GETRNW~, GETRNW+1, GETRNW+2
, GETRNW+3, GETRNW+4, GETRNW+5, GETRNW+6, OVRDISF+3
DIC INTRDICO+2*, OVRDISP+2~
DIE OVRDISP+2~
DIQ INTRDICO+1~
DIQ(0 INTRDICO+2*
DIR OVRDISP+2~, HISTHLD+1!
DIR("A" HISTHLD+1*
DIR("B" HISTHLD+1*
DIR(0 HISTHLD+1*
DR INTRDICO+2*, OVRDISP+2~
FIRST OVRHIST+1~*
FLD DSPINT+2~, DSPINT+13*, DSPINT+14, DSPINT+15, DSPINT+19, DSPINT+21, DSPINT+22
I2 OVRDISP+19~*
II DSPINT+2~, DSPINT+13*, DSPINT+24*, DSPINT+27*
ILCNT DSPINT+5*, DSPINT+8*, DSPINT+15*, DSPINT+17*, DSPINT+19*, DSPINT+22*, DSPINT+23*, DSPINT+24*, DSPINT+25*, DSPINT+27*
, DSPINT+28*, OVRDISP+2~
INTER INTROUT~, INTROUT+2, INTROUT+6, INTROUT+9, INTROUT+10, INTROUT+11, INTROUT+12, INTROUT+13, INTRDICO~, INTRDICO+2
IOF DSPINT+4, OVRDISP+7, OVRDISP+13, OVRDISP+30, OVRHIST+12
IOSL DSPINT+3, OVRDISP+3, OVRHIST+1
JJ DSPINT+2~, DSPINT+21*, DSPINT+22, DSPINT+24*, DSPINT+27*
KK OVRDISF+1~, OVRDISF+2*, OVRDISP+22*
LINE DSPINT+6!*, OVRDISP+2~, OVRDISP+5*, OVRDISP+14, OVRDISP+22
OUTARRAY INTROUT~, DSPINT~, OVRDISP+1!, OVRDISP+12, OVRDISP+13!, OVRDISP+15!*, OVRDISP+16, OVRDISP+19, OVRDISP+24, OVRDISP+31!
OUTARRAY( INTROUT+9*, INTROUT+10*, INTROUT+12*, INTROUT+13*, DSPINT+8, DSPINT+9, DSPINT+13, DSPINT+15, DSPINT+19, DSPINT+21
, DSPINT+22, OVRDISP+20
PC INTROUT+4~*
>> PSGDT OVRDISP+19
PSGORCD GETOORDS~, GETOORDS+2, GETOORDS+3, GETOORDS+4, GETOORDS+5, GETOORDS+6, GETOORDS+7, GETOORDS+8, GETOORDS+9, GETOORDS+10
, GETOORDS+11, GETOORDS+12, GETOORDS+13, GETOORDS+17, GETOORDS+18, GETOORDS+19, GETOORDS+21, GETOORDS+23, GETOORDS+25, GETOORDS+26
, GETOORDS+27, GETRNW+6, OVRHIST~, OVRHIST+2, OVRHIST+3, OVRHIST+5, OVRHIST+9
PSGORD DSPINT~, DSPINT+8, DSPINT+9, DSPINT+11, DSPINT+13, DSPINT+15, DSPINT+19, DSPINT+21, DSPINT+22, OVRDISF~
, OVRDISF+1, OVRDISF+2, OVRDISF+3, OVRDISP~, OVRDISP+3*, OVRDISP+6, OVRDISP+7, OVRDISP+8, OVRDISP+11, OVRDISP+16
, OVRDISP+19, OVRDISP+24, OVRDISP+27, OVRDISP+29, OVRDISP+30
PSGP DSPINT+8, DSPINT+9, DSPINT+11, DSPINT+13, DSPINT+15, DSPINT+19, DSPINT+21, DSPINT+22, OVRDISF~, OVRDISF+2
, OVRDISP~, OVRDISP+3, OVRDISP+6, OVRDISP+7, OVRDISP+8, OVRDISP+11, OVRDISP+12, OVRDISP+13, OVRDISP+16, OVRDISP+20
, OVRDISP+27, OVRDISP+29, OVRHIST+2, OVRHIST+3, OVRHIST+5, OVRHIST+7, OVRHIST+9
PSJBANNR DSPINT+2~, DSPINT+5*, DSPINT+7, DSPINT+10, OVRDISP+2~, OVRDISP+4*, OVRDISP+14, OVRDISP+21*, OVRDISP+22
PSJCOL DSPINT+5*, DSPINT+12*, DSPINT+17*, DSPINT+18*, DSPINT+19*, DSPINT+29!
PSJCURIN OVRDISP+2~
PSJCUROR GETRNW~, GETRNW+3
PSJCUROV OVRDISP+2~, OVRDISP+8*, OVRDISP+9, OVRDISP+10, OVRDISP+11, OVRDISP+12, OVRDISP+13
PSJDONED GETOORDS+1~*, GETOORDS+12, GETOORDS+13*, GETOORDS+15*, GETOORDS+16*, OVRDISP+2~, OVRDISP+15!, OVRDISP+31!
PSJFLDE INTROUT+1~, INTROUT+3*, INTROUT+4, INTROUT+5*, INTROUT+7, INTROUT+9, INTROUT+10, INTROUT+13
PSJFLDE("LABEL" INTROUT+3
PSJFLDI INTROUT+1~, INTROUT+2*, INTROUT+3, INTROUT+6, INTROUT+9, INTROUT+10, INTROUT+11, INTROUT+12, INTROUT+13
PSJHIST OVRDISP+31!
PSJHISTF OVRDISP+1!, OVRDISP+2~, OVRDISP+26*, OVRDISP+28*, OVRDISP+29*, OVRDISP+30
PSJHISTO OVRDISP+2~, OVRDISP+26*, OVRDISP+27, OVRDISP+28, OVRDISP+29
PSJIDT GETOORDS+28!, OVRHIST+1~
PSJIDTM INTROUT~, INTROUT+7, INTROUT+8
PSJIDTMP INTROUT+8~*, INTROUT+9
PSJINDEN DSPINT+2~, DSPINT+3*, DSPINT+8, DSPINT+10, OVRDISP+2~, OVRDISP+5*, OVRDISP+14, OVRDISP+22
PSJINT GETOORDS+6*, GETOORDS+8*, GETOORDS+10*, GETOORDS+20*, GETOORDS+22*, GETOORDS+24*, GETOORDS+28!
PSJINTAR OVRDISP+2~
PSJINTD GETOORDS+6*, GETOORDS+7, GETOORDS+8*, GETOORDS+9, GETOORDS+10*, GETOORDS+11, GETOORDS+20*, GETOORDS+21, GETOORDS+22*, GETOORDS+23
, GETOORDS+24*, GETOORDS+25, GETOORDS+28!
PSJINTER OVRDISP+2~
PSJIOL DSPINT+2~
PSJIOR GETOORDS+28!, OVRHIST+1~
PSJIOSL DSPINT+3*, DSPINT+24, DSPINT+25, DSPINT+27, OVRDISP+2~, OVRDISP+3*, OVRDISP+22, OVRHIST+1~*
PSJL DSPINT+2~, DSPINT+7*, DSPINT+8, DSPINT+9*, DSPINT+12*, DSPINT+15*, DSPINT+17*, DSPINT+18*, DSPINT+19*, DSPINT+20*
, DSPINT+21*, DSPINT+22*, DSPINT+23*, DSPINT+26*, OVRDISP+25*
PSJNEWOI GETOORDS+1~, OVRDISP+2~
PSJO1 OVRHIST+1~, OVRHIST+2*, OVRHIST+3, OVRHIST+5, OVRHIST+9, OVRHIST+11, OVRHIST+14!
PSJO2 GETOORDS+28!, OVRHIST+1~, OVRHIST+3*, OVRHIST+4, OVRHIST+5, OVRHIST+6, OVRHIST+7, OVRHIST+8, OVRHIST+9, OVRHIST+10
, OVRHIST+11, OVRHIST+13, OVRHIST+14!
PSJO3 OVRHIST+1~, OVRHIST+5*, OVRHIST+7, OVRHIST+9*, OVRHIST+11, OVRHIST+12, OVRHIST+14!
PSJOAR OVRHIST~
PSJOAR( OVRHIST+2, OVRHIST+3, OVRHIST+5, OVRHIST+9
PSJOAR("B" OVRHIST+4, OVRHIST+6, OVRHIST+8!, OVRHIST+10, OVRHIST+13!
PSJOCDT OVRDISP+27~*
PSJOCHIS DSPINT+5, OVRDISP+1!, OVRDISP+4, OVRDISP+21, OVRDISP+31!, OVRHIST+1~*, OVRHIST+14!
PSJOCINT DSPINT+2~, DSPINT+9*, DSPINT+11, DSPINT+13, DSPINT+15, DSPINT+19, DSPINT+21, DSPINT+22
PSJOCTXT DSPINT+2~, DSPINT+15*, DSPINT+16, DSPINT+17, DSPINT+18
PSJOERND GETOORDS+1~, GETRNW+2*, GETRNW+5*
PSJOERR OVRHIST+1~
PSJOLDOI GETOORDS+1~, OVRDISP+2~
PSJOLDOR OVRDISP+2~
PSJOOERR GETOORDS+1~, GETOORDS+5*, GETOORDS+15*, GETOORDS+17, GETOORDS+18, GETOORDS+19, GETRNW+2*, GETRNW+3, GETRNW+5*, GETRNW+6
PSJORDER INTROUT~, INTROUT+9, INTROUT+10, INTROUT+12, INTROUT+13
PSJORDS2 GETOORDS~, GETOORDS+1!, GETOORDS+26, GETOORDS+27, GETRNW~
PSJORDS2( GETOORDS+5*, GETOORDS+7*, GETOORDS+9*, GETOORDS+11*, GETOORDS+17!, GETOORDS+18*, GETOORDS+19*, GETOORDS+21*, GETOORDS+23*, GETOORDS+25*
, GETRNW+3*, GETRNW+6*
PSJORDS2("B" GETOORDS+5*, GETOORDS+6, GETOORDS+7*, GETOORDS+8, GETOORDS+9*, GETOORDS+10, GETOORDS+11*, GETOORDS+17!, GETOORDS+18*, GETOORDS+19*
, GETOORDS+20, GETOORDS+21*, GETOORDS+22, GETOORDS+23*, GETOORDS+24, GETOORDS+25*, GETRNW+3*, GETRNW+6*
PSJORDT GETOORDS+4*, GETOORDS+5, GETOORDS+16*, GETOORDS+18, GETOORDS+19, GETOORDS+28!, GETRNW+2*, GETRNW+3, GETRNW+5*, GETRNW+6
PSJORFOR OVRDISF+1~*, OVRDISF+2
PSJOROIC OVRDISP+2~, OVRDISP+6*, OVRDISP+9
PSJOVDON OVRDISP+2~, OVRDISP+3*, OVRDISP+7, OVRDISP+8, OVRDISP+9*, OVRDISP+13*, OVRDISP+14
PSJOVRAR OVRDISF+1~, OVRDISF+2, OVRDISF+3!, OVRDISP+2~, OVRDISP+6, OVRDISP+30, OVRDISP+31!
PSJOVRAR( DSPINT+11!, OVRDISP+7, OVRDISP+8, OVRDISP+11, OVRDISP+27
PSJOVRAR("B" DSPINT+11, OVRDISP+13!, OVRDISP+26, OVRDISP+27
PSJOVRAR("PROVR" OVRDISF+2
PSJPRV GETOORDS+12*, GETOORDS+13, GETOORDS+14, GETOORDS+16, GETOORDS+18, GETOORDS+19, GETOORDS+20, GETOORDS+21, GETOORDS+22, GETOORDS+23
, GETOORDS+24, GETOORDS+25, GETOORDS+26, GETOORDS+28!
PSJPRVHD GETOORDS+3*, GETOORDS+4, GETOORDS+5, GETOORDS+14*, GETOORDS+15, GETOORDS+16, GETOORDS+28!
PSJQUITD DSPINT+1, DSPINT+9, DSPINT+13, OVRDISP+1!, OVRDISP+15, OVRHIST+14!
PSJRN GETOORDS+1~, GETRNW+2*, GETRNW+5*
PSJRNFLG GETOORDS+1~*, GETRNW+1*, GETRNW+4*
PSJRNORD GETRNW~, GETRNW+1, GETRNW+2, GETRNW+3, GETRNW+4, GETRNW+5, GETRNW+6
PSJTMPAR OVRHIST+5!*, OVRHIST+7, OVRHIST+9!*, OVRHIST+11, OVRHIST+12, OVRHIST+14!
PSJTMPI OVRDISP+2~
PSJTMPOO OVRDISP+11~*, OVRDISP+12, OVRDISP+13
PSJTMPX OVRDISP+2~, OVRDISP+7*, OVRDISP+8, OVRDISP+11
TMPDT DSPINT+11~*
TMPFLDE INTROUT+4~*, INTROUT+5
TMPKILAR OVRDISP+1!
TMPOFLG OVRDISF+1~, OVRDISF+2*, OVRDISF+3
TMPOVR OVRDISP+29!*
TMPPC INTROUT+4~*
WP DSPINT+2~, DSPINT+21*, DSPINT+22
WPLINE INTROUT+1~, INTROUT+11*, INTROUT+12, INTROUT+13
X OVRDISP+2~
Y OVRDISP+2~, HISTHLD+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  | All