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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 NOW^%DTC  FILE^DICN  $$EXTERNAL^DILFD  $$GET1^DIQ  
Kernel 2 ^%ZISC  $$IEN^XUMF  
CMOP 1 RX^PSXARC2  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
CMOP 2 PSXARC  PSXARPT  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC TAPEHDR+1, MAIN+6
^%ZISC MAIN+8
FILE^DICN RX+25
$$EXTERNAL^DILFD ONE+11, RX+4, RX+7
$$GET1^DIQ ONE+18, LBL1+2, RX+21
RX^PSXARC2 RX+17
$$IEN^XUMF ONE+17

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
  • Timeout: DTIME
  • Variable: XX
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EOT" PSXAT+1
^%ZOSF("REW" EOT
^DD("DD" TAPEHDR+1, MAIN+6, LBL1, RX+10
^PSX(552 ONE+16
^PSX(552.1 MAIN+2*, ONE+6, ONE+7, ONE+8, ONE+9, CNODE, CNODE+1, LBL, LBL+2, LBL1
, LBL1+2, LBL1+5, ACK, ACK+1
^PSX(552.4 RX, RX+1, RX+2, RX+9, RX+10, RX+11, RX+20*
^TMP("PSX" MAIN+2, ONE+5, HEADING+5, RX+24, RX+26

Label References

Name Line Occurrences
ACK LBL, LBL+2
BATCH RX+19
EOT PSXAT+1
LBL CNODE
LBL1 LBL1+5
ONE MAIN+2
PSXAT ACK+3, RX+13
READ READ

Naked Globals

Name Field # of Occurrence
^( CNODE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% TAPEHDR+1!, MAIN+6, MAIN+10!
%MT MAIN+10!, MAIN+11!
%ZIS MAIN+11!
ACK ACK+1*, BATCH+3, RX+27!
>> AGNCY ONE+16*, ONE+17
BATCT PSXARC1+3*, MAIN+3, MAIN+10!, BATCH+5*
C ONE+20!, RX+18!
C1 MAIN+11!, HEADING+6*, RX+14, RX+15, RX+16, RX+18*
COM BATCH+1, RX+27!
COM( CNODE+1*, BATCH+1
CT PSXARC1+3*, MAIN+11!
DD RX+22!, RX+25!
DIC RX+23*, RX+25!
DIC("DR" RX+23*
DIC(0 RX+24*
DO RX+22!, RX+25!
DT RX+23
DTIME READ
DUZ RX+21
I ONE+6*, ONE+7*, ONE+8*, ONE+9*, ONE+20!
I1 MAIN+9!
I21 MAIN+2, MAIN+11!, ONE+5*, ONE+6, ONE+7, ONE+8, ONE+9, CNODE, CNODE+1, LBL
, LBL+2, LBL1, LBL1+2, LBL1+5, ACK, ACK+1
I24 MAIN+11!, HEADING+5*, RX, RX+1, RX+2, RX+9, RX+10, RX+11, RX+20
IO(0 TAPEHDR+2, MAIN+1, MAIN+3, MAIN+4, MAIN+5, MAIN+7, HEADING, HEADING+1, HEADING+2, EOT
, READ
LBL BATCH+2, RX+27!
LBL( LBL+1*, LBL1+3*, LBL1+4*, BATCH+2
LEN PSXARC1+3*, MAIN+9!
LN PSXARC1+3*, MAIN+9!
LOT RX+11*, RX+16, RX+18!
NAME LBL1+2*, LBL1+3, LBL1+4, HEADING+3!, RX+21*, RX+23, RX+25!, RX+27!
NEWTAPE RX, RX+13, RX+19!, HDR+1*
PAD PSXARC1+3*, MAIN+11!
PC ONE+7*, ONE+8*, ONE+9*, ONE+20!
PG PSXARC1+3*, MAIN+9!, HEADING*, HEADING+1*
PSXAM MAIN+9!
PSXBEE MAIN+9!
PSXEOT MAIN+11!, PSXAT+1*
PSXIOF TAPEHDR+2, MAIN+9!, HEADING
PSXP MAIN+9!, RX+17
PSXPIOF MAIN+9!
PSXPIOST MAIN+9!
PSXT TAPEHDR, MAIN+9!, BATCH, BATCH+1, BATCH+2, BATCH+3, RX+14, RX+15, RX+16, PSXAT+1
, EOT, HDR
PSXTAPE TAPEHDR, MAIN+1, MAIN+11!, RX+23, READ+1*, HDR
PSXTBS MAIN+9!
PSXTIOF MAIN+10!
PSXTPAR MAIN+10!
REC ONE+6*, ONE+7*, ONE+8*, ONE+9*, ONE+11*, ONE+16, ONE+18*, ONE+19*, BATCH, HEADING+2
, RX+27!
REC1 RX+1*, RX+4*, RX+14, RX+15, RX+18!
REC2 RX+2*, RX+7*, RX+15, RX+18!
RXCT PSXARC1+3*, MAIN+4, MAIN+10!, RX+14*
T1 MAIN+5, MAIN+10!, BATCH*, BATCH+1*, BATCH+2*, BATCH+3*
T2 MAIN+5, MAIN+10!, RX+14*, RX+15*, RX+16*
X PSXARC1+3*, MAIN+11!, ONE+15~, ONE+16*, ONE+17*, ONE+18!, RX+24*, RX+25!
XX MAIN+11!, READ*
Y TAPEHDR+1*, TAPEHDR+2, MAIN+6*, MAIN+7, MAIN+10!, MAIN+11!, ONE+11*, ONE+15~, ONE+18!, ONE+20!
, LBL1*, LBL1+3, LBL1+4, HEADING+3!, RX+4*, RX+7*, RX+10*, RX+11, RX+18!, RX+26
, RX+27!, PSXAT+1
Z MAIN+10!, MAIN+11!, ONE+10*, ONE+11, ONE+20!, CNODE+1*, LBL+2*, LBL1, LBL1+2, LBL1+5*
, BATCH+1*, BATCH+2*, HEADING+3!, RX*, RX+1, RX+2, RX+9, RX+10, RX+11, RX+19!
, RX+27!
Z1 MAIN+10!, ONE+10*, ONE+11, LBL+1*, LBL1+3, LBL1+4*, HEADING+3!, RX+3*, RX+4, RX+6*
, RX+7, RX+18!, RX+27!
ZLOT RX+9*, RX+10, RX+11, RX+18!
ZPC MAIN+10!
ZQ MAIN+10!
ZQ1 MAIN+10!
ZZ RX+3*, RX+4, RX+6*, RX+7, RX+18!
ZZZ MAIN+2*, MAIN+10!, ONE+5, HEADING+5, RX+24, RX+26
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All