Routine: RAPXRM

Information

RAPXRM ;HOIFO/SWM - API for Clinical Reminders ;10/1/03 09:33

Source Information

Source file <RAPXRM.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Radiology Nuclear Medicine	3	RACTEX19 RACTRG13 RACTTK18
Clinical Reminders	1	PXRMRAD
Order Entry Results Reporting	1	ORWGAPIA

Entry Points

Name	Comments	DBIA/ICR reference
SRAD(X,DA)	;Set index for RAD/NUC MED PATIENT file.
RAD	;Build the index for RAD/NUC MED PATIENT.
KRAD(X,DA)	;Delete index for RAD/NUC MED PATIENT file.
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

External References

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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

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+23
^RA(78.3 - [#78.3]	EN1+35, EN1+37
^RADPT - [#70]	EN1+20, EN1+37, RAD+15, RAD+21, RAD+26, RAD+27, RAD+33, RAD+34
^RADPT(0	RAD+6
^RAMIS(71 - [#71]	EN1+24

Naked Globals

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

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+18~, EN1+36, EN1+37
IND	RAD+1~, RAD+14, RAD+16, RAD+17, RAD+18, RAD+20
J	EN1+18~, EN1+37*
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+18~, EN1+20*, EN1+21, EN1+23, EN1+24, EN1+25, EN1+34, EN1+35
RACNI	EN1+18~, EN1+19*, EN1+20, EN1+37
RADAS	EN1~, EN1+17, EN1+19
RADFN	EN1+18~, EN1+19*, EN1+20, EN1+37
RADTI	EN1+18~, EN1+19*, EN1+20, EN1+22, EN1+37
RARM	EN1~, EN1+15!
RARM("EXAM D/	T" , EN1+22*
RARM("EXAM ST	ATUS" , EN1+23*
RARM("INTERPR	ETING PHYSICIAN" , EN1+27*
RARM("PDX"	EN1+35*
RARM("PROCEDURE"	EN1+24*
RARM("RPT STA	TUS" , EN1+34*
RARM("SDX"	EN1+37*
RARPT	EN1+18~, EN1+34*
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+23, EN1+24, EN1+25, EN1+34, EN1+35, EN1+37, RAD+6, RAD+21, RAD+27, RAD+36
X	EN1+18~, EN1+25, EN1+26, EN1+27, KRAD~, SRAD~
X(1	KRAD+4, KRAD+5, SRAD+6, SRAD+7

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPXRM

Call Graph Total: 6

Caller Graph Total: 5