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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSXARC1

Package: CMOP

Routine: PSXARC1


Information

PSXARC1 ;BIR/HTW-Gather Data to Archive ;02 Aug 2001 9:57 AM

Source Information

Source file <PSXARC1.m>

Entry Points

Name Comments DBIA/ICR reference
TAPEHDR
MAIN ;
ONE ;GET DATA FROM 552.1
CNODE
LBL
LBL1
ACK
BATCH
HEADING
RX
NEWTAPE
PSXAT ;CHECK FOR EOT RETURN PSXEOT=1 IF EOT FOUND
EOT
READ
HDR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "$$HDR|CMOP MASTER ARCHIVE^"_PSXTAPE
  • Line Location: TAPEHDR+0
Function Call: WRITE
  • Prompt: @PSXIOF,?10,"CMOP MASTER DATABASE ARCHIVE",?45,Y
  • Line Location: TAPEHDR+2
Function Call: WRITE
  • Prompt: !!,"Recording data on tape # ",PSXTAPE,". Write this number on the tape label!!",!!
  • Line Location: MAIN+1
Function Call: WRITE
  • Prompt: !!,"Total # of Transmissions Archived: ",$G(BATCT)
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !,"Total # of Rx's Archived : ",$G(RXCT)
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !,"Total Bytes Archived : ",$G(T1)+$G(T2)
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !,"Completed: ",Y," Closing Tape Device..."
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: 552.1
  • Line Location: ACK+2
Function Call: WRITE
  • Prompt: REC
  • Line Location: BATCH+0
Function Call: WRITE
  • Prompt: COM(Z)
  • Line Location: BATCH+1
Function Call: WRITE
  • Prompt: LBL(Z)
  • Line Location: BATCH+2
Function Call: WRITE
  • Prompt: ACK
  • Line Location: BATCH+3
Function Call: WRITE
  • Prompt: @PSXIOF
  • Line Location: HEADING+0
Function Call: WRITE
  • Prompt: !,"TRANSMISSION #",?20,"TOT ORDERS",?36,"TOT Rx's"
  • Line Location: HEADING+1
Function Call: WRITE
  • Prompt: !,$P($P(REC,"|",2),"^"),?20,$J($P($P(REC,"|",2),"^",9),10),?34,$J($P($P(REC,"|",2),"^",10),10)
  • Line Location: HEADING+2
Function Call: WRITE
  • Prompt: "$$RX,"_C1_"|"_REC1
  • Line Location: RX+14
Function Call: WRITE
  • Prompt: "$$ZX,"_C1_"|"_REC2
  • Line Location: RX+15
Function Call: WRITE
  • Prompt: "$$LOT,"_C1_"|"_LOT
  • Line Location: RX+16
Function Call: WRITE
  • Prompt: !!,"An error has been encountered in the archive file for transmission number ",$P(^TMP("PSX",$J,ZZZ),"^",3)
  • Line Location: RX+26
Function Call: WRITE
  • Prompt: !!?5,"** End of tape detected **",!?5,"After current tape rewinds, mount next tape"
  • Line Location: EOT+0
Function Call: WRITE
  • Prompt: ^%ZOSF("REW")
  • Line Location: EOT+0
Function Call: READ
  • Variable: XX
  • Timeout: DTIME
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: "$$HDR|CMOP MASTER ARCHIVE^"_PSXTAPE
  • Line Location: HDR+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^PSX(552.1 - [#552.1] EXTERNAL^DILFD
552.41 EXTERNAL^DILFD
^PSXARC - [#555] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call