Routine: PSNJP54

Package	Total	Call Graph
VA Fileman	4	^%DT (,C,NOW)^%DTC EN^DDIOL ^DIR
Kernel	3	($$FMADD,$$FMTE)^XLFDT $$PATCH^XPDUTL EN^XUTMDEVQ

Package	Total	Caller Graph
Inpatient Medications	1	PSJUTL99

Entry Points

Name	Comments	DBIA/ICR reference
DISP(START)	; Display an interaction between two VA PRODUCTS
EN	; Main entry point
DTM
ORDOUT(DFN,PRODUCT,TYPE,ORDER,START,STOP)	; Print an individual order
FORMAT	; Prompt for "Report" or "Spreadsheet" format
PROCESS	; Begin processing a single patient
GETUD	; Build VA Products from Unit Dose Orders into PROD array
INIT	; Check for DT,DUZ,etc.
START	; Begin processing
GETVITAL(DFN)	;
CHK(PR1,PR2)	; Given two VA PRODUCTS known to interact (exist in ^XTMP) ; find specific interactions within a single patient's orders ; based on overlapping START/STOP dates.
INACTOUT	;
CHKINACT(START,IIEN,XTMPCNT)	;
RESETDT	;
DTC	;Date format
DISP2	;
GETIV	; Build VA Products from IV Orders into PROD array
HD	; Continue prompt, print header
GETDATE	; Prompt for "Stop Date" to begin search

External References

Name	Field # of Occurrence
^%DT	GETDATE+8
^%DTC	DTC+3
C^%DTC	GETDATE+6
NOW^%DTC	INIT+4
EN^DDIOL	START+2
^DIR	FORMAT+4, HD+4
$$FMADD^XLFDT	RESETDT+2
$$FMTE^XLFDT	DISP2+9, DISP2+10, ORDOUT+5, ORDOUT+6, ORDOUT+7, GETVITAL+2, GETDATE+7, HD+10
$$PATCH^XPDUTL	START+2
EN^XUTMDEVQ	EN+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The primary data for this report does not exist",!! Line Location: START+3
Function Call: WRITE	Prompt: ?12,"END OF ACTIVE DRUG INTERACTIONS",! Line Location: START+8
Function Call: WRITE	Prompt: !!?10," No Missed Drug Interactions Found " Line Location: START+10
Function Call: WRITE	Prompt: !,PNAME,?25,"DOB: ",DOB,?41,"PID: ",PID Line Location: DISP2+3
Function Call: WRITE	Prompt: !,PNAME,"^",DOB,"^",PID,"^" Line Location: DISP2+5
Function Call: WRITE	Prompt: !?1,"Interaction: ",INTNAM,?49," Severity: ",SEVER Line Location: DISP2+8
Function Call: WRITE	Prompt: !?1,"Interaction Inactivation Date: ",$$FMTE^XLFDT(INACT,2) Line Location: DISP2+9
Function Call: WRITE	Prompt: INTNAM_"^"_SEVER_"^" Line Location: DISP2+10
Function Call: WRITE	Prompt: $$FMTE^XLFDT(INACT,2) Condition for execution: INACT Line Location: DISP2+10
Function Call: WRITE	Prompt: "^" Line Location: DISP2+10
Function Call: WRITE	Prompt: ! Line Location: INACTOUT+2
Function Call: WRITE	Prompt: ")" Line Location: ORDOUT+4
Function Call: WRITE	Prompt: ORDER,"^",TYPE,"^",PRODNAM,"^",SCHTYP,"^",$$FMTE^XLFDT(START\1,2),"^" Line Location: ORDOUT+6
Function Call: WRITE	Prompt: $$FMTE^XLFDT(STOP\1,2) Line Location: ORDOUT+7
Function Call: WRITE	Prompt: !?5,"This report searches Inpatient Medications orders by" Line Location: GETDATE+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: GETDATE+8
Function Call: WRITE	Prompt: !,"No starting date chosen" Line Location: GETDATE+9
Function Call: WRITE	Prompt: !!,"Enter the Order Stop Date to begin searching from: " Line Location: DTM+0
Function Call: WRITE	Prompt: !! Line Location: DTM+1
Function Call: WRITE	Prompt: !,I,") ",?5,$P(STRING,"^",I) Line Location: FORMAT+13
Function Call: WRITE	Prompt: ! Line Location: HD+4
Function Call: WRITE	Prompt: @IOF Line Location: HD+6
Function Call: WRITE	Prompt: ?22,"Inpatient Drug Interaction Report" Line Location: HD+8
Function Call: WRITE	Prompt: !?1,"Order",?8,"VA Product Name" Line Location: HD+11
Function Call: WRITE	Prompt: ?33,"Sch Type",?44,"Start",?54,"Stop" Line Location: HD+12
Function Call: WRITE	Prompt: ! Line Location: HD+13
Function Call: WRITE	Prompt: "-" Line Location: HD+13
Function Call: WRITE	Prompt: ! Line Location: HD+14
Routine Call	DIR Line Location: FORMAT+4 HD+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GETVITAL+1
^PS(52.6 - [#52.6]	GETIV+10
^PS(52.7 - [#52.7]	GETIV+17
^PS(55 - [#55]	START+7, GETUD+2, GETUD+4, GETUD+5, GETUD+6, GETUD+7, GETIV+2, GETIV+4, GETIV+5, GETIV+8 , GETIV+9, GETIV+15, GETIV+16, ORDOUT+1
^PS(56 - [#56]	CHKINACT+2
^PSDRUG - [#50]	GETUD+8, GETIV+11, GETIV+18
^PSNDF(50.68 - [#50.68]	ORDOUT+2
^TMP("PSN PSNJ54"	START+6!
^TMP("PSN PSNJ54I"	START+6!, INACTOUT+4, INACTOUT+5, INACTOUT+6, INACTOUT+7, INACTOUT+8, INACTOUT+10, CHKINACT+6*
^UTILITY($J	INIT+1!
^XTMP("PSNINT"	START+3, PROCESS+6, GETUD+9, GETIV+12, GETIV+19, DISP+3, DISP+4, INACTOUT+14, RESETDT+1, RESETDT+2*

Label References

Name	Line Occurrences
CHK	PROCESS+7
CHKINACT	DISP+6
DISP	CHK+13, CHK+14
DISP2	DISP+7, INACTOUT+15
DTC	GETDATE+10
DTM	GETDATE+8
FORMAT	EN+5
GETDATE	EN+4
GETIV	PROCESS+3
GETUD	PROCESS+2
GETVITAL	CHK+5, INACTOUT+15
HD	START+4, START+8, DISP+2, DISP2+4
INACTOUT	START+9
INIT	EN+3
ORDOUT	DISP2+11, DISP2+12
PROCESS	START+7
RESETDT	INIT+6

Naked Globals

Name	Field # of Occurrence
^(	INACTOUT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	INIT+4
ADD	GETIV+1~, GETIV+9*, GETIV+10
ADDRUG	GETIV+1~, GETIV+10*, GETIV+11
ADSEQ	GETIV+1~, GETIV+7, GETIV+8, GETIV+9
BEGDT	EN+1~, START+6, GETDATE+10*
BEGDTF	START+5~, START+6*, PROCESS+2, PROCESS+3
CNT	PROCESS+1~, DISP+2!, DISP2+1*, DISP2+3
>> D	GETDATE+6, GETDATE+7, GETDATE+8
DATA	INACTOUT+3~, INACTOUT+11*, INACTOUT+12, INACTOUT+13
DD	DTC+1~, DTC+3, DTC+4
DDRUG	GETUD+1~, GETUD+6*, GETUD+8
DDSEQ	GETUD+1~, GETUD+5*, GETUD+6
DFN	START+5~, START+7, GETUD+2, GETUD+4, GETUD+5, GETUD+6, GETUD+7, GETIV+2, GETIV+4, GETIV+5 , GETIV+8, GETIV+9, GETIV+15, GETIV+16, CHK+5, DISP2+11, DISP2+12, INACTOUT+3~, INACTOUT+4, INACTOUT+5 , INACTOUT+6, INACTOUT+7, INACTOUT+8, INACTOUT+10, INACTOUT+15, ORDOUT~, ORDOUT+1, GETVITAL~, GETVITAL+1, CHKINACT+6
DIR	FORMAT+1~, HD+4!
DIR("A"	FORMAT+3, HD+3
DIR("B"	FORMAT+2*
DIR(0	FORMAT+2, HD+2
DIRUT	EN+5, START+5~, START+7, PROCESS+4, PROCESS+5, PROCESS+6, CHK+6, CHK+7, CHK+8, CHK+9 , DISP+2, DISP+3, DISP2+2, INACTOUT+3~, INACTOUT+4, INACTOUT+5, INACTOUT+6, INACTOUT+7, INACTOUT+8, INACTOUT+10 , FORMAT+4, HD+5
DOB	EN+1~, DISP2+3, DISP2+5, GETVITAL+1, GETVITAL+2
DONE	PROCESS+1~
DPT0	EN+1~, GETVITAL+1*, GETVITAL+2
DT	START+4, START+6, CHK+4~, GETDATE+6, GETDATE+10, INIT+2, INIT+5, RESETDT+2
DTIME	GETDATE+8, INIT+2
>> DTOUT	INIT+5*
DUZ	EN+3, INIT+2
ENDT	EN+1~, START+6, GETDATE+10, DTC+4
ENDTF	START+5~, START+6*, GETUD+2, GETIV+2
EXIT	EN+1~, EN+4, GETDATE+8, GETDATE+9
>> G	EN+8*
>> I	FORMAT+13*
IIEN	CHKINACT~, CHKINACT+2
INACT	CHK+10~, DISP+6, DISP2+9, DISP2+10, INACTOUT+11, CHKINACT+7*
INACTDT	CHKINACT+1~, CHKINACT+2*, CHKINACT+3, CHKINACT+4, CHKINACT+5
INACTFLG	EN+2~, START+9*, HD+7
INTCNT	DISP+1~, DISP+3, DISP+4, DISP+6, INACTOUT+3~, INACTOUT+9, INACTOUT+10*, INACTOUT+11, INACTOUT+14
INTDATA	DISP+1~, DISP+4, DISP+5, DISP2+6, INACTOUT+14
INTER	PROCESS+1~
INTIEN	DISP+1~, DISP+5*, DISP+6
INTNAM	DISP+1~, DISP2+6*, DISP2+8, DISP2+10
IOF	HD+6
IOSL	DISP+2, DISP2+4
IOST	HD+2, HD+6
MM	DTC+1~, DTC+2
>> ND0	ORDOUT+1*
NEXT	GETDATE+1~*
ORD	CHK+4~
ORD1	CHK+7, CHK+11, DISP2+11, INACTOUT+3~, INACTOUT+7, INACTOUT+8, INACTOUT+10, CHKINACT+6
ORD2	CHK+9, CHK+12, DISP2+12, INACTOUT+3~, INACTOUT+8, INACTOUT+10, CHKINACT+6
ORDER	ORDOUT~, ORDOUT+1, ORDOUT+4, ORDOUT+6
ORTYP	EN+1~, PROCESS+2, PROCESS+3, GETUD+10, GETIV+13, GETIV+20
OUTFORM	EN+1~, START+8, DISP2+2, DISP2+5, DISP2+8, DISP2+10, DISP2+13, INACTOUT+2, ORDOUT+3, FORMAT+5* , FORMAT+6, HD+1
PID	EN+1~, DISP2+3, DISP2+5, GETVITAL+1, GETVITAL+2, GETVITAL+3*
PNAME	EN+1~, START+5~, DISP2+3, DISP2+5, GETVITAL+1*
PR1	CHK~, CHK+6, CHK+7, CHK+11, DISP+3, DISP+4, DISP2+11, INACTOUT+3~, INACTOUT+5*, INACTOUT+6 , INACTOUT+7, INACTOUT+8, INACTOUT+10, INACTOUT+14, CHKINACT+6
PR2	CHK~, CHK+8, CHK+9, CHK+12, DISP+3, DISP+4, DISP2+12, INACTOUT+3~, INACTOUT+6*, INACTOUT+7 , INACTOUT+8, INACTOUT+10, INACTOUT+14, CHKINACT+6
PROD	PROCESS+1~, PROCESS+4*, PROCESS+5, PROCESS+6, PROCESS+7
PROD(	PROCESS+4, PROCESS+5, GETUD+10, GETIV+13, GETIV+20*, CHK+6, CHK+7, CHK+8, CHK+9, CHK+11 , CHK+12
PRODNAM	EN+2~, ORDOUT+2*, ORDOUT+4, ORDOUT+6
PRODUCT	ORDOUT~, ORDOUT+2
>> PSGDT	INIT+4*
PSGORD	EN+2~, GETUD+1~, GETUD+3, GETUD+4, GETUD+5, GETUD+6, GETUD+7, GETUD+10, GETIV+3, GETIV+4 , GETIV+5, GETIV+8, GETIV+9, GETIV+13, GETIV+15, GETIV+16, GETIV+20
>> PSJDT	PROCESS+2, PROCESS+3, GETUD+2, GETUD+4, GETIV+2, GETIV+4
>> PSJPG	START+4, HD+2, HD+9, HD+14
RUNDT	EN+1~, START+4, START+6, HD+10, INIT+5*
SCHTYP	EN+2~, ORDOUT+1*, ORDOUT+5, ORDOUT+6
SEVER	DISP+1~, DISP2+6, DISP2+7, DISP2+8, DISP2+10
SOL	GETIV+1~, GETIV+16*, GETIV+17
SOLDRUG	EN+2~, GETIV+17*, GETIV+18
SOLSEQ	GETIV+1~, GETIV+14, GETIV+15, GETIV+16
START	DISP~, DISP+6, ORDOUT~, ORDOUT+5, ORDOUT+6, CHKINACT~, CHKINACT+4
START1	CHK+4~, CHK+11, CHK+13, CHK+14, DISP2+11, INACTOUT+12, CHKINACT+5
START2	CHK+4~, CHK+12, CHK+13, CHK+14, DISP2+12, INACTOUT+12, CHKINACT+5
STDT	EN+1~, GETUD+1~, GETUD+7, GETUD+10, GETIV+5, GETIV+6*, GETIV+13, GETIV+20
STOP	ORDOUT~, ORDOUT+5, ORDOUT+7
STOP1	CHK+4~, CHK+11, CHK+14, DISP2+11, INACTOUT+3~, INACTOUT+13, CHKINACT+5
STOP2	CHK+4~, CHK+12, CHK+13, DISP2+12, INACTOUT+3~, INACTOUT+13, CHKINACT+5
STPDT	EN+2~, GETUD+7, GETUD+10, GETIV+6, GETIV+13, GETIV+20
STRING	CHKINACT+5, CHKINACT+6, FORMAT+1~, FORMAT+6, FORMAT+7, FORMAT+8, FORMAT+9, FORMAT+10, FORMAT+11*, FORMAT+13
TCNT	START+5~, START+10, DISP2+1
TYP	CHK+4~
TYP1	EN+2~, CHK+6, CHK+7, CHK+11, DISP2+11, INACTOUT+3~, INACTOUT+11, CHKINACT+5
TYP2	EN+2~, CHK+8, CHK+9, CHK+12, DISP2+12, INACTOUT+3~, INACTOUT+11, CHKINACT+5
TYPE	ORDOUT~, ORDOUT+1, ORDOUT+4, ORDOUT+6
VAPROD	EN+2~, PROCESS+5, PROCESS+6, PROCESS+7, GETUD+1~, GETUD+8, GETUD+9, GETUD+10, GETIV+1~, GETIV+11* , GETIV+12, GETIV+13, GETIV+18*, GETIV+19, GETIV+20
>> X	GETDATE+6, GETDATE+8, RESETDT+1, RESETDT+2*, DTC+3
>> X1	GETDATE+6, DTC+2
>> X2	GETDATE+6, DTC+2
XTMPCNT	CHKINACT~, CHKINACT+5, CHKINACT+6
>> Y	GETDATE+8, GETDATE+10, FORMAT+5, HD+13, DTC+1, DTC+2, DTC+4
>> ZTDESC	EN+6*, EN+9
>> ZTRTN	EN+7*, EN+9
>> ZTSAVE	EN+9
>> ZTSAVE(	EN+8*

Customize PDF page

Package: National Drug File

Routine: PSNJP54

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: