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 |  All
Print Page as PDF
Routine: REGCONVT

Package: Uncategorized

Routine: REGCONVT


Information

REGCONVT ;CONVERT REG DATA TO TAPE [ 08/26/87 8:14 AM ]

Source Information

Source file <REGCONVT.m>

Entry Points

Name Comments DBIA/ICR reference
SKPIT
EOD
READ
EOJ ;END OF JOB PROCESSING
BYPSS ;
SETPTID
LPRC3 ;
SETTIME
BLDHDR
READRG3
WERR
LASTOUT ;
BLDMRGID ;SET MERGE ID IN OUTPUT RECORD
OPNTAPE
KFLIP ;
TABLE ;1ST FIELD IS POSITION IN OUTPUT RECORD 2ND IS INPUT FIELD LENGTH
ROPN ;
RG3DESC ;;DELETE RECORD FORMAT
FINISH ;
END ;END OF PROGRAM
I
RFD1
RG2DESC ;;177;20;MOTHER NAME LAST;X
BLDDTL
SETMGID
HOLD
RGBL
RG1DESC ;;005;06;FACILITY CODE
LOOKUP
FIXNUM
FLIPREC

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: PR=""
  • Line Location: REGCONVT+3
Function Call: WRITE
  • Prompt: !!,"MOUNT 1600 BPI TAPE ON DEVICE 48"
  • Line Location: REGCONVT+9
Function Call: WRITE
  • Prompt: !,"GLOBAL 'AGTXDATA' DOES NOT EXIST, JOB TERMINATED"
  • Line Location: RGBL+1
Function Call: WRITE
  • Prompt: !!,"HEADER RECORD MISSING, RUN TERMINATED"
  • Line Location: SETTIME+1
Function Call: WRITE
  • Prompt: !!,"NO DATA IN GLOBAL, RUN TERMINATED"
  • Line Location: SETTIME+5
Function Call: WRITE
  • Prompt: !!,"FIRST RECORD INVALID, RUN TERMINATED"
  • Line Location: SETTIME+7
Function Call: WRITE
  • Prompt: !,"TAPE UNIT 48 NOT ON-LINE, READY DEVICE"
  • Line Location: OPNTAPE+0
Function Call: WRITE
  • Prompt: *5
  • Line Location: OPNTAPE+1
Function Call: WRITE
  • Prompt: !!,"TAPE UNIT 48 NEEDS WRITE RING, JOB ABORTED"
  • Line Location: OPNTAPE+2
Function Call: WRITE
  • Prompt: #,?10,"R E G I S T R A T I O N C O N V E R S I O N E R R O R L I S T"," ",FACCODE," ",FACNAME," ",%DAT1
  • Line Location: OPNTAPE+4
Function Call: WRITE
  • Prompt: !!,"RECORD SECUENCE ERROR, RECORD COUNT IS ",CNTIN," DATA RECORD IS ",!!,INPUT
  • Line Location: WERR+0
Function Call: WRITE
  • Prompt: !!,"RECORD CODE INVALID, VALUE FOUND IS ",INPUT
  • Line Location: FLIPREC+2
Function Call: WRITE
  • Prompt: !!,"RUN TERMINATED"
  • Line Location: FLIPREC+2
Function Call: WRITE
  • Prompt: !!,FACNUM," MAILING ADDRESS STREET EXISTS, MAILING ADDRESS TOWN MUST EXIST",!,"DATA RECORD IS ",INPUT
  • Line Location: LOOKUP+2
Function Call: WRITE
  • Prompt: !!,FACNUM," MAILING ADDRESS TOWN EXISTS, MAILING ADDRESS STATE MUST EXIST",!,"DATA RECORD IS ",INPUT
  • Line Location: LOOKUP+3
Function Call: WRITE
  • Prompt: !!,"WARNING - ",$P($T(TABLE+DISP+I),";",5)," IS TRUNCATED TO ",$P($T(TABLE+DISP+I),";",4)," POSITIONS, VALUE BEFORE TRUNCATION IS '",X,"'",!,INPUT
  • Line Location: LOOKUP+4
Function Call: WRITE
  • Prompt: SOUTPUT,OUTPUT
  • Line Location: EOD+3
Function Call: WRITE
  • Prompt: !,CNTOUT
  • Line Location: EOD+3
Function Call: WRITE
  • Prompt: !!,"NO RG3 RECORDS PRESENT"
  • Line Location: I+0
Function Call: WRITE
  • Prompt: !!,"TAPE UNIT 48 NOT READY, ANY KEY TO CONTINUE ",ANS#1
  • Line Location: ROPN+1
Function Call: WRITE
  • Prompt: *1
  • Line Location: BLDHDR+0
Function Call: WRITE
  • Prompt: *1
  • Line Location: BLDHDR+2
Function Call: WRITE
  • Prompt: OUTPUT
  • Line Location: RFD1+2
Function Call: WRITE
  • Prompt: !!,$P(DATA,"^",2)," ",$P($T(RG3DESC+1),";",3),!,DATA
  • Line Location: SETMGID+2
Function Call: WRITE
  • Prompt: !!,$P(DATA,"^",2)," ",$P($T(RG3DESC+2),";",3),!,DATA
  • Line Location: SETMGID+3
Function Call: WRITE
  • Prompt: !!,$P(DATA,"^",2)," ",$P($T(RG3DESC+3),";",3),!,DATA
  • Line Location: SETMGID+4
Function Call: WRITE
  • Prompt: OUTPUT
  • Line Location: BLDDTL+0
Function Call: WRITE
  • Prompt: !!,"RUN TIME ",H," ",M," ",S
  • Line Location: FINISH+6
Function Call: WRITE
  • Prompt: !,"RECORDS INPUT ",CNTIN
  • Line Location: LASTOUT+2
Function Call: WRITE
  • Prompt: !,"RECORDS OUTPUT ",CNTOUT
  • Line Location: LASTOUT+3
Function Call: WRITE
  • Prompt: !,"RECORDS REJECTED ",CNTERR
  • Line Location: LASTOUT+4
Function Call: WRITE
  • Prompt: !!,"TOTAL (RG1/RG2) RECORDS ",RG12
  • Line Location: LASTOUT+5
Function Call: WRITE
  • Prompt: !!,"TOTAL (RG3) RECORDS ",RG3
  • Line Location: LASTOUT+6
Function Call: WRITE
  • Prompt: !!,"TOTAL RECORDS TO BE ENTERED"
  • Line Location: LASTOUT+8
Function Call: WRITE
  • Prompt: !,"INTO PCIS LOGBOOK ",RG12
  • Line Location: LASTOUT+9
Function Call: WRITE
  • Prompt: #,#
  • Line Location: LASTOUT+10
Function Call: WRITE
  • Prompt: *3
  • Line Location: LASTOUT+11
Function Call: WRITE
  • Prompt: *5
  • Line Location: LASTOUT+11
Function Call: WRITE
  • Prompt: !!,"RECORDS INPUT ",CNTIN
  • Line Location: LASTOUT+13
Function Call: WRITE
  • Prompt: !,"RECORDS OUTPUT ",CNTOUT
  • Line Location: LASTOUT+14
Function Call: WRITE
  • Prompt: !,"RECORDS REJECTED ",CNTERR
  • Line Location: LASTOUT+15
Function Call: WRITE
  • Prompt: !,"DELETE/MERGE RECORDS ",RG3
  • Line Location: LASTOUT+16
Function Call: WRITE
  • Prompt: !!,"TOTHE DELETE/MERGE PROCESS WILL CREATE MULTIPLE HEADERS AS FACILITIES CHANGE"
  • Line Location: LASTOUT+17
Function Call: WRITE
  • Prompt: !!,"TOTAL RECORDS (RG1/RG2) AND RG3 ",RG12,", SHOULD EQUAL AREA COUNT"
  • Line Location: LASTOUT+18
Function Call: WRITE
  • Prompt: !!,"END OF PROCESSING"
  • Line Location: LASTOUT+19
Info |  Source |  Entry Points |  Interaction Calls |  All