Routine: PSOCMOPR

Information

PSOCMOPR ;BHAM ISC/PDW - CMOP CONTROLLED SUBSTANCE RX DISPENSE REPORT ;11/04/2020

Name	Comments	DBIA/ICR reference
S	;ENTRY
CNT1	;Continue point 1
DATE	; ask date range
DEQUEUE	; TASKING RE-ENTRY POINT AND PROCESSING
COMPUTE	; Deque point for computing ; store in ^XTMP(PSOSUB, for printing queue
RX	; check & gather RX,Fills data
CMOP	;loop CMOP event for fill, status, and facility ; sets TRANDA for XTMP subscript
PRINT	; print entry point
BYDATE	; print report by release date
PRTDATE	; print by date output
BYDRUG	; pull in & print byDrug
PRTDRUG	; print by Drug
EXIT	;EXIT
PG	;EP Page controller
PGHDR	; Write Page Header
DIVHDR	; write division header
COLUMN	; setup column spacing
C1	; setup column spacing for byDate
D1	; setup column spacing for byDrug
CLEAR	; clear ^XTMP

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"A Pharmacy Division Must Be Selected!",! Line Location: S+1
Function Call: WRITE	Prompt: !!,"This report is designed for a 132-column format.",! Line Location: DATE+10
Function Call: WRITE	Prompt: !,"It is recommended that this report be queued.",!! Line Location: DATE+11
Function Call: WRITE	Prompt: !!,?5,"No Data To Report",!! Line Location: PRINT+6
Function Call: WRITE	Prompt: !!,"& Indicates eRx Prescription" Line Location: PRINT+9
Function Call: WRITE	Prompt: !!,?3,DRUG Line Location: BYDRUG+5
Function Call: WRITE	Prompt: @IOF Line Location: PGHDR+1
Function Call: WRITE	Prompt: !,"CMOP Controlled Substance Prescription Dispensing Report",?(IOM-12),"Page: ",PSOPG("PG") Line Location: PGHDR+3
Function Call: WRITE	Prompt: !,BDATE," through ",EDATE Line Location: PGHDR+4
Function Call: WRITE	Prompt: !!,?((IOM-$L(X))\2),X,!! Line Location: DIVHDR+2
Function Call: WRITE	Prompt: !,"Release Date",?C1,"Rx#",?C2,"Patient",?C3,"CMOP",?C4,"CMOP" Line Location: DIVHDR+4
Function Call: WRITE	Prompt: !,?C3,"STATUS",?C4,"Facility",! Line Location: DIVHDR+5
Function Call: WRITE	Prompt: "-" Line Location: DIVHDR+6
Function Call: WRITE	Prompt: !,"Release Date",?D1,"Rx#",?D2,"QTY",?D3,"Patient",?D4,"CMOP",?D5,"CMOP" Line Location: DIVHDR+8
Function Call: WRITE	Prompt: !,?D4,"STATUS",?D5,"Facility",! Line Location: DIVHDR+9
Function Call: WRITE	Prompt: "-" Line Location: DIVHDR+10
Function Call: WRITE	Prompt: !,?3,DRUG Line Location: DIVHDR+11