Routine: RAPXRM

Information

RAPXRM ;HOIFO/SWM,GJC - API for Clinical Reminders ;04 Mar 2019 12:02 PM

Package	Total	Call Graph
Kernel	3	$$NOW^XLFDT (BMES,MES)^XPDUTL $$NNT^XUAF4
VA FileMan	2	$$GET1^DID $$GET1^DIQ
Clinical Reminders	1	(ADDERROR,COMMSG,DETIME,ERRMSG)^PXRMSXRM
Radiology Nuclear Medicine	1	($$RSTAT,$$UL)^RAO7PC1A

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

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RACTRG9 ^RADPT
Clinical Reminders	1	PXRMRAD
Order Entry Results Reporting	1	ORWGAPIA

Entry Points

Name	Comments	DBIA/ICR reference
EN1(RADAS,RARM)	;retrieve data from Clin. Rem.'s new style index "ACR" ; Input: ; RADAS = last subscript of (required), for example: ; ^PXRMINDX(70,"IP",43,1,2,2920720.1049,"2;DT;7079279.895;P;3;0") ; ^PXRMINDX(70,"PI",9,3,45,2921204.155,"9;DT;7078795.8449;P;1;0") ; RARM = array name passed by reference (required) ; Output: ; RARM("aaa") = external value, eg.: ; RARM("EXAM D/T") = Exam Date and time in yyymmdd.hhmm format ; RARM("EXAM STATUS") = Exam Status name ; RARM("PROCEDURE") = Procedure name ; RARM("INTERPRETING PHYSICIAN") = Primary Staff; else Primary Resident ; If exam node doesn't exist, then RARM is undefined ; RARM("RPT STATUS") = Report status name ; RARM("DIV") = Rad/Nuc Med Division Name (file 4) ^ Station # ; RARM("I-LOC") = Imaging Location name
RAD	;Build the index for RAD/NUC MED PATIENT.
KRAD(X,DA)	;Delete index for RAD/NUC MED PATIENT file.
SRAD(X,DA)	;Set index for RAD/NUC MED PATIENT file.

External References

Name	Field # of Occurrence
$$GET1^DID	RAD+5, RAD+51
$$GET1^DIQ	EN1+27, EN1+35
ADDERROR^PXRMSXRM	RAD+24, RAD+31, RAD+39
COMMSG^PXRMSXRM	RAD+50
DETIME^PXRMSXRM	RAD+46
ERRMSG^PXRMSXRM	RAD+48
$$RSTAT^RAO7PC1A	EN1+43
$$UL^RAO7PC1A	EN1+43
$$NOW^XLFDT	RAD+53
BMES^XPDUTL	RAD+10
MES^XPDUTL	RAD+12, RAD+19, RAD+45
$$NNT^XUAF4	EN1+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: RAD+20

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^RADPT - [#70]	GET1^DID
^RA(79.1 - [#79.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PXRMINDX(70	RAD+4!, RAD+40, RAD+41, RAD+51, RAD+52, RAD+53, KRAD+4!, KRAD+5!, SRAD+6, SRAD+7*
^RA(72 - [#72]	EN1+32
^RA(78.3 - [#78.3]	EN1+44, EN1+46
^RADPT - [#70]	EN1+22, EN1+29, EN1+46, RAD+15, RAD+21, RAD+26, RAD+27, RAD+33, RAD+34
^RADPT(0	RAD+6
^RAMIS(71 - [#71]	EN1+33

Naked Globals

Name	Field # of Occurrence
^(	EN1+46
^(0	EN1+46

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D0	RAD+1~, RAD+14, RAD+15, RAD+21, RAD+23, RAD+26, RAD+27, RAD+28, RAD+33, RAD+34
D1	RAD+1~, RAD+25, RAD+26, RAD+27, RAD+28, RAD+33, RAD+34
D2	RAD+1~, RAD+32, RAD+33, RAD+34, RAD+35
DA	RAD+1~, RAD+28*, RAD+30, RAD+35, KRAD~, KRAD+3, SRAD~, SRAD+5
DA(1	KRAD+2, KRAD+3, SRAD+4, SRAD+5
DA(2	KRAD+3, KRAD+4, KRAD+5, SRAD+5, SRAD+6, SRAD+7
DAS	RAD+1~, RAD+35, RAD+38, RAD+40, RAD+41, KRAD+1~, KRAD+3, KRAD+4, KRAD+5, SRAD+3~ , SRAD+5*, SRAD+6, SRAD+7
DATE	RAD+27, RAD+29, RAD+40, RAD+41, KRAD+1~, KRAD+2, KRAD+4, KRAD+5, SRAD+3~, SRAD+4* , SRAD+6, SRAD+7
DFN	RAD+1~, RAD+21*, RAD+22, RAD+40, RAD+41
DUZ	RAD+52
END	RAD+1~, RAD+43*, RAD+46, RAD+50
ENTRIES	RAD+1~, RAD+6*, RAD+7, RAD+11
>> ETEXT	RAD+23, RAD+24, RAD+30, RAD+31, RAD+38*, RAD+39
GLOBAL	RAD+1~, RAD+5*, RAD+24, RAD+31, RAD+39, RAD+48, RAD+50
I	EN1+20~, EN1+45, EN1+46
IND	RAD+1~, RAD+14, RAD+16, RAD+17, RAD+18, RAD+20
J	EN1+20~, EN1+46*
NE	RAD+1~, RAD+14, RAD+42, RAD+44, RAD+50
NERROR	RAD+1~, RAD+14*, RAD+24, RAD+31, RAD+39, RAD+48, RAD+50
PROC	RAD+1~, RAD+36*, RAD+37, RAD+40, RAD+41
RA0	EN1+20~, EN1+29*, EN1+30, EN1+32, EN1+33, EN1+34, EN1+43, EN1+44
RACNI	EN1+20~, EN1+21*, EN1+29, EN1+46
RADAS	EN1~, EN1+19, EN1+21
RADFN	EN1+20~, EN1+21*, EN1+22, EN1+29, EN1+46
RADTI	EN1+20~, EN1+21*, EN1+22, EN1+29, EN1+31, EN1+46
RARM	EN1~, EN1+17!
RARM("DIV"	EN1+25*
RARM("EXAM D/	T" , EN1+31*
RARM("EXAM ST	ATUS" , EN1+32*
RARM("I-LOC"	EN1+27*
RARM("INTERPR	ETING PHYSICIAN" , EN1+36*
RARM("PDX"	EN1+44*
RARM("PROCEDURE"	EN1+33*
RARM("RPT STA	TUS" , EN1+43*
RARM("SDX"	EN1+46*
RARPT	EN1+20~, EN1+43*
RAY2	EN1+20~, EN1+22*, EN1+25, EN1+27
START	RAD+2~, RAD+13*, RAD+46, RAD+50
TEMP	RAD+2~, RAD+34*, RAD+36
TENP	RAD+2~, RAD+7, RAD+8, RAD+9*, RAD+17
TEXT	RAD+2~, RAD+11, RAD+12, RAD+18, RAD+19, RAD+44*, RAD+45
U	EN1+25, EN1+27, EN1+32, EN1+33, EN1+34, EN1+43, EN1+44, EN1+46, RAD+6, RAD+21 , RAD+27, RAD+36
X	EN1+20~, EN1+34, EN1+35, EN1+36, KRAD~, SRAD~
X(1	KRAD+4, KRAD+5, SRAD+6, SRAD+7

Customize PDF page

Package: Radiology Nuclear Medicine