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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSXARC

Package: CMOP

Routine: PSXARC


Information

PSXARC ;BIR/HTW-CMOP Master Database Archive [ 07/14/97 1:05 PM ]

Source Information

Source file <PSXARC.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DIE  ^DIK  ^DIR  
Kernel 2 ^%ZIS  ^%ZISC  
CMOP 1 ^PSXARC1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
CMOP 1 PSXARPT  

Entry Points

Name Comments DBIA/ICR reference
P1
END
MOUNT
K5521
PURGE ; This option purges the data from files 552.1 (CMOP REFERENCE) and
; 552.4 (CMOP MASTER DATABASE). It will only purge those entries
; that have been marked as archived.
PEN
CLEAR
TAPE
TAPECK
BEGDATE ;GET ARCHIVE DATE

External References

Name Field # of Occurrence
^%ZIS TAPE+1
^%ZISC TAPE+2, PURGE+4
^DIE K5521+5
^DIK P1+5, K5521+3
^DIR BEGDATE+7, BEGDATE+17, BEGDATE+35, BEGDATE+45
^PSXARC1 TAPE+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no transmissions to be archived.",!
  • Line Location: BEGDATE+4
Function Call: WRITE
  • Prompt: !!,"You must enter a month",!!
  • Line Location: BEGDATE+10
Function Call: WRITE
  • Prompt: !!,"You may not archive the current month's data.",!!
  • Line Location: BEGDATE+12
Function Call: WRITE
  • Prompt: !!," You may not archive a future month's data",!!
  • Line Location: BEGDATE+14
Function Call: WRITE
  • Prompt: !?15,"CMOP MASTER DATABASE "_$S($G(PSXPURGE)=1:"PURGE ",1:"ARCHIVE"),!!
  • Line Location: BEGDATE+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEGDATE+34
Function Call: WRITE
  • Prompt: !!,"No closed transmissions found for the month requested.",!!
  • Line Location: BEGDATE+36
Function Call: WRITE
  • Prompt: !,"Total transmissions to be ",$S($G(PSXPURGE)=1:"purged : ",1:"archived: "),TOTBAT
  • Line Location: BEGDATE+37
Function Call: WRITE
  • Prompt: !,"Total orders to be ",$S($G(PSXPURGE)=1:"purged : ",1:"archived : "),TOTORD
  • Line Location: BEGDATE+38
Function Call: WRITE
  • Prompt: !,"Total Rx's to be ",$S($G(PSXPURGE)=1:"purged : ",1:"archived : "),TOTRX
  • Line Location: BEGDATE+39
Function Call: WRITE
  • Prompt: !!
  • Line Location: BEGDATE+42
Function Call: WRITE
  • Prompt: !!,"Please mount tape #: ",PSXTNO
  • Line Location: MOUNT+0
Function Call: READ
  • Timeout: DTIME
  • Variable: XX
  • Line Location: MOUNT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: TAPE+0
Function Call: WRITE
  • Prompt: !,"You must select a MAGTAPE device! "
  • Line Location: TAPE+2
Function Call: WRITE
  • Prompt: !,"Tape drive not online. Please correct and try again.",!
  • Line Location: TAPE+4
Function Call: WRITE
  • Prompt: @%MT("REW")
  • Line Location: TAPE+6
Function Call: WRITE
  • Prompt: !,"Transmission# "_BATCH_" has not been archived yet and may not be purged."
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: !,"Transmission #: "_BATCH_" has been purged."
  • Line Location: K5521+6
Routine Call
  • DIE
  • Line Location:
    • K5521+5
Routine Call
  • DIR
  • Line Location:
    • BEGDATE+7
    • BEGDATE+17
    • BEGDATE+35
    • BEGDATE+45
Routine Call
  • %ZIS
  • Line Location:
    • TAPE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("MAGTAPE" TAPE+3
^%ZOSF("MTONLINE" TAPE+4
^DD("DD" BEGDATE+11
^PSX(552.1 BEGDATE+2, BEGDATE+23, BEGDATE+24, BEGDATE+26, BEGDATE+27!, BEGDATE+28, BEGDATE+29, P1+3, K5521+1, K5521+2!
^PSX(552.4 BEGDATE+30, P1+2, P1+4!
^PSXARC("B" K5521+4
^PSXARC("C" TAPECK
^TMP("PSX" BEGDATE+1!, BEGDATE+32*, BEGDATE+36, PURGE+3, PURGE+6!

Label References

Name Line Occurrences
BEGDATE BEGDATE+9, BEGDATE+10, BEGDATE+12, BEGDATE+14, BEGDATE+19, BEGDATE+20, BEGDATE+36
CLEAR BEGDATE+10, BEGDATE+12, BEGDATE+14, BEGDATE+19, BEGDATE+20
END BEGDATE+4, BEGDATE+8, BEGDATE+18, BEGDATE+45, TAPE+1, TAPE+7, PURGE+7
K5521 P1+1, P1+2
P1 PURGE+3
PSXARC PEN
PURGE TAPECK+1
TAPE TAPE+2, TAPE+4
TAPECK TAPECK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %MT("REW" TAPE+6
>> %ZIS("A" TAPE*, TAPE+1!
>> %ZIS("B" TAPE*
ANS BEGDATE+23, BEGDATE+24, BEGDATE+34, BEGDATE+35*, BEGDATE+40!
BAT BEGDATE+26*, BEGDATE+31*, BEGDATE+32, BEGDATE+40!, END!
BATCH BEGDATE+24*, BEGDATE+26, BEGDATE+27, BEGDATE+32, BEGDATE+33, BEGDATE+40!, END!, P1*, P1+3, K5521+4
, K5521+6
CT BEGDATE+1*, BEGDATE+40!
DA END!, P1+5*, K5521+3*, K5521+5*!
DIE END!, K5521+5*!
DIK P1+5*!, K5521+3*!
DIR BEGDATE+7!, BEGDATE+17!, BEGDATE+35!, BEGDATE+40!, BEGDATE+45!, END!, CLEAR!
DIR("?" BEGDATE+44*
DIR("A" BEGDATE+7*, BEGDATE+15*, BEGDATE+35*, BEGDATE+43*
DIR("B" BEGDATE+5*, BEGDATE+16*, BEGDATE+43*
DIR(0 BEGDATE+7*, BEGDATE+16*, BEGDATE+35*, BEGDATE+44*
DIRUT BEGDATE+8, BEGDATE+18, BEGDATE+45, END!, CLEAR!
DR END!, K5521+5*!
DT BEGDATE+3
DTIME MOUNT+1
DTOUT BEGDATE+9, BEGDATE+19, BEGDATE+35, END!, CLEAR!
DUOUT BEGDATE+9, BEGDATE+19, BEGDATE+35, END!, CLEAR!
I BEGDATE+40!, END!
I521 PURGE+5!, P1*, P1+3, K5521, K5521+1, K5521+2, K5521+3
I524 PURGE+5!, P1*, P1+1, P1+2, P1+4, P1+5
I5521 BEGDATE+26*, BEGDATE+27, BEGDATE+28, BEGDATE+29, BEGDATE+30, BEGDATE+31, BEGDATE+32, BEGDATE+40!, END!
I5524 BEGDATE+30*, BEGDATE+32, BEGDATE+40!, END!
I555 PURGE+5!, K5521+4*, K5521+5
IO TAPE+3
IO(0 MOUNT, TAPE+4
>> IOBS TAPE+3
IOF BEGDATE+34, BEGDATE+47, TAPE+3
IOM TAPE+3
>> IOPAR TAPE+3
IOST BEGDATE+34, TAPE+2
LEN BEGDATE+1*, BEGDATE+33*, BEGDATE+40!
PAD BEGDATE+40!, END!
PAD1 END!
POP TAPE+1, END!
PSX BEGDATE+40!, END+1!
PSXAM TAPE+3*, TAPE+4!
PSXB BEGDATE+11*, BEGDATE+15, BEGDATE+40!, END+1!, CLEAR!
PSXBEE BEGDATE+11*, BEGDATE+12, BEGDATE+14, BEGDATE+23, BEGDATE+47, PURGE+5!, CLEAR!
PSXD BEGDATE+11*, BEGDATE+23*, BEGDATE+24, BEGDATE+26, BEGDATE+27, BEGDATE+40!, END+1!, CLEAR!
PSXE END+1!
PSXEE END+1!
PSXERR MOUNT+1*, TAPE+1*, TAPE+4*, TAPE+5!
PSXIOF BEGDATE+47*, PURGE+5!
PSXPURGE BEGDATE+7, BEGDATE+15, BEGDATE+22, BEGDATE+31, BEGDATE+37, BEGDATE+38, BEGDATE+39, BEGDATE+44, TAPECK+1, END+1!
, PURGE+5!, PEN*
>> PSXRPT MOUNT, TAPE+7
PSXT TAPE+3*, TAPE+4!, TAPE+6
PSXTAPE BEGDATE+47*, TAPECK*, PURGE+5!
PSXTBS TAPE+3*, TAPE+4!
PSXTIOF TAPE+3*, TAPE+4!
>> PSXTNO MOUNT
PSXTPAR TAPE+3*, TAPE+4!
START BEGDATE+2*, BEGDATE+5, BEGDATE+40!, CLEAR!
START1 BEGDATE+2*, BEGDATE+4, END+1!, CLEAR!
TODAY BEGDATE+3*, BEGDATE+4, BEGDATE+12, BEGDATE+14, END+1!, CLEAR!
TOTBAT BEGDATE+25*, BEGDATE+37, BEGDATE+41!
TOTORD BEGDATE+28*, BEGDATE+38, BEGDATE+41!
TOTRX BEGDATE+29*, BEGDATE+39, BEGDATE+41!
XX MOUNT+1*, END+1!
Y BEGDATE+8, BEGDATE+10, BEGDATE+11, BEGDATE+18, BEGDATE+20, BEGDATE+41!, BEGDATE+45, TAPE+4!, END+1!
Z PURGE+3*, PURGE+6!
ZX PURGE+6!
ZZ PURGE+3*, PURGE+6!, P1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All