Routine: RORUTL22

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

RORUTL22 ;HCIOFO/SJA - COLLECT ROR DRUG MATCH ; 07/03/17 2:16pm

Source Information

Source file <RORUTL22.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$FMADD,$$NOW)^XLFDT (OPTSTAT,RESCH)^XUTMOPT
Pharmacy Data Management	1	AND^PSS50

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

Package	Total	Caller Graph
Clinical Case Registries	7	ROR DRUG MATCH RORP032 RORP033 RORP034 RORP035 RORUTL16 ^ROR(799.51

Entry Points

Name	Comments	DBIA/ICR reference
EN(SDA)	; --- local drug match collecting - triggered by AMCH x-ref of the ROR GENERIC DRUG file (#799.51)
MATCH	; --- run daily by nightly task job
XDRG(GENIEN,GROUP)	; --- run by RXADDGEN^RORUTL16 - Rx data search ; GENIEN - VA Generic Durg IEN ; GROUP - Group code
TASK	; --- Entry point to automatic collect drug match
END	;--- exit

External References

Name	Field # of Occurrence
^%ZTLOAD	EN+3
AND^PSS50	MATCH+7
$$FMADD^XLFDT	TASK+3
$$NOW^XLFDT	EN+2
OPTSTAT^XUTMOPT	TASK+2
RESCH^XUTMOPT	TASK+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Collect existing ROR drug match data...",! Line Location: MATCH+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ROR(799.51 - [#799.51]	MATCH+4, MATCH+8*, XDRG+4
^TMP($J	MATCH+2!, MATCH+6!, MATCH+7, MATCH+8, MATCH+9!

Label References

Name	Line Occurrences
END	MATCH+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DT	TASK+3
GENIEN	MATCH+1~, MATCH+4*, MATCH+5, MATCH+7, MATCH+8, XDRG~, XDRG+4
GROUP	XDRG~, XDRG+4, XDRG+6
IEN50	MATCH+1~, MATCH+8*
IOST	MATCH+3
PSS50	XDRG+3~, XDRG+4*, XDRG+6
REGS	MATCH+1~, MATCH+4*, MATCH+8
>> ROR8DST	XDRG+6
RORROOT	TASK+1~, TASK+2
RORROOT(1	TASK+3
>> RORTSK("PARAMS"	XDRG+5
SDA	EN~, MATCH+4, MATCH+5
ZTDESC	EN+1~, EN+2*
ZTDTH	EN+1~, EN+2*
ZTIO	EN+1~, EN+2*
ZTRTN	EN+1~, EN+2*
>> ZTSAVE("SDA"	EN+2*
ZTSK	EN+1~, EN+3!