Routine: RA34PST

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$FMADD,$$NOW)^XLFDT MES^XPDUTL
VA FileMan	3	EN^DDIOL FILE^DIE ^DIR
Radiology Nuclear Medicine	2	PROC^RAO7MFN $$ORQUIK^RAORDU
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
QOFF	;Post-Install queues off File 71 Name correction job
MANUAL	;manually queue off Name correction job, only use if post-install abends
ASKQ
EN	; LOOP THRU FILE 71, FIELD .01 ; remove SEMICOLON from it ; if proc is active, then call PROC^RAO7MFN to update OI file
SLOOP
EXLOOP
STOR	; store messages and totals
REMOV	; remove ";"
CPRS	; update record in Orderable Items file 101.43
MAIL	; Send mail message to the installer

Name	Field # of Occurrence
^%ZTLOAD	QOFF+7, ASKQ+13
EN^DDIOL	QOFF+1, QOFF+2, MANUAL+1, ASKQ+8, ASKQ+14, ASKQ+15
FILE^DIE	REMOV+3
^DIR	ASKQ+5
PROC^RAO7MFN	CPRS+7
$$ORQUIK^RAORDU	CPRS+1
$$FMADD^XLFDT	QOFF+6, ASKQ+12
$$NOW^XLFDT	QOFF+6, ASKQ+12
^XMD	MAIL+4
MES^XPDUTL	QOFF+13

Name	Line Occurrences (* Changed, ! Killed)
^RAMIS(71 - [#71]	SLOOP, SLOOP+1, SLOOP+5, SLOOP+11, SLOOP+14, CPRS+3
^TMP($J	STOR+2*

Name	Line Occurrences
CPRS	SLOOP+13
EXLOOP	SLOOP
MAIL	EXLOOP+7
REMOV	SLOOP+13
SLOOP	SLOOP+1, SLOOP+16
STOR	SLOOP+7, SLOOP+12, EXLOOP, EXLOOP+1, EXLOOP+2, EXLOOP+3, EXLOOP+4, EXLOOP+5, EXLOOP+6

Name	Field # of Occurrence
^("I"	CPRS+3

Name	Field # of Occurrence
DIR	ASKQ!, ASKQ+6!
DIR("?"	ASKQ+3*
DIR("A"	ASKQ+4*
DIR("B"	ASKQ+2*
DIR(0	ASKQ+2*
DIROUT	ASKQ!, ASKQ+6!
DIRUT	ASKQ!, ASKQ+6!
DT	CPRS+3
DTOUT	ASKQ!, ASKQ+6!
DUOUT	ASKQ!, ASKQ+6!
DUZ	QOFF+2, MANUAL+1, MAIL+4
RA1	EN+3~, SLOOP+3*, SLOOP+4, SLOOP+6, SLOOP+10, SLOOP+12
RA2	EN+3~, SLOOP+10*, SLOOP+11, SLOOP+12, REMOV+2, CPRS+6
RA3	EN+3~, SLOOP+6, SLOOP+12, EXLOOP, EXLOOP+1, EXLOOP+2, EXLOOP+3, EXLOOP+4, EXLOOP+5, EXLOOP+6* , STOR+1, STOR+2
RABADTOT	EN+3~, EN+4, SLOOP+8, EXLOOP+6
RAC	EN+3~, EN+4, STOR+2
RAC1	EN+3~, EN+4, EXLOOP+4, REMOV+1
RAC2	EN+3~, EN+4, EXLOOP+5, CPRS+4
RACTOT	EN+3~, EN+4, SLOOP+2, EXLOOP+3
RAFDA	EN+3~, REMOV+4!
RAFDA(71	REMOV+2*
RAI	EN+3~, EN+4, SLOOP, SLOOP+1, SLOOP+5, SLOOP+6, SLOOP+12, SLOOP+14, REMOV+2, CPRS+3 , CPRS+6
RASTAT	EN+3~, CPRS+5*, CPRS+7
RATXT	QOFF+3~, QOFF+13
RATXT(1	QOFF+7*
RATXT(2	QOFF+8*
RATXT(3	QOFF+9*
RATXT(4	QOFF+10*
RATXT(5	QOFF+11*
RATXT(6	QOFF+12*
RAX	ASKQ+1~, ASKQ+15, EN+3~, SLOOP+1, SLOOP+3
RAY	EN+3~, CPRS+6*, CPRS+7
XMDUZ	MAIL+1~*
XMSUB	MAIL+1~, MAIL+3*
XMTEXT	MAIL+1~, MAIL+2*
XMY	MAIL+1~
XMY(	MAIL+4*
>> XPDNM	QOFF+1
>> Y	ASKQ+7
ZTDESC	QOFF+3~, QOFF+5, ASKQ+9~, ASKQ+11
ZTDTH	QOFF+3~, QOFF+6, ASKQ+9~, ASKQ+12
ZTIO	QOFF+3~, ASKQ+9~
>> ZTQUEUED	EXLOOP+8
>> ZTREQ	EXLOOP+8*
ZTRTN	QOFF+3~, QOFF+4, ASKQ+9~, ASKQ+10
>> ZTSK	QOFF+9, ASKQ+15