Routine: PSXARC

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

Package	Total	Caller Graph
CMOP	1	PSXARPT

Entry Points

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

Customize PDF page

Package: CMOP

Routine: PSXARC

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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