Routine: RANPROU2

Information

RANPROU2 ;MANTECH/CLT - LOINC FOR THE HL7 UTILITY ; 28 Oct 2016 10:36 AM

Name	Comments	DBIA/ICR reference
EN	;MAIN ENTRY POINT
MTCH	;ALREADY MATCHED NOTIFICATION
MTCH1	;ALTERNATE ENTRY POINT
SEED	;HAS FILE 71.99 BEEN SEEDED
ONE	;EDIT MAPPING ON A SINGLE PROCEDURE
LOINC	;ENTER/EDIT LOINC FOR ONE ENTRY IN FILE 71
ACTIVE	;IS THE MRPF ENTRY ACTIVE
CPT(DA,RAX)	;Ask for CPT Code when the 'Procedure Enter/Edit' option

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,$C(7),"The MRPF procedure "_$P(^RAMRPF(71.99,RAPROIEN,0),U,1)_" is already mapped to your procedure ",$P(^RAMIS(71,RAIEN,0),U,1)_"." Line Location: MTCH1+4
Function Call: WRITE	Prompt: !," Use the already created procedure.",! Line Location: MTCH1+5
Function Call: WRITE	Prompt: !?3,"Either change "_$P(^RAMIS(71,RAIEN,0),U,1)_" or choose another MRPF.",! Line Location: MTCH1+6
Function Call: WRITE	Prompt: !,?3," Choose another MRPF.",! Line Location: MTCH1+7
Function Call: WRITE	Prompt: !!,"This new procedure will be removed." Line Location: MTCH1+8
Function Call: WRITE	Prompt: !!?3,"The populating of the MASTER RADIOLOGY PROCEDURE file is called seeding.",! Line Location: SEED+1
Function Call: WRITE	Prompt: !! Line Location: ONE+11
Function Call: WRITE	Prompt: !?3,"Enter 'Y' to accept the CPT Code, or 'N' to reject the CPT Code or '^' to",!?3,"exit without selecting a CPT Code." Line Location: CPT+14
Function Call: WRITE	Prompt: !?5,"Note: If an erroneous CPT Code is accepted it cannot be changed; the",!?5,"procedure must be inactivated." Line Location: CPT+15