Routine: PSGSICH

Information

PSGSICH ;BIR/JCH-PROVIDER & PHARMACY OVERRIDE UTILITIES ; 08/19/11 1:02pm

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	4	^DIC FILE^DICN EN^DIQ1 ^DIR
Inpatient Medications	2	STOREINT^PSGSICH1 (INTRDICO,INTROUT)^PSGSICH2

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Inpatient Medications	3	PSGSICH1 PSGSICH2 PSJBCMA1

Entry Points

Name	Comments	DBIA/ICR reference
NAME(TMPDUZ,NAME,INIT)	;
HLD	; Prompt user to continue or exit
ORDEXIST(PSGP,PSGORD)	; Has order been filed?
OROICHK(DFN,ORDER,PSJOVRAR)	; Find the CPRS order number associated with the last Orderable Item edit
ONEINTER(INTER,PSJORDER,PSJIDTM,OUTARRAY)	; Accept one intervention IEN and return OUTARRAY with formatted intervention information ; INPUT: INTER = Intervention IEN from ^APSPQA(32.4 ; PSJORDER = Inpatient Order ; PSJIDTM = Order Date/Time ; OUTARRAY = Array containing CPRS overrides and pharmacy interventions
CHKADD(PSJINTER,PSGP,PSJIVORN)	; Check for existence of Intervention Orderable Item in IV Additives
SETIVIN2(PSJI1,PSJI2)	; Store Intervention pointers in the IV Intervention multiple

External References

Name	Field # of Occurrence
^DIC	NAME+5
FILE^DICN	SETIVIN2+14, SETIVIN2+26, SETIVIN2+39
EN^DIQ1	CHKADD+3
^DIR	HLD+3
STOREINT^PSGSICH1	SETIVIN2+3
INTRDICO^PSGSICH2	ONEINTER+6
INTROUT^PSGSICH2	ONEINTER+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HLD+4
Routine Call	DIC Line Location: NAME+5
Routine Call	DIR Line Location: HLD+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^APSPQA(32.4 - [#9009032.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSPQA(32.4 - [#9009032.4]	ONEINTER+5
^PS(52.6 - [#52.6]	CHKADD+8, CHKADD+14
^PS(52.7 - [#52.7]	CHKADD+11, CHKADD+17
^PS(53.1 - [#53.1]	ORDEXIST+2, OROICHK+3, OROICHK+6, OROICHK+7, CHKADD+12, CHKADD+13, CHKADD+15, CHKADD+16, SETIVIN2+4, SETIVIN2+5 , SETIVIN2+7, SETIVIN2+8, SETIVIN2+17, SETIVIN2+18, SETIVIN2+20, SETIVIN2+23, SETIVIN2+24, SETIVIN2+27, SETIVIN2+28, SETIVIN2+29 , SETIVIN2+30, SETIVIN2+31, SETIVIN2+32, SETIVIN2+35, SETIVIN2+36, SETIVIN2+37
^PS(55 - [#55]	ORDEXIST+3, ORDEXIST+4, OROICHK+3, OROICHK+6, OROICHK+7, CHKADD+6, CHKADD+7, CHKADD+9, CHKADD+10, SETIVIN2+5 , SETIVIN2+6, SETIVIN2+8, SETIVIN2+16, SETIVIN2+17, SETIVIN2+19, SETIVIN2+20
^PSDRUG - [#50]	CHKADD+4
^TMP("PSJINTER"	SETIVIN2+3!
^UTILITY("DIQ1"	ONEINTER+7, ONEINTER+8!, CHKADD+3!, CHKADD+4!

Label References

Name	Line Occurrences
$$CHKADD	SETIVIN2+11, SETIVIN2+23, SETIVIN2+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDIEN	CHKADD+7~, CHKADD+8, CHKADD+13~, CHKADD+14
ADDOI	CHKADD+1~, CHKADD+8, CHKADD+14
CURRCPRS	OROICHK+1!, OROICHK+5, OROICHK+7*, OROICHK+8
CURROI	OROICHK+1~, OROICHK+3*, OROICHK+4, OROICHK+7
DA	CHKADD+1~, CHKADD+3*, SETIVIN2+6!, SETIVIN2+15!, SETIVIN2+18!, SETIVIN2+30!
DA(1	SETIVIN2+13, SETIVIN2+25, SETIVIN2+38*
DA(2	SETIVIN2+13, SETIVIN2+25, SETIVIN2+38*
DFN	OROICHK~, OROICHK+2, OROICHK+3, OROICHK+5, OROICHK+6, OROICHK+7, SETIVIN2+2, SETIVIN2+5, SETIVIN2+6, SETIVIN2+8 , SETIVIN2+11, SETIVIN2+13, SETIVIN2+16, SETIVIN2+17, SETIVIN2+19, SETIVIN2+20, SETIVIN2+23, SETIVIN2+35
DIC	NAME+4~, NAME+5, CHKADD+1~, CHKADD+3, SETIVIN2+6!, SETIVIN2+13, SETIVIN2+15!, SETIVIN2+18!, SETIVIN2+25, SETIVIN2+30! , SETIVIN2+38*
DIC("DR"	SETIVIN2+14, SETIVIN2+26, SETIVIN2+39*
DIC("P"	SETIVIN2+13, SETIVIN2+25, SETIVIN2+38*
DIC(0	NAME+5, SETIVIN2+13, SETIVIN2+25, SETIVIN2+38
DINUM	SETIVIN2+1~, SETIVIN2+13, SETIVIN2+25, SETIVIN2+38*
>> DIQ(0	CHKADD+3*
DIR	HLD+1!, HLD+3!
DIR("A"	HLD+2*
DIR(0	HLD+2*
DO	SETIVIN2+6~, SETIVIN2+39!
DR	CHKADD+1~, CHKADD+3*
IC	SETIVIN2+24~, SETIVIN2+36~
IEN	NAME+4~, NAME+6*
IG	SETIVIN2+24~, SETIVIN2+25, SETIVIN2+36~, SETIVIN2+37
INIT	NAME~, NAME+6*
>> INT	ONEINTER+7*
INTER	ONEINTER~, ONEINTER+5, ONEINTER+6
IOF	HLD+4
NAME	NAME~, NAME+6*
NXTADD	CHKADD+1~, CHKADD+6, CHKADD+7, CHKADD+12, CHKADD+13
NXTSOL	CHKADD+1~, CHKADD+9, CHKADD+10, CHKADD+15, CHKADD+16
OCI	OROICHK+1~, OROICHK+5*
>> ON	SETIVIN2+29
ORDER	OROICHK~, OROICHK+2, OROICHK+3, OROICHK+5, OROICHK+6
OUTARRAY	ONEINTER~, ONEINTER+7
PSGORD	ORDEXIST~, ORDEXIST+2, ORDEXIST+3, ORDEXIST+4
PSGP	ORDEXIST~, ORDEXIST+1, ORDEXIST+3, ORDEXIST+4, CHKADD~, CHKADD+6, CHKADD+7, CHKADD+9, CHKADD+10
PSJI1	SETIVIN2~, SETIVIN2+4, SETIVIN2+5, SETIVIN2+7, SETIVIN2+8, SETIVIN2+16, SETIVIN2+17, SETIVIN2+19, SETIVIN2+20, SETIVIN2+27 , SETIVIN2+28, SETIVIN2+29, SETIVIN2+31, SETIVIN2+32
PSJI2	SETIVIN2~, SETIVIN2+4, SETIVIN2+5, SETIVIN2+6, SETIVIN2+8, SETIVIN2+11, SETIVIN2+13, SETIVIN2+16, SETIVIN2+17, SETIVIN2+18 , SETIVIN2+20, SETIVIN2+23, SETIVIN2+24, SETIVIN2+25, SETIVIN2+27, SETIVIN2+28, SETIVIN2+29*, SETIVIN2+30, SETIVIN2+32, SETIVIN2+35 , SETIVIN2+36, SETIVIN2+37, SETIVIN2+38
PSJICNT	SETIVIN2+1~, SETIVIN2+9, SETIVIN2+21, SETIVIN2+33*
PSJIDTM	ONEINTER~, ONEINTER+7
PSJINCNT	SETIVIN2+6~, SETIVIN2+12, SETIVIN2+13, SETIVIN2+18~, SETIVIN2+25, SETIVIN2+30~, SETIVIN2+37, SETIVIN2+38
PSJINTDT	SETIVIN2+1~, SETIVIN2+9, SETIVIN2+10, SETIVIN2+21, SETIVIN2+22, SETIVIN2+33*, SETIVIN2+34
PSJINTER	CHKADD~, CHKADD+2, CHKADD+3, CHKADD+4, SETIVIN2+6~, SETIVIN2+8, SETIVIN2+9, SETIVIN2+10, SETIVIN2+11, SETIVIN2+14 , SETIVIN2+18~, SETIVIN2+20, SETIVIN2+21, SETIVIN2+22, SETIVIN2+23, SETIVIN2+24, SETIVIN2+25, SETIVIN2+26, SETIVIN2+30~, SETIVIN2+32* , SETIVIN2+33, SETIVIN2+34, SETIVIN2+35, SETIVIN2+36, SETIVIN2+37, SETIVIN2+38, SETIVIN2+39
>> PSJINTOI	CHKADD+4*, CHKADD+5, CHKADD+8, CHKADD+11, CHKADD+14, CHKADD+17
PSJINTOK	CHKADD+1~, CHKADD+6, CHKADD+8, CHKADD+9, CHKADD+11, CHKADD+12, CHKADD+14, CHKADD+15, CHKADD+17, CHKADD+18
PSJIVORN	CHKADD~, CHKADD+6, CHKADD+7, CHKADD+9, CHKADD+10, CHKADD+12, CHKADD+13, CHKADD+15, CHKADD+16
PSJNEWOI	SETIVIN2+1~, SETIVIN2+5, SETIVIN2+17, SETIVIN2+28*
PSJNXTI	SETIVIN2+6~, SETIVIN2+7, SETIVIN2+8, SETIVIN2+18~, SETIVIN2+19, SETIVIN2+20, SETIVIN2+30~, SETIVIN2+31*, SETIVIN2+32
PSJOCDT	OROICHK+1~, OROICHK+5*
PSJOLDOI	SETIVIN2+1~, SETIVIN2+5, SETIVIN2+17, SETIVIN2+28*
PSJORDER	ONEINTER~, ONEINTER+7
PSJOVRAR	OROICHK~
PSJOVRAR(	OROICHK+5
>> PSJQUITD	HLD+3*
SOLIEN	CHKADD+10~, CHKADD+11, CHKADD+16~, CHKADD+17
SOLOI	CHKADD+1~, CHKADD+11, CHKADD+17
TMPDUZ	NAME~, NAME+4
TMPOI	OROICHK+1~, OROICHK+6*, OROICHK+7
TMPORDER	OROICHK+1~, OROICHK+5*, OROICHK+6, OROICHK+7
U	NAME+6
X	NAME+4~, SETIVIN2+13, SETIVIN2+25, SETIVIN2+38
Y	NAME+4~, NAME+6, HLD+3
Y(0	NAME+6

Customize PDF page

Package: Inpatient Medications