Routine: RMPR124P

Information

RMPR124P ;VMP/RB - FIX FIELD LENGTH PROBLEMS FOR FILES #660/664 ;01/13/06

Name	Comments	DBIA/ICR reference
FIX664	;search and correct length in errors for specified fields in files 664
F1
EN	;Entry Point.
ASKCMP	;COMPILE ASK
CMP	;COMPILE
BUILD
FIX	;FIX BY INTERNAL PTR FOR 660/664
EXIT0
EXIT
MAIL	;Send mail message when build complete.
WAIT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: FIX664+1
Function Call: WRITE	Prompt: !," THIS TEMPORARY PROCESS HAS BEEN PUT IN PLACE TO SCRUB (VIA USER " Line Location: FIX664+2
Function Call: WRITE	Prompt: !," INTERACTION) ANY FIELDS IN FILE #664 AND FILE#660 THAT MAY HAVE " Line Location: FIX664+3
Function Call: WRITE	Prompt: !," A FIELD LENGTH ERROR CAUSED BY THE GUI PROSTHETICS PURCHASING " Line Location: FIX664+4
Function Call: WRITE	Prompt: !," MODULE WHICH WAS ALLOWING DATA OUTSIDE THE FIELD DEFINED LENGTH " Line Location: FIX664+5
Function Call: WRITE	Prompt: !," LIMITATIONS. " Line Location: FIX664+6
Function Call: WRITE	Prompt: !,"REPLY YES (Y) OR NO (N)" Line Location: F1+0
Function Call: WRITE	Prompt: !! Line Location: F1+2
Function Call: WRITE	Prompt: !!,"This build contains ",+RMREM," nodes to be fixed, ",+$P(RMREM,"^",2)," field length errors",! Line Location: ASKCMP+10
Function Call: WRITE	Prompt: !!,"There are 0 items to be fixed.",! Line Location: ASKCMP+11
Function Call: WRITE	Prompt: !,"Request Queued!" Line Location: CMP+9
Function Call: WRITE	Prompt: !!," REPAIR PROCESS TERMINATED BY USER " Line Location: EXIT+0
Function Call: WRITE	Prompt: " < ",TFIX_" FIELD LENGTH ERRORS CORRECTED"," >" Line Location: EXIT+0
Function Call: WRITE	Prompt: ! Line Location: WAIT+3
Function Call: WRITE	Prompt: ! Line Location: WAIT+3