Routine: ORDOTP

Information

ORDOTP ; SLC/MAE - Opioid Treatment Components ; Dec 16, 2024@13:29:17

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ($$DEFDIR,$$DEL,$$FTG,CLOSE,OPEN)^%ZISH ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
VA FileMan	4	(H,NOW,YMD)^%DTC ^DIC D^DIQ ^DIR

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

Package	Total	Caller Graph
Inpatient Medications	1	PSJU OTP
Order Entry Results Reporting	1	ORWRP1A

Entry Points

Name	Comments	DBIA/ICR reference
EN(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE)	;OTP REPORT
GETDATA	;Retrieve OTP Dispense data
PRTDATA	;Print OTP Dispense data
HDR	;OTP Report Header
WEEKS	;Build Weeks Header
LEGEND	;Legend
HFSOPEN(HANDLE)	;open HFS
HFSCLOSE(HANDLE)	;close HFS
ASK	;VistA hook for OTP Dispense Report
ASKDT	;
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN)	; Calls reader, returns response
SELDEV()	;* Ask for device type for report to output to *
EXIT	;

External References

Name	Field # of Occurrence
H^%DTC	WEEKS+5
NOW^%DTC	HDR+2
YMD^%DTC	WEEKS+7, WEEKS+11
^%ZIS	SELDEV+3
^%ZISC	EN+19, EXIT+4
$$DEFDIR^%ZISH	EN+9, HFSOPEN+2, HFSCLOSE+4
$$DEL^%ZISH	HFSCLOSE+7
$$FTG^%ZISH	HFSCLOSE+6
CLOSE^%ZISH	HFSCLOSE+2
OPEN^%ZISH	HFSOPEN+4
^DIC	ASK+4
D^DIQ	HDR+2
^DIR	READ+7
$$FMADD^XLFDT	EN+4, WEEKS+2
$$FMDIFF^XLFDT	WEEKS+1
$$FMTE^XLFDT	HDR+1
$$NOW^XLFDT	EN+4
$$REPEAT^XLFSTR	GETDATA+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," ** NO PATIENT DATA FOUND *" Line Location: GETDATA+2
Function Call: WRITE	Prompt: !," ** NO OTP MEDICATION DISPENSE DATA FOUND *",! Line Location: PRTDATA+3
Function Call: WRITE	Prompt: !," ** NO OTP MEDICATION DISPENSE DATA FOUND *",! Line Location: PRTDATA+13
Function Call: WRITE	Prompt: "\| \| \| \| \| \| \| \|",! Line Location: PRTDATA+27
Function Call: WRITE	Prompt: "OTP MEDICATION DISPENSE REPORT for "_$$FMTE^XLFDT(ALPHA)_" to "_$$FMTE^XLFDT(OMEGA) Line Location: HDR+1
Function Call: WRITE	Prompt: !,?80-$L("Run Date: "_Y),"Run Date: "_Y Line Location: HDR+3
Function Call: WRITE	Prompt: !,?80-$L("Page: "_HDR("PAGE")),"Page: "_HDR("PAGE") Line Location: HDR+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","="),! Line Location: HDR+6
Function Call: WRITE	Prompt: !!," LEGEND " Line Location: LEGEND+1
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","=") Line Location: LEGEND+2
Function Call: WRITE	Prompt: !!,"Initial - Name Legend" Line Location: LEGEND+3
Function Call: WRITE	Prompt: !,LEGEND(DSPBY)_" - "_DSPBY Line Location: LEGEND+4
Function Call: WRITE	Prompt: !!,"BLANK SPACE - shows that no dispense information was received via the interface." Line Location: LEGEND+5
Function Call: WRITE	Prompt: !,"This can indicate the patient was a no-show for their appointment, no medication" Line Location: LEGEND+6
Function Call: WRITE	Prompt: !,"was prescribed/dispensed, or that the interface failed to send the data." Line Location: LEGEND+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","=") Line Location: LEGEND+9
Function Call: WRITE	Prompt: !,"END DATE must be more recent than the START DATE" Line Location: ASKDT+6
Function Call: WRITE	Prompt: !," No device selected or Report printed " Line Location: SELDEV+3
Routine Call	DIC Line Location: ASK+4
Routine Call	DIR Line Location: READ+7
Routine Call	%ZIS Line Location: SELDEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GETDATA+4
^ORD(101.22 - [#101.22]	GETDATA+2, GETDATA+3, GETDATA+5, GETDATA+6, GETDATA+9, GETDATA+12, GETDATA+13, PRTDATA+1
^TMP("OR OTP"	EN+9, EN+14, EN+21!, GETDATA+1!, GETDATA+8, GETDATA+24, GETDATA+26, GETDATA+28, PRTDATA+3, PRTDATA+4 , PRTDATA+8, PRTDATA+11, PRTDATA+12, PRTDATA+16, PRTDATA+17, PRTDATA+18, PRTDATA+21, PRTDATA+22, PRTDATA+23, PRTDATA+25 , WEEKS+9, WEEKS+10*, HFSCLOSE+3!, HFSCLOSE+6

Label References

Name	Line Occurrences
$$READ	ASKDT+1, ASKDT+3
$$SELDEV	ASKDT+8
ASK	ASK+5
ASKDT	ASKDT+6
EN	ASKDT+11
EXIT	SELDEV+3
GETDATA	EN+11, EN+17
HDR	GETDATA+2, PRTDATA+2
HFSCLOSE	EN+13
HFSOPEN	EN+9
LEGEND	PRTDATA+30
PRTDATA	EN+12, EN+18
WEEKS	GETDATA+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HDR+2, EXIT+1!
%H	WEEKS+5, WEEKS+7, WEEKS+11, EXIT+1!
%I	EXIT+1!
%ZIS	SELDEV+1!, SELDEV+2*, EXIT+1!
%ZIS("A"	SELDEV+2*
%ZIS("B"	SELDEV+2*
ALPHA	EN~, EN+4*, EN+5, GETDATA+10, HDR+1, WEEKS+1, WEEKS+2, WEEKS+3
DEFAULT	READ~, READ+5
DFN	EN~, GETDATA+2, GETDATA+3, GETDATA+4, PRTDATA+1
DIC	ASK+4*!
DIC("A"	ASK+3*
DIC(0	ASK+2*
DIR	READ+1~
DIR("?"	READ+6*
DIR("A"	READ+4*
DIR("B"	READ+5*
DIR("S"	READ+3*
DIR(0	READ+2*
DSPAMT	EN+1~, GETDATA+18, GETDATA+19, GETDATA+26
DSPAMTCHG	EN+1~, GETDATA+18, GETDATA+19
DSPBY	EN+1~, GETDATA+14, GETDATA+29, LEGEND+4
DSPDATE	EN+1~, GETDATA+20*
DSPDIFF	EN+1~, WEEKS+1*, WEEKS+2
DSPDOW	EN+1~, WEEKS+6*, WEEKS+7, WEEKS+9, WEEKS+10
DSPDTTM	EN+1~
DSPEND	EN+1~, WEEKS+2*, WEEKS+4
DSPFMDATE	EN+1~, PRTDATA+23*
DSPFMDAY	EN+1~, PRTDATA+11, PRTDATA+12, PRTDATA+16, PRTDATA+17, PRTDATA+18, PRTDATA+22*, PRTDATA+24, PRTDATA+25
DSPHOW	EN+1~, GETDATA+16*, GETDATA+25, GETDATA+26, GETDATA+27, GETDATA+28
DSPIEN	EN+1~, GETDATA+12*, GETDATA+13
DSPINI	EN+2~, GETDATA+15*, GETDATA+26, GETDATA+29
DSPINT	EN+2~, GETDATA+23*
DSPINTDT	EN+2~, GETDATA+22*
DSPLINE	EN+2~, PRTDATA+20, PRTDATA+24, PRTDATA+25*, PRTDATA+26
DSPMED	EN+2~, GETDATA+17*, GETDATA+26
DSPREC	EN+2~, GETDATA+13*, GETDATA+14, GETDATA+15, GETDATA+16, GETDATA+17, GETDATA+18, GETDATA+20, GETDATA+21, GETDATA+22 , GETDATA+23
DSPROWS	EN+2~, PRTDATA+14, PRTDATA+18, PRTDATA+19, PRTDATA+27
DSPTIME	EN+2~, GETDATA+21*, GETDATA+26
DSPWEEK	EN+2~, PRTDATA+4, PRTDATA+8, PRTDATA+11, PRTDATA+16, PRTDATA+21, PRTDATA+22, PRTDATA+23, WEEKS+5, WEEKS+7 , WEEKS+9, WEEKS+10, WEEKS+11
DSPWKCOL	EN+2~, GETDATA+24*, GETDATA+26, GETDATA+28
DSPWKCTR	EN+2~, PRTDATA+5, PRTDATA+11, PRTDATA+13, PRTDATA+15
DT	EN+4
DTRANGE	EN~, EN+4
DUZ	HFSOPEN+3, HFSCLOSE+5
FRSTDSPDT	EN+3~, GETDATA+5*, WEEKS+3
HANDLE	HFSOPEN~, HFSOPEN+4, HFSCLOSE~, HFSCLOSE+2
HDR	EN+3~
HDR("PAGE"	HDR+4*, HDR+5
HELP	READ~, READ+6
ID	EN~, ASK+1~, ASKDT+10*, ASKDT+11
IO	EN+10, EN+16
IO("Q"	SELDEV+1!
IOF	EN+8~, HFSOPEN+5*, EXIT+2
IOM	EN+8~, HFSOPEN+5*
IOP	SELDEV+1!, EXIT+4*
IOSL	EN+8~, HFSOPEN+5*
IOST	EN+8~, HFSOPEN+5*, EXIT+2
LASTDSPDT	EN+3~, GETDATA+6*, WEEKS+8
LEGEND	EN+3~
LEGEND(	GETDATA+29*, LEGEND+4
M	EN+3~, PRTDATA+19*, PRTDATA+25, PRTDATA+27
MEDDATE	EN+3~, GETDATA+9, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+24, GETDATA+26, GETDATA+28, WEEKS+3, WEEKS+5 , WEEKS+11*
NODSPCTR	EN+3~, PRTDATA+5, PRTDATA+12, PRTDATA+13
NUMWEEKS	EN+3~, WEEKS+12*
OMEGA	EN~, EN+4*, EN+5, GETDATA+11, HDR+1, WEEKS+1, WEEKS+8
ORFHIE	EN~
ORMAX	EN~
OTPDEL	HFSCLOSE+1~, HFSCLOSE+7
OTPDEL(	HFSCLOSE+5*
OTPDIR	HFSOPEN+1~, HFSOPEN+2, HFSOPEN+4, HFSCLOSE+1~, HFSCLOSE+4, HFSCLOSE+6, HFSCLOSE+7
OTPFILE	HFSOPEN+1~, HFSOPEN+3, HFSOPEN+4, HFSCLOSE+1~, HFSCLOSE+5, HFSCLOSE+6
OTPSTOP	EN+20!, SELDEV+3*, SELDEV+4
OTPVFLG	EN+7, EN+15, ASK+1~, ASKDT+9*
POP	EN+9, HFSOPEN+4, SELDEV+1!, SELDEV+3
PROMPT	READ~, READ+4
PTIEN	EN+3~, GETDATA+3, GETDATA+5, GETDATA+6, GETDATA+9, GETDATA+12, GETDATA+13, ASK+1~, ASK+2, ASK+6* , ASKDT+11
PTNAME	EN+3~, GETDATA+4*
REMOTE	EN~
ROOT	EN~, EN+14*, ASKDT+11
SCREEN	READ~, READ+3
TYPE	READ~, READ+2
U	GETDATA+4, GETDATA+14, GETDATA+15, GETDATA+16, GETDATA+17, GETDATA+18, GETDATA+20, GETDATA+21, GETDATA+22, GETDATA+23 , GETDATA+24, GETDATA+26, GETDATA+28, PRTDATA+8, PRTDATA+11, PRTDATA+22, PRTDATA+23, PRTDATA+25, WEEKS+9, WEEKS+10 , READ+8
VOTPBDT	ASK+1~, ASKDT+1, ASKDT+2, ASKDT+6, ASKDT+11
VOTPEDT	ASK+1~, ASKDT+3, ASKDT+4, ASKDT+5, ASKDT+6*, ASKDT+11
X	EN+3~, PRTDATA+8, PRTDATA+11, PRTDATA+12, PRTDATA+15, PRTDATA+16, PRTDATA+17, PRTDATA+18, PRTDATA+21, PRTDATA+22 , PRTDATA+23, PRTDATA+24, PRTDATA+25, WEEKS+4, WEEKS+5, WEEKS+8, WEEKS+9, WEEKS+10, WEEKS+11, HFSCLOSE+6 , HFSCLOSE+7, ASK+2, ASK+4, READ+1~
Y	HDR+2, HDR+3, ASK+5, ASK+6, READ+1~, READ+8, READ+9
Y(0	READ+8
ZTDESC	EXIT+1!
ZTDTH	EXIT+1!
ZTIO	EXIT+1!
ZTQUEUED	EXIT+3, EXIT+5!
ZTREQ	EXIT+3*, EXIT+5!
ZTRTN	EXIT+1!
ZTSAVE	EXIT+1!

Customize PDF page

Package: Order Entry Results Reporting