Routine: PSIVARH1

Information

PSIVARH1 ;AAC/JLS - DISPLAY RECENTLY DC'D IV ORDERS ; 10/18/15 / 9:27 AM

Package	Total	Call Graph
VA FileMan	3	NOW^%DTC ^DIK ^DIR
Health Level Seven	1	$$FMDATE^HLFNC
Inpatient Medications	1	$$IVROOM^PSIVARH
Kernel	1	($$FMADD,$$FMTE)^XLFDT

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

Package	Total	Caller Graph
Inpatient Medications	1	PSIVARH

Entry Points

Name	Comments	DBIA/ICR reference
DECODE	;decode backdoor hl7 PSIVMSG
MSH
PID
PV1
ORC
GETHRS(PSIVSN)	; function returns a date time in the past which is derived from
ACTION()	;
ISDATAG(WG)	;
ISDATAW(WRDIEN)	;
NODCD(PLACE,WHEN)
YOURSURE()	; ask user if they are sure about deleting
TMPCLEAN(NODE)	;
SURE()	;
CLEAN	;

External References

Name	Field # of Occurrence
NOW^%DTC	GETHRS+18
^DIK	CLEAN+17
^DIR	ACTION+18, YOURSURE+7, SURE+11
$$FMDATE^HLFNC	ORC+7, ORC+9
$$IVROOM^PSIVARH	CLEAN+15
$$FMADD^XLFDT	GETHRS+19
$$FMTE^XLFDT	GETHRS+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ACTION+1
Function Call: WRITE	Prompt: !!?2,"No edited or discontinued IV orders are in the" Line Location: NODCD+2
Function Call: WRITE	Prompt: !?2,"temporary tracking file (#52.75) for ",PLACE Line Location: NODCD+3
Function Call: WRITE	Prompt: !?2,"from the past ",WHEN," hour(s).",!! Line Location: NODCD+4
Function Call: WRITE	Prompt: !!," Entering a zero or deleting this parameter will turn" Line Location: SURE+3
Function Call: WRITE	Prompt: !," off the Discontinued IV Report when processing orders" Line Location: SURE+4
Function Call: WRITE	Prompt: !," under this IV room. By entering a zero, any existing" Line Location: SURE+5
Function Call: WRITE	Prompt: !," entries will be removed under this IV room.",! Line Location: SURE+6
Function Call: WRITE	Prompt: !,DELCOUNT," records deleted." Line Location: CLEAN+19
Function Call: WRITE	Prompt: !,"There were no records to delete." Line Location: CLEAN+20
Routine Call	DIR Line Location: ACTION+18 YOURSURE+7 SURE+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(52.75 - [#52.75]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	ISDATAG+9
^PS(52.75 - [#52.75]	ISDATAW+6, ISDATAW+8, CLEAN+11, CLEAN+12
^PS(57.5 - [#57.5]	ISDATAG+8
^PS(59.5 - [#59.5]	GETHRS+16
^TMP(	TMPCLEAN+2!

Label References

Name	Line Occurrences
$$ISDATAW	ISDATAG+10
@(	DECODE+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETHRS+10~, GETHRS+19
ACTION	ACTION+2~, ACTION+18*, ACTION+20
DA	SURE+2~, CLEAN+8, CLEAN+9~, CLEAN+17*
DELCOUNT	CLEAN+5~, CLEAN+7, CLEAN+18, CLEAN+19
>> DFN	PID+1*
DIK	CLEAN+5~, CLEAN+6*
DIR	ACTION+2~, YOURSURE+1~, SURE+2~
DIR("?"	ACTION+6, ACTION+7, ACTION+8, ACTION+9, ACTION+10, ACTION+11, ACTION+12, ACTION+13, ACTION+14, ACTION+15 , ACTION+16, ACTION+17, YOURSURE+4, YOURSURE+5, YOURSURE+6, SURE+9, SURE+10*
DIR("A"	ACTION+4, YOURSURE+3, SURE+8*
DIR("B"	ACTION+5, YOURSURE+2, SURE+7*
DIR(0	ACTION+4, YOURSURE+3, SURE+8*
DIROUT	ACTION+2~, YOURSURE+1~, SURE+2~
DIRUT	ACTION+2~, YOURSURE+1~, YOURSURE+8, SURE+2~, SURE+12
DTOUT	ACTION+2~, YOURSURE+1~, SURE+2~
DUOUT	ACTION+2~, YOURSURE+1~, SURE+2~
FOUND	ISDATAG+4~, ISDATAG+5, ISDATAG+8, ISDATAG+10, ISDATAG+11, ISDATAW+3~, ISDATAW+4, ISDATAW+6, ISDATAW+8, ISDATAW+9
>> HRSFILT	ISDATAW+5
IDT	GETHRS+10~, GETHRS+19*, GETHRS+20, GETHRS+21
IEN	ISDATAW+3~, ISDATAW+7*, ISDATAW+8
IVR	CLEAN+5~, CLEAN+15*, CLEAN+16
IVRDA	CLEAN+5~, CLEAN+8*, CLEAN+16
IVRFILT	GETHRS+11~, GETHRS+16, GETHRS+17, GETHRS+19, GETHRS+21
NODE	TMPCLEAN~, TMPCLEAN+2
OIEN	CLEAN+5~, CLEAN+10, CLEAN+11, CLEAN+12, CLEAN+17
ORDERN	CLEAN+5~, CLEAN+14*, CLEAN+15
PHPTI	CLEAN+5~, CLEAN+13*, CLEAN+15
PHPZN	CLEAN+5~, CLEAN+12*, CLEAN+13, CLEAN+14
PLACE	NODCD~, NODCD+3
PSIVA	DECODE+1~, DECODE+3*, DECODE+4
PSIVB	DECODE+1~, DECODE+4*
>> PSIVDUZ	ORC+4*
>> PSIVEDT	ORC+6, ORC+7
PSIVFLD	DECODE+2!
PSIVFLD(	DECODE+4*
PSIVFLD(0	DECODE+5, DECODE+6
PSIVFLD(1	ORC+1
PSIVFLD(10	ORC+5
PSIVFLD(12	ORC+4
PSIVFLD(15	ORC+6
PSIVFLD(2	MSH+1, ORC+2
PSIVFLD(3	PID+1, PV1+1, ORC+3
PSIVFLD(4	MSH+2
PSIVFLD(9	ORC+8
>> PSIVIFNF	ORC+2*
>> PSIVIFNP	ORC+3*
>> PSIVLOC	PV1+1*
>> PSIVMSG(	DECODE+3, DECODE+4
>> PSIVPKG	MSH+1*
>> PSIVPKG(2	MSH+2*
>> PSIVQT	ACTION+3*
>> PSIVRDT	ORC+8, ORC+9
>> PSIVRDUZ	ORC+5*
PSIVSN	GETHRS~, GETHRS+16
>> PSIVSTS	ORC+1*
THISHR	ISDATAW+3~, ISDATAW+5, ISDATAW+6, ISDATAW+8
U	GETHRS+16, GETHRS+21, ISDATAW+5, CLEAN+13, CLEAN+14
VDA	ISDATAG+4~
VWDI	ISDATAG+4~, ISDATAG+7, ISDATAG+8, ISDATAG+9
WARD	ISDATAG+4~
WG	ISDATAG~, ISDATAG+8
WHEN	NODCD~, NODCD+4
WRDIEN	ISDATAG+4~, ISDATAG+9*, ISDATAG+10, ISDATAW~, ISDATAW+6, ISDATAW+8
X	ACTION+2~, YOURSURE+1~, SURE+2~
XDT	GETHRS+10~, GETHRS+20*, GETHRS+21
Y	ACTION+2~, ACTION+18, YOURSURE+1~, YOURSURE+9, SURE+2~, SURE+13

Marked Items

Name	Field # of Occurrence
$T(@PSIVFLD(1)	DECODE+6

Customize PDF page

Package: Inpatient Medications