Routine: RAMAIN3

Information

RAMAIN3 ;HISC/PW - UPDATE CPRS ORDERABLE ITEMS ;7/24/02 14:45

Source file <RAMAIN3.m>

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAMAIN

Name	Comments	DBIA/ICR reference
DELMESG	;Message was deleted from 71.4, need to delete from 71
ORDITMS	;*50 \|=> The message has been changed - task off a job to update ; the Orderable Items file 101.43
QORDITMS	; loop procedures to locate message and then send to CPRS

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Since the PROCEDURE MESSAGE TEXT has been changed, all CPRS Orderable",!,"Items that have this TEXT will be updated by task job ",$G(ZTSK)," .",! Line Location: ORDITMS+9

Name	Line Occurrences (* Changed, ! Killed)
^RAMIS(71 - [#71]	QORDITMS+4, QORDITMS+5, QORDITMS+6, DELMESG+2

Name	Line Occurrences
DELMESG	QORDITMS+8

Name	Field # of Occurrence
DA	ORDITMS+3~, DELMESG+1~, DELMESG+2*
DA(1	DELMESG+2*
DIK	DELMESG+1!, DELMESG+2*, DELMESG+4!
DT	ORDITMS+6, QORDITMS+7
RADA	QORDITMS+3~, QORDITMS+4*, QORDITMS+5, QORDITMS+6, QORDITMS+9, DELMESG+2
RAENALL	QORDITMS+3~, QORDITMS+9*, QORDITMS+10
RAFILE	QORDITMS+3~, QORDITMS+9*, QORDITMS+10
RAINADT	QORDITMS+3~, QORDITMS+6*, QORDITMS+7
>> RAMLNB	QORDITMS+7, QORDITMS+8
>> RAMSG	ORDITMS+3*, QORDITMS+5, DELMESG+2
RASTAT	QORDITMS+3~, QORDITMS+9*, QORDITMS+10
RAY	QORDITMS+3~, QORDITMS+9*, QORDITMS+10
XX	ORDITMS+5~*
>> ZTDESC	ORDITMS+4*
>> ZTDTH	ORDITMS+6*
>> ZTIO	ORDITMS+6*
>> ZTREQ	QORDITMS+2*
>> ZTRTN	ORDITMS+4*
>> ZTSAVE(	ORDITMS+5*
>> ZTSK	ORDITMS+9