Routine: PSOARCTG

Information

PSOARCTG ;BHAM ISC/LGH - gather tape info ; 07/07/92

Name	Comments	DBIA/ICR reference
AC
MA
END
Q
CMOP	;Called by ACT+1^PSOARX Prints CMOP Data for "Display Archived Rx's"
C1
C2
HD1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"CMOP EVENT LOG" Line Location: C1+0
Function Call: WRITE	Prompt: !,"#",?5,"TRANS #",?20,"RX REF",?30,"STATUS",?40,"SHIP DATE",?52,"CARRIER",?76,"PACKAGE ID",?100,"REMARKS" Line Location: C1+1
Function Call: WRITE	Prompt: ! Line Location: C1+2
Function Call: WRITE	Prompt: "=" Line Location: C1+2
Function Call: WRITE	Prompt: !!,"CMOP LOT#/EXPIRATION DATE LOG" Line Location: C2+0
Function Call: WRITE	Prompt: !,"#",?15,"LOT #",?49,"EXPIRATION DATE",?70,"RX REF" Line Location: C2+1
Function Call: WRITE	Prompt: ! Line Location: C2+2
Function Call: WRITE	Prompt: "=" Line Location: C2+2
Function Call: WRITE	Prompt: @PSOACPF,?(66-($L(PSOACDS)\2)),PSOACDS,?112,$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3),?122,"PAGE ",PSOAPG Line Location: HD1+0
Function Call: WRITE	Prompt: ! Line Location: HD1+0