Routine: RAIPS165

Package	Total	Call Graph
VA FileMan	3	FILE^DIE ENALL^DIK ($$GET1,GETS)^DIQ
Kernel	2	^%ZTLOAD ($$NEWCP,BMES)^XPDUTL
Radiology Nuclear Medicine	2	PROC^RAO7MFN $$EN3^RAUTL17
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
EN1	;sync radiology procedures with their orderable items (101.43)
EN2	;Re-Index of "D" cross reference in file #71, field #9 - CPT CODE
TASK1	;Task1 entry point
PROCCHK	;Check procedure fields for mismatches
CM	;Note that parent procedures in CPRS show contrast based on descendants having
COMMCHK	;Common Procedure check - File 71.3 ; 'RAOICOM' - Orderable Item Common Procedure flag (YES, NO or NULL) ; 'RAPROC' - Rad procedure IEN
RESYNCIT	;Send to CPRS
RPTIT	;send results via Mailman
RIX	;Re-Index CPT CODE - "D" XREF
VIT	;Valid Imaging types

Name	Field # of Occurrence
^%ZTLOAD	EN1+8, EN2+4
FILE^DIE	PROCCHK+38
ENALL^DIK	RIX+3
$$GET1^DIQ	PROCCHK+3, PROCCHK+11, PROCCHK+17, PROCCHK+20, PROCCHK+36, PROCCHK+44, PROCCHK+52, COMMCHK+12
GETS^DIQ	TASK1+11
PROC^RAO7MFN	RESYNCIT+17
$$EN3^RAUTL17	COMMCHK+7
^XMD	RPTIT+23
$$NEWCP^XPDUTL	RAIPS165+11, RAIPS165+12
BMES^XPDUTL	EN1+9, EN2+5

FileNo	Call Tags
^ORD(101.43 - [#101.43]	GETS^DIQ
^RAMIS(71 - [#71]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101.43 - [#101.43]	TASK1+7, TASK1+8
^RAMIS(71 - [#71]	PROCCHK+8, PROCCHK+37, CM+6, CM+7, CM+8, CM+9, CM+15, CM+16, RIX+2!
^RAMIS(71.3 - [#71.3]	COMMCHK+6, COMMCHK+8, COMMCHK+9, COMMCHK+17
^TMP("RASYNC"	TASK1+4!, TASK1+17, TASK1+19!, PROCCHK+26, PROCCHK+32, PROCCHK+39, PROCCHK+45, PROCCHK+53, CM+20, COMMCHK+12* , COMMCHK+18*, RESYNCIT+14, RESYNCIT+15, RESYNCIT+16

Name	Line Occurrences
COMMCHK	TASK1+14
PROCCHK	TASK1+13
RESYNCIT	TASK1+17
RPTIT	TASK1+18

Name	Field # of Occurrence
DA	RIX+1~, RIX+4!
DIC	RIX+1~, RIX+4!
DIFROM	RPTIT+2~
DIK	RIX+1~, RIX+3*, RIX+4!
DIK(1	RIX+3*
DT	PROCCHK+37, PROCCHK+38
RA165	RESYNCIT+12~*
RAACT	COMMCHK+5~, COMMCHK+9, COMMCHK+11
RAC1	TASK1+3~, PROCCHK+28, PROCCHK+33, PROCCHK+40, PROCCHK+46, PROCCHK+54, CM+21, COMMCHK+13, COMMCHK+19*, RPTIT+4 , RPTIT+14
RAC2	TASK1+3~, PROCCHK+7, PROCCHK+8, PROCCHK+12, PROCCHK+14, PROCCHK+21, PROCCHK+24, PROCCHK+51, RPTIT+4, RPTIT+15
RAC3	RPTIT+1~, RPTIT+4*, RPTIT+13
RACHX1	RAIPS165+10~, RAIPS165+11*
RACHX2	RAIPS165+10~, RAIPS165+12*
RACM	TASK1+2~, CM+5, CM+9, CM+10, CM+15, CM+16, CM+19
RACMI	TASK1+2~, CM+8, CM+9, CM+15, CM+16
RACOM	COMMCHK+5~, COMMCHK+6*, COMMCHK+8, COMMCHK+9, COMMCHK+12
RACOMIAC	COMMCHK+5~
RACT	TASK1+3~, TASK1+9, RPTIT+12
RADA	RESYNCIT+12~, RESYNCIT+15*, RESYNCIT+16
RADES	CM+5~, CM+7*, CM+8, CM+9
RADI	CM+5~, CM+6, CM+7
RAENALL	RESYNCIT+12~*, RESYNCIT+17
RAERR	TASK1+9!, TASK1+19!
RAFDA	PROCCHK+38~
RAFDA(71	PROCCHK+38*
RAFILE	TASK1+1~, PROCCHK+3, PROCCHK+26, PROCCHK+32, PROCCHK+39, PROCCHK+45, PROCCHK+53, CM+20, COMMCHK+4, COMMCHK+12 , COMMCHK+18, RESYNCIT+14*, RESYNCIT+15, RESYNCIT+16, RESYNCIT+17
RAI	TASK1+2~, TASK1+4, PROCCHK+7, PROCCHK+8, PROCCHK+12, PROCCHK+14, PROCCHK+21, PROCCHK+24, PROCCHK+28, PROCCHK+33* , PROCCHK+40, PROCCHK+46, PROCCHK+51, PROCCHK+54, CM+21, COMMCHK+13, COMMCHK+19*
RAII	PROCCHK+4~*
RAIT	TASK1+2~, PROCCHK+11, PROCCHK+12, PROCCHK+13, COMMCHK+5~, COMMCHK+7, COMMCHK+9
RAMIS713	RESYNCIT+12~
RAMIS713(0	RESYNCIT+12*
RAMRCP	EN1+1~, TASK1+19!, RPTIT+22
RAOI0	TASK1+1~
RAOIAC	TASK1+1~, PROCCHK+49*, PROCCHK+52
RAOICM	TASK1+1~, CM+3*, CM+19
RAOICOM	TASK1+1~, TASK1+14*, COMMCHK+11, COMMCHK+17
RAOICPT	TASK1+1~, PROCCHK+43*, PROCCHK+44
RAOIE	TASK1+1~
RAOIENS	TASK1+2~, TASK1+10*, TASK1+11, TASK1+12, TASK1+14, PROCCHK+5, PROCCHK+10, PROCCHK+18, PROCCHK+43, PROCCHK+49 , CM+3
RAOIFLDS	TASK1+2~, TASK1+10*, TASK1+11
RAOII	TASK1+1~, TASK1+8*, TASK1+10
RAOIIT	TASK1+1~, PROCCHK+10*, PROCCHK+13
RAOINAM	TASK1+1~, PROCCHK+5*, PROCCHK+6, PROCCHK+7, PROCCHK+8, PROCCHK+24, PROCCHK+25
RAOIPT	TASK1+1~, PROCCHK+18*, PROCCHK+20, PROCCHK+31
RAOISET	TASK1+1~, TASK1+7*, TASK1+8, PROCCHK+6
RAORD	TASK1+2~, TASK1+9!, TASK1+19!
RAORD(	TASK1+12, TASK1+14, PROCCHK+5, PROCCHK+10, PROCCHK+18, PROCCHK+43, PROCCHK+49, CM+3
RAPIAC	TASK1+2~, PROCCHK+36*, PROCCHK+37, PROCCHK+51
RAPN	TASK1+2~, PROCCHK+12, PROCCHK+14, PROCCHK+17*, PROCCHK+21, PROCCHK+24, PROCCHK+25, PROCCHK+28, PROCCHK+33, PROCCHK+40 , PROCCHK+46, PROCCHK+51, PROCCHK+54, CM+21, COMMCHK+13, COMMCHK+19
RAPROC	TASK1+1~, TASK1+12*, PROCCHK+3, PROCCHK+7, PROCCHK+8, PROCCHK+11, PROCCHK+12, PROCCHK+14, PROCCHK+17, PROCCHK+20 , PROCCHK+21, PROCCHK+24, PROCCHK+26, PROCCHK+27, PROCCHK+28, PROCCHK+32, PROCCHK+33, PROCCHK+36, PROCCHK+37, PROCCHK+38 , PROCCHK+39, PROCCHK+40, PROCCHK+44, PROCCHK+45, PROCCHK+46, PROCCHK+51, PROCCHK+52, PROCCHK+53, PROCCHK+54, CM+6 , CM+7, CM+15, CM+16, CM+20, CM+21, COMMCHK+6, COMMCHK+7, COMMCHK+12, COMMCHK+13, COMMCHK+17 , COMMCHK+18, COMMCHK+19
RAPT	TASK1+2~, PROCCHK+20*, PROCCHK+31, PROCCHK+37, CM+4
RAQ	TASK1+9!, TASK1+19!, PROCCHK+7, PROCCHK+8, PROCCHK+12, PROCCHK+14, PROCCHK+21, PROCCHK+24, PROCCHK+33, PROCCHK+51 , COMMCHK+3
RASEQ	COMMCHK+5~, COMMCHK+8*, COMMCHK+9
RASTAT	RESYNCIT+12~, RESYNCIT+13*, RESYNCIT+17
RATEXT	TASK1+2~, RPTIT+3
RATEXT(	PROCCHK+7, PROCCHK+8, PROCCHK+12, PROCCHK+14, PROCCHK+21, PROCCHK+24, PROCCHK+28, PROCCHK+33, PROCCHK+40, PROCCHK+46 , PROCCHK+51, PROCCHK+54, CM+21, COMMCHK+13, COMMCHK+19*
RATEXT(1	RPTIT+6*
RATEXT(10	RPTIT+15*
RATEXT(11	RPTIT+16*
RATEXT(2	RPTIT+7*
RATEXT(3	RPTIT+8*
RATEXT(4	RPTIT+9*
RATEXT(5	RPTIT+10*
RATEXT(6	RPTIT+11*
RATEXT(7	RPTIT+3, RPTIT+12
RATEXT(8	RPTIT+13*
RATEXT(9	RPTIT+14*
RATXT	EN1+1~, EN1+9, EN2+2~, EN2+5
RATXT(1	EN1+7, EN2+3
RATXT(2	EN1+8, EN2+4
RAVIT	TASK1+2~
RAVIT(	PROCCHK+4*, PROCCHK+12
RAX	CM+5~, CM+9*, CM+10
RAY	TASK1+2~, PROCCHK+3~, PROCCHK+26, PROCCHK+32, PROCCHK+39, PROCCHK+45, PROCCHK+53, CM+20, RESYNCIT+12~, RESYNCIT+16 , RESYNCIT+17
RAY(	PROCCHK+27*, PROCCHK+46, PROCCHK+54, CM+21, COMMCHK+13, COMMCHK+19
U	PROCCHK+3, COMMCHK+8, COMMCHK+12, COMMCHK+18
XMDUZ	RPTIT+1~, RPTIT+20*
XMSUB	RPTIT+1~, RPTIT+19*
XMTEXT	RPTIT+1~, RPTIT+18*
XMY	RPTIT+1~
XMY(	RPTIT+22*
>> XPDQUES("POS1"	EN1+3
ZTDESC	EN1+1~, EN1+7, EN2+2~, EN2+3
ZTDTH	EN1+1~, EN1+8, EN2+2~, EN2+4
ZTIO	EN1+1~, EN2+2~
ZTRTN	EN1+1~, EN1+7, EN2+2~, EN2+3
ZTSAVE	EN1+1~, EN1+5
ZTSAVE("RAMRCP"	EN1+3, EN1+5
>> ZTSK	EN1+8, EN2+4

Name

Field # of Occurrence

DA

RIX+1~, RIX+4!

DIC

RIX+1~, RIX+4!

DIFROM

RPTIT+2~

DIK

RIX+1~, RIX+3*, RIX+4!

DIK(1

RIX+3*