Routine: ORS100C

Information

ORS100C ; slc/dcm - OE/RR Controlled Substance RX w/Missing Digital Sig Report;Nov 04, 2020@16:11:29

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Order Entry Results Reporting	3	CSCHECK^ORDEA ($$DIV,$$LOC,HDR)^ORS100 LOOP^ORS100C
VA FileMan	2	^DIC ^DIR
Outpatient Pharmacy	1	OEL^PSOORRL
Registration	1	DEM^VADPT

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
Order Entry Results Reporting	2	OR CS ORDER ANOMALIES ORS100C

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
SDATE	;sets DIR call to ask the user for a starting date - Look up Install date for CPRS V29
EDATE	;sets DIR call to ask the user for an ending date (optional)
SWITCH	;takes the date input from the user and does a switcheroo so things work
BD
MCD
TASK	;
LOOP	;Produce Controlled Substance, no Dig Sig Report
DISP	; Display results
DEA	; Check ORDER DEA ARCHIVE file (#101.52) for Digital signature
DIV	;Select Divisions to include on report
EXIT	;

External References

Name	Field # of Occurrence
^%ZIS	TASK+1
^%ZISC	EXIT+2
^%ZTLOAD	TASK+7
^DIC	DIV+3
^DIR	SDATE+11, EDATE+5
CSCHECK^ORDEA	LOOP+35
$$DIV^ORS100	LOOP+15
$$LOC^ORS100	LOOP+14
HDR^ORS100	DISP+5, DISP+10
LOOP^ORS100C	TASK+8
OEL^PSOORRL	LOOP+27
DEM^VADPT	LOOP+25
$$FMTE^XLFDT	SDATE+6, SDATE+9, SDATE+11, EDATE+7, LOOP+32

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Search for Controlled Subscription orders with missing Digital Signatures",! Line Location: SDATE+4
Function Call: WRITE	Prompt: !!,"This report may take a long time to run",! Line Location: SDATE+5
Function Call: WRITE	Prompt: !,"CPRS V29 containing Controlled Subscription functionality was installed on "_$$FMTE^XLFDT($$FMTE^XLFDT(V29DT)) Line Location: SDATE+6
Function Call: READ	Variable: X Timeout: DTIME Line Location: BD+0
Function Call: WRITE	Prompt: !,"Enter Yes or No" Line Location: BD+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: MCD+0
Function Call: WRITE	Prompt: !,"Enter Yes or No" Line Location: MCD+1
Function Call: WRITE	Prompt: !,?32,"REQUEST QUEUED" Line Location: TASK+7
Function Call: WRITE	Prompt: "." Line Location: LOOP+20
Function Call: WRITE	Prompt: !,"No orders found" Line Location: DISP+6
Function Call: WRITE	Prompt: !,$P(ORX,U),?14,$P(ORX,U,3),?18,$P(ORX,U,4),?43,$P(ORX,U,5),?59,ORIFN Line Location: DISP+9
Function Call: WRITE	Prompt: !?2,$P(ORX,U,6),?43,$P(ORX,U,7),!?2,$P(ORX,U,8),?43,$P(ORX,U,9),!?2,$P(ORX,U,2),?33,$P(ORX,U,12),! Line Location: DISP+10
Function Call: WRITE	Prompt: !,"No orders found" Line Location: DISP+12
Function Call: WRITE	Prompt: !!?10,"TOTAL FOUND: "_SCNT Line Location: DISP+13
Routine Call	%ZIS Line Location: TASK+1
Routine Call	DIC Line Location: DIV+3
Routine Call	DIR Line Location: SDATE+11 EDATE+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DG(40.8 - [#40.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	LOOP+5
^OR(100 - [#100]	LOOP+10, LOOP+11, LOOP+12, LOOP+18, LOOP+22, LOOP+24, LOOP+25, LOOP+30, LOOP+34
^ORD(100.01 - [#100.01]	LOOP+23
^ORPA(101.52 - [#101.52]	DEA+2, DEA+3, DEA+4, DEA+5
^SC - [#44]	LOOP+14, LOOP+15
^TMP("ORSTATS"	EN+3!, LOOP+3!, LOOP+4, DISP+11, EXIT+1!
^TMP("ORUNS"	EN+3!, LOOP+3!, LOOP+36*, DISP+6, DISP+7, DISP+8, DISP+12, EXIT+1!
^TMP("PS"	EN+3!, LOOP+3!, LOOP+28, EXIT+1!
^VA(200 - [#200]	LOOP+32
^XPD(9.7 - [#9.7]	SDATE+2, SDATE+3

Label References

Name	Line Occurrences
BD	BD+1
DEA	LOOP+33
DIV	MCD+2
EXIT	SDATE+11, EDATE+7, DISP+6, DISP+12, DISP+14
MCD	MCD+1, MCD+2

Naked Globals

Name	Field # of Occurrence
^(	LOOP+34, DISP+8
^("RXN"	LOOP+28
^(0	LOOP+30
^(1	SDATE+2, SDATE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	TASK+1*
CNT	EN+2~, LOOP+2~, LOOP+5, LOOP+19, LOOP+20*, DISP+11
COMMENT	LOOP+2~, LOOP+19, LOOP+21, LOOP+22, LOOP+36, DEA+2, DEA+4, DEA+5
DFN	LOOP+2~, LOOP+25*
DIC	DIV+1~, DIV+3*
DIC(0	DIV+3*
DIR	EN+1~, SDATE+11!, EDATE+7!
DIR("?"	SDATE+10, EDATE+4
DIR("A"	SDATE+8, EDATE+2
DIR("B"	SDATE+9, EDATE+3
DIR(0	SDATE+7, EDATE+1
DIV	LOOP+1~, LOOP+9, LOOP+15, LOOP+36
DRUG	LOOP+2~, LOOP+29*, LOOP+36
DTIME	BD, MCD
DTOUT	EN+1~, SDATE+11, EDATE+7, DIV+1~, DIV+2, DIV+3
DUOUT	EN+1~, SDATE+11, EDATE+7, DIV+1~, DIV+2, DIV+3
EDATE	EN+1~, EDATE+7, SWITCH+1, LOOP+8
ENTBY	EN+2~, LOOP+32*, LOOP+36
H	EN+2~, DISP+1*, DISP+3
HDR	EN+2~, DISP+2*
HDR1	EN+2~, DISP+3*
>> I	LOOP+16*
IDI	LOOP+1~, LOOP+34*
IDT	EN+2~, LOOP+1~, LOOP+8, LOOP+10, LOOP+11, LOOP+36, DISP+7*, DISP+8
IFN	EN+2~, SDATE+1, SDATE+2, SDATE+3, LOOP+1~
IN	DEA+1~, DEA+3, DEA+4, DEA+5
INCLDRX	EN+2~, SWITCH+3, BD+2, LOOP+21, LOOP+22, DISP+1
IO	TASK+8
IO("Q"	TASK+2!
ION	TASK+3
IOSL	DISP+10
LOC	LOOP+1~, LOOP+9, LOOP+14, LOOP+36
LRDAT	LOOP+2~, LOOP+29*, LOOP+36
NODE	EN+2~, LOOP+1~, LOOP+28*, LOOP+29
OR0	EN+2~, LOOP+1~, LOOP+12*, LOOP+13, LOOP+14, LOOP+15, LOOP+16, LOOP+24, LOOP+32
OR3	EN+2~, LOOP+1~, LOOP+18*, LOOP+21, LOOP+22, LOOP+23
ORACT	EN+2~, LOOP+1~, LOOP+11*, LOOP+30
OREDT	EN+1~, EDATE+7*
ORIFN	EN+2~, LOOP+1~, LOOP+10, LOOP+11, LOOP+12, LOOP+18, LOOP+24, LOOP+25, LOOP+30, LOOP+34 , LOOP+36, DISP+8, DISP+9, DEA+2, DEA+3
ORIO	LOOP+1~, LOOP+34*, LOOP+35
>> ORPREV	LOOP+22*
ORPSO	LOOP+2~, LOOP+5*, LOOP+6, LOOP+13
>> ORTYPE	LOOP+21*
ORVP	EN+2~, LOOP+1~, LOOP+24*, LOOP+27
ORX	LOOP+1~, DISP+8*, DISP+9, DISP+10
PAGE	EN+2~, DISP+5*
PKG	LOOP+2~
PNM	LOOP+2~, LOOP+25*, LOOP+36
POP	EN+1~, TASK+1
PROV	EN+2~, LOOP+1~, LOOP+32*, LOOP+36
PSIFN	EN+2~, LOOP+1~, LOOP+24, LOOP+26, LOOP+27
QTY	LOOP+2~, LOOP+29*, LOOP+36
RDAT	LOOP+2~, LOOP+32*, LOOP+36
RPDT	LOOP+1~, LOOP+7*
RX	LOOP+2~, LOOP+28*, LOOP+29
RX0	EN+2~
RX2	EN+2~
RX3	EN+2~
RXN	EN+2~, LOOP+1~, LOOP+29*, LOOP+36
SCH	LOOP+1~, LOOP+35
SCNT	LOOP+2~, LOOP+5, LOOP+36, DISP+13
SD1	EN+1~, SDATE+11*, SWITCH+1
SD2	EN+1~, EDATE+7*, SWITCH+1
SDATE	EN+1~, SDATE+11, SWITCH+1, LOOP+8
SDT	EN+1~, SDATE+11*
SIDT	LOOP+1~, LOOP+8*, LOOP+10
SSN	LOOP+2~, LOOP+25*
STAT	EN+2~, LOOP+1~, LOOP+23*, LOOP+36
STOP	EN+2~, LOOP+2~, LOOP+7, LOOP+31, LOOP+33, DISP+4, DISP+7, DISP+8, DISP+10, DEA+3 , DEA+6
TYPE	EN+2~, LOOP+1~, LOOP+24*, LOOP+26, LOOP+27
U	LOOP+13, LOOP+14, LOOP+15, LOOP+16, LOOP+25, LOOP+36, DISP+9, DISP+10
V29DT	EN+2~, SDATE+1, SDATE+2, SDATE+3*, SDATE+6, SDATE+9, LOOP+1~
VA	EN+1~
VA("BID"	LOOP+25
VADM	EN+1~
VADM(1	LOOP+25
VAERR	EN+1~
X	EN+2~, BD, BD+1, BD+2, MCD, MCD+1, MCD+2, LOOP+1~, LOOP+30*
X0	EN+2~, LOOP+30*, LOOP+32
Y	EN+2~, SDATE+11, EDATE+5, EDATE+6, EDATE+7, LOOP+1~, LOOP+16, LOOP+17, DIV+1~, DIV+2 , DIV+3, DIV+4
YDIV	EN+2~, EN+3!
YDIV(	LOOP+16, DIV+4*
YDIV(0	MCD+2, LOOP+16, LOOP+17
ZTDESC	EN+1~, TASK+3*
ZTIO	EN+1~, TASK+3*
ZTRTN	EN+1~, TASK+4*
ZTSAVE	EN+1~
ZTSAVE("EDATE"	TASK+5*
ZTSAVE("INCLDRX"	TASK+6*
ZTSAVE("OREDT"	TASK+6*
ZTSAVE("SDATE"	TASK+5*
ZTSAVE("SDT"	TASK+6*
ZTSAVE("SORT"	TASK+4*
ZTSAVE("TYPE"	TASK+4*
ZTSAVE("YDIV"	TASK+6*
ZTSK	EN+1~, TASK+7, LOOP+20

Customize PDF page

Package: Order Entry Results Reporting