Routine: ASMTLOG2

Information

ASMTLOG2 ;PRINT LISTS OF CARTRIDGES ALREADY MAILED [ 11/21/85 3:56 PM ]

Name	Comments	DBIA/ICR reference
AAPC	;;APC
YN
LABEL
QUE1
LINE
B2C
HEADING
B2A
B2B
A1
A3
A2
A5
A4
PRQ
SBRS
QUEND
END
AG	;;REG
ACHS	;;CHS
PRQ1
START	;PRINT LIST OF MAILED CARTRIDGES
QUE
B1
B2
B3

Name	Line Occurrences
Function Call: WRITE	Prompt: "RPMS DATA CARTRIDGE MAILING LISTS......",!!! Line Location: A1+0
Function Call: WRITE	Prompt: !!,"Enter the BEGINNING DATE for this report: " Line Location: A2+0
Function Call: WRITE	Prompt: !!,*7,"Do not use future dates." Line Location: A2+0
Function Call: WRITE	Prompt: !!,"Enter the ENDING DATE for this report: " Line Location: A3+0
Function Call: WRITE	Prompt: !!,*7,"Do not use future dates." Line Location: A3+0
Function Call: WRITE	Prompt: !!,*7,"INVALID ENTRY - The END is before the BEGINNING." Line Location: A4+0
Function Call: WRITE	Prompt: ?5,$P(^AUTTLOC(ASM(1),0),"^",1),?42,$P($T(@$P(ASM("GL"),"^",1)),";;",2),?56,$P(ASM("GL"),"^",5),! Line Location: B3+0
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: READ	Timeout: USTO Variable: Y Line Location: SBRS+0
Function Call: READ	Timeout: 5 Variable: Y Line Location: SBRS+0
Function Call: WRITE	Prompt: !!,"Enter a ""Y"" for YES or an ""N"" for NO." Line Location: YN+0
Function Call: WRITE	Prompt: @IOF Line Location: HEADING+0
Function Call: WRITE	Prompt: !!,USER,?80-$L(LOC)\2,LOC,?72,"page ",PG,!,TME,?80-$L(TITLE)\2,TITLE Line Location: HEADING+3
Function Call: WRITE	Prompt: ?78-$L(Y),Y,!!!,"THE FOLLOWING CARTRIDGES WERE MAILED ON: ",ASM("DT"),! Line Location: HEADING+3
Function Call: WRITE	Prompt: !!,?15,"FACILITY",?42,"DATA",?52,"# OF RECORDS" Line Location: LABEL+0
Function Call: WRITE	Prompt: !,AG("PRL"),! Line Location: LINE+0

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	PRQ, PRQ1!, QUE1*
^AUTTLOC - [#9999999.06]	B3
^AZOTXST(	B2C+1
^AZOTXST("AC"	B2, B2A, B2B, B2C
^DD("DD"	B2, HEADING+3
^DD("SITE"	HEADING+1
^DIC(3 - [#3]	HEADING+2

Name	Field # of Occurrence
^("END"	PRQ, QUE1*
^("START"	QUE1*

Name	Field # of Occurrence
$T(@$PIECE^2;4(8)	B3