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: 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>

Entry Points

Name Comments DBIA/ICR reference
BEGDATE ;GET ARCHIVE DATE
TAPECK
MOUNT
TAPE
END
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.
P1
K5521
PEN
CLEAR

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSX(552.1 - [#552.1] Classic Fileman Calls
^PSX(552.4 - [#552.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call