Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PRCH516P

Package: IFCAP

Routine: PRCH516P


Information

PRCH516P ;WOIFO/CR-VENDOR LOOKUP AND CONVERSION ;1/08/01 9:36 AM

Source Information

Source file <PRCH516P.m>

Entry Points

Name Comments DBIA/ICR reference
A1 ;
; This routine is used by patch PRC*5.1*16 to complete a conversion of
; vendors, file #440, and to update the socioeconomic groups in
; the CODE INDEX file #420.6.
START ;
START1
EXIT
A2 ;Convert the vendor with intenal code 'Q'=158 to code 'S'=162 if code
A3 ;Get a record of vendors before and after conversion.
HOLD ;
HEADER ;
A4 ;Allow the user to get a printout before conversion.
PRE ;Delete all the entries in file #420.6.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?10,"Illegal entry point...terminating",$C(7)
  • Line Location: PRCH516P+4
Function Call: WRITE
  • Prompt: !,?10,">>>>>> VENDOR CONVERSION - FILE #440 <<<<<<"
  • Line Location: A1+5
Function Call: WRITE
  • Prompt: !!,?10,">>>>>> CODE INDEX UPDATE - FILE #420.6 <<<<<<"
  • Line Location: A1+6
Function Call: WRITE
  • Prompt: !!,?5,"This program will gather all the vendors from the VENDOR file"
  • Line Location: A1+7
Function Call: WRITE
  • Prompt: !,?5,"(#440) with the socioeconomic group codes 'Q' and 'R' to"
  • Line Location: A1+8
Function Call: WRITE
  • Prompt: !,?5,"perform the following:"
  • Line Location: A1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+10
Function Call: WRITE
  • Prompt: !,?5,"The code 'Q' will be deleted and the code 'S'"
  • Line Location: A1+11
Function Call: WRITE
  • Prompt: !,?5,"will be added to the vendor if it does not have it."
  • Line Location: A1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+13
Function Call: WRITE
  • Prompt: !,?5,"The code 'R' will be replaced by the new code 'RV' and the"
  • Line Location: A1+14
Function Call: WRITE
  • Prompt: !,?5,"code 'S' will be added to the vendor if it does not have it."
  • Line Location: A1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+16
Function Call: WRITE
  • Prompt: !,?5,"The codes 'Q' and 'R' in the CODE INDEX file (#420.6)"
  • Line Location: A1+17
Function Call: WRITE
  • Prompt: !,?5,"will be deactivated as part of this patch.",!
  • Line Location: A1+18
Function Call: WRITE
  • Prompt: !,?5,"PLEASE OBTAIN A PRINTOUT OF ALL THE VENDORS BEFORE AND"
  • Line Location: A1+19
Function Call: WRITE
  • Prompt: !,?5,"AFTER THE CONVERSION AND SAVE BOTH FOR FUTURE REFERENCE."
  • Line Location: A1+20
Function Call: WRITE
  • Prompt: !!,?5,"NO RECORDS FOUND...TERMINATING.",$C(7)
  • Line Location: A1+26
Function Call: WRITE
  • Prompt: !!,?5,"Searching for all the eligible vendors, please wait..."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,?5,"...list completed and ready to be printed!!!",!,$C(7)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,?5,"(Enter '^' at the DEVICE prompt to quit.)",!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !!!!!!,?10,"*** NO RECORDS TO PRINT ***"
  • Line Location: A3+4
Function Call: WRITE
  • Prompt: !!,?5,"Found "_COUNT_" entries."
  • Line Location: A3+14
Function Call: READ
  • Variable: XXZ
  • Timeout: DTIME
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: !,"Press return to continue, '^' to exit:"
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"LIST OF VENDORS FOR PATCH PRC*5.1*16",?42,TDATE,?70,"PAGE ",P
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: "----------"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,?2,"VENDOR ID",?15,"VENDOR NAME",?60,"VENDOR CODES",!!
  • Line Location: HEADER+6
Info |  Source |  Entry Points |  Interaction Calls