Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 DD^%DT  NOW^%DTC  
IFCAP 1 ^PRCFYN  

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.

External References

Name Field # of Occurrence
DD^%DT A3+2
NOW^%DTC A3+2
^%ZIS START+11, A4+1
HOME^%ZIS START+12, A4+2
^%ZISC START+13, A4+3
^%ZTLOAD START+12, A4+2
^PRCFYN START+7

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
Routine Call
  • %ZIS
  • Line Location:
    • START+11
    • A4+1
Routine Call
  • %ZIS
  • Line Location:
    • START+12
    • A4+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] START1, START1+1, A2+5, A2+7!*, A2+8*, A2+9*, A2+13, A2+15!*, A2+17*, A2+18*
, A2+19*, A3+8, A3+9, A3+10
^PRCD(420.6 - [#420.6] A3+10, PRE+3!
^TMP($J A1+22!, A1+24, A1+25, START+4, START1+1*, EXIT!, A2+4, A2+12, A3+4, A3+6

Label References

Name Line Occurrences
A2 START+13
A3 A2+20, A4+3
A4 START+4
EXIT A1+26, START+7, START+12, START+13
HEADER A3+4, A3+7, HOLD+1
HOLD A3+12
START A1+24
START1 A1+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+6*, START+7, START+8, A3+2
>> %A START+6*
>> %B START+6*
>> %ZIS START+11*, A4+1*
>> %ZIS("B" START+11*, A4+1*
CNTR START1*, START1+2*, START1+3, EXIT!
CONV A1+23*, START+4, START+8*, START+9, EXIT!, HEADER+3, HEADER+4
COUNT EXIT!, A3+3*, A3+13*, A3+14
DTIME HOLD+1
EX EXIT!, A3+3*, A3+6, A3+12, HOLD+1*
I EXIT!, HEADER+5*
IO A3+1
IO("Q" START+12, A4+2
IOF HEADER+1
IOSL A3+12
IOST HOLD+1
J EXIT!, A2+4*, A2+5, A2+7, A2+8, A2+9, A2+12*, A2+13, A2+15, A2+17
, A2+18, A2+19, A3+6*, A3+8, A3+9, A3+10
N EXIT!, A3+10*
P EXIT!, A3+3*, A3+4*, A3+7, HEADER+2, HEADER+7*
>> POP START+4, START+11, A4+1
PRCINDX EXIT!, A2+5*, A2+6, A2+13*, A2+14, A3+8*
SEG START1+1*, EXIT!
TDATE EXIT!, A3+2*, HEADER+2
X START1*, START1+1, EXIT!
XXZ EXIT!, HOLD+1*
Y EXIT!, A3+2*
Z11 START1*, EXIT!
>> ZTDESC START+12*, A4+2*
>> ZTRTN START+12*, A4+2*
>> ZTSAVE("CONV" START+12*, A4+2*
>> ZTSAVE("^TMP($J," START+12*, A4+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All