Routine: PSOCMOPR

Information

PSOCMOPR ;BHAM ISC/PDW - CMOP CONTROLLED SUBSTANCE RX DISPENSE REPORT ; 05 Nov 1999 9:39 AM

Source Information

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	5	(,DD)^%DT C^%DTC ^DIC $$GET1^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Outpatient Pharmacy	1	^PSOLSET

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO CMOP CS RX DISPENSE REPORT

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	DATE+2, DATE+5
DD^%DT	DATE+7, DATE+8, PRTDATE+5, PRTDRUG+5
C^%DTC	COMPUTE+3
^%ZIS	DATE+14
^%ZISC	EXIT+5
^%ZTLOAD	DATE+23
^DIC	S+15
$$GET1^DIQ	RX+8, RX+9, RX+13, RX+18, RX+23, RX+24, RX+25, RX+26, CMOP+12, PRTDATE+7 , PRTDRUG+6
^DIR	S+9, CNT1+4, PG+4
^PSOLSET	S+1

Interaction Calls

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: !,DATE,?C1,RX_" ("_FILL_")",?C2,PAT,?C3,ST,?C4,FAC,!,DRUG,?C5,"QTY: ",QTY,! Line Location: PRTDATE+10
Function Call: WRITE	Prompt: !!,?3,DRUG Line Location: BYDRUG+5
Function Call: WRITE	Prompt: !,DATE,?D1,RX,?D2,QTY,?D3,PAT,?D4,ST,?D5,FAC Line Location: PRTDRUG+9
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
Routine Call	DIC Line Location: S+15
Routine Call	DIR Line Location: S+9 CNT1+4 PG+4
Routine Call	%ZIS Line Location: DATE+14

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
^PSX(550.2 - [#550.2]	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DATE+5
^PS(59 - [#59]	S+4
^PSRX - [#52]	RX+2, RX+3, RX+15, CMOP+6, CMOP+8
^PSRX("AD"	COMPUTE+8, COMPUTE+9, COMPUTE+10
^XTMP(	COMPUTE+2!, COMPUTE+4, RX+29, RX+30*, PRINT+5, PRINT+9!, BYDATE+2, BYDATE+4, BYDATE+5, PRTDATE+2 , BYDRUG+2, BYDRUG+4, BYDRUG+6, BYDRUG+7, PRTDRUG+2, CLEAR+2!

Label References

Name	Line Occurrences
BYDATE	PRINT+7
BYDRUG	PRINT+8
CMOP	RX+4
CNT1	S+5
COLUMN	PRINT+3
COMPUTE	DEQUEUE+1
DIVHDR	BYDATE+3, BYDRUG+3, PGHDR+5
EXIT	S+1, S+10, CNT1+5, DATE+3, DATE+6, DATE+14, DATE+20, DEQUEUE+2, PRINT+5
PG	PRTDATE+9, PRTDRUG+7
PGHDR	PRINT+4
PRINT	DEQUEUE+1
PRTDATE	BYDATE+5
PRTDRUG	BYDRUG+7
RX	COMPUTE+10
S	S+13

Name	Field # of Occurrence
^(	CMOP+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1!, DATE+2*, DATE+5!
%DT("A"	DATE+2, DATE+5
%DT("B"	DATE+5*
%DT(0	DATE+2, DATE+4
%ZIS	DATE+13!*
BDATE	DATE+8*, EXIT+1!, PGHDR+4
C1	PRTDATE+10, EXIT+1!, DIVHDR+4, C1+1*
C2	PRTDATE+10, EXIT+1!, DIVHDR+4, C1+1*
C3	PRTDATE+10, EXIT+1!, DIVHDR+4, DIVHDR+5, C1+1*
C4	PRTDATE+10, EXIT+1!, DIVHDR+4, DIVHDR+5, C1+1*
C5	PRTDATE+10, EXIT+1!, C1+1*
C6	EXIT+1!
CMOP	EXIT+1!
D1	PRTDRUG+9, EXIT+1!, DIVHDR+8, D1+2*
D2	PRTDRUG+9, EXIT+1!, DIVHDR+8, D1+2*
D3	PRTDRUG+9, EXIT+1!, DIVHDR+8, D1+2*
D4	PRTDRUG+9, EXIT+1!, DIVHDR+8, DIVHDR+9, D1+2*
D5	PRTDRUG+9, EXIT+1!, DIVHDR+8, DIVHDR+9, D1+2*
DATE	PRTDATE+5, PRTDATE+10, PRTDRUG+5, PRTDRUG+9, EXIT+1!
DEA	RX+9*, RX+10, EXIT+1!
DIC	S+14!, S+15*, S+17!
DIC(0	S+15*
DIR	S+6!, S+9!, CNT1+1!, CNT1+4!, PG+4!
DIR("A"	S+7, CNT1+2
DIR("B"	S+8, CNT1+3
DIR(0	S+6, CNT1+1, PG+4*
>> DIRUT	S+10, CNT1+5, PG+4
DIV	RX+13, RX+18, RX+29, RX+30, PRINT+1!, BYDATE+2, BYDATE+4, BYDATE+5, PRTDATE+2, BYDRUG+2 , BYDRUG+4, BYDRUG+6, BYDRUG+7, PRTDRUG+2, EXIT+1!, PGHDR+5, DIVHDR+1
DIVDA	RX+13, RX+16, RX+18, RX+20, EXIT+1!
DRUG	RX+23, RX+29, RX+30, PRTDATE+4, PRTDATE+10, BYDRUG+4*, BYDRUG+5, BYDRUG+6, BYDRUG+7, PRTDRUG+2 , EXIT+1!, DIVHDR+11
DRUGDA	RX+8*, RX+9, RX+23, EXIT+2!
DT	DATE+5, COMPUTE+3, COMPUTE+4
EDATE	DATE+7*, EXIT+2!, PGHDR+4
END	DATE+5*, EXIT+2!
EVDA	CMOP+5, CMOP+6, CMOP+13!, EXIT+4!
EVENT	CMOP+8*, CMOP+9, CMOP+11, EXIT+2!
EVTRDA	CMOP+2, CMOP+6, CMOP+7, CMOP+8, CMOP+13!
FAC	RX+29, RX+30, CMOP+3, CMOP+12, PRTDATE+4, PRTDATE+10, PRTDRUG+4, PRTDRUG+9, EXIT+2!
FIL	EXIT+2!
FILL	COMPUTE+10, RX+13, RX+15, RX+29, RX+30, CMOP+6, PRTDATE+4, PRTDATE+10, PRTDRUG+4*, PRTDRUG+6 , EXIT+4!
FLD	EXIT+2!
>> I	S+4*
IO	PGHDR+1
IO("Q"	DATE+13!, DATE+20, DATE+23!
IOF	PGHDR+1
IOM	PGHDR+3, DIVHDR+2, DIVHDR+6, DIVHDR+10
IOP	DATE+13!, DATE+14*!
IOSL	PG+3
IOST	PG+4
PAT	RX+24, RX+29, RX+30, PRTDATE+3, PRTDATE+6, PRTDATE+10, PRTDRUG+3, PRTDRUG+6*, PRTDRUG+9, EXIT+2!
PATDA	RX+25*, RX+26, EXIT+2!
>> POP	DATE+14
PSOION	DATE+14!, DATE+15!
PSOJOB	DATE+17*, DATE+18, EXIT+4!
PSOPAR	S+1, EXIT+4!
PSOPG	PRINT+1!, EXIT+2!
PSOPG("PG"	PGHDR+2*, PGHDR+3, DIVHDR+11
PSOQUIT	COMPUTE+2!, PRINT+1!, PRINT+2, BYDATE+2, BYDATE+4, BYDATE+5, PRTDATE+9, BYDRUG+2, BYDRUG+4, BYDRUG+6 , BYDRUG+7, PRTDRUG+7, EXIT+3!, PG+2, PG+4
PSOSUB	DATE+18*, COMPUTE+2, COMPUTE+4, RX+29, RX+30, PRINT+5, PRINT+9, BYDATE+2, BYDATE+4, BYDATE+5 , PRTDATE+2, BYDRUG+2, BYDRUG+4, BYDRUG+6, BYDRUG+7, PRTDRUG+2, EXIT+2!
PSUFQ	EXIT+4!
PSUIOP	EXIT+4!
PSUNS	EXIT+4!
PSURC	EXIT+4!
PSURP	EXIT+4!
PSURX	EXIT+4!
QDIV	S+5, S+11, S+13, S+16*, RX+20, EXIT+3!
QSORT	CNT1+6*, RX+29, PRINT+7, PRINT+8, EXIT+3!, DIVHDR+3, DIVHDR+7
QTY	RX+13, RX+16, RX+29, RX+30, PRTDATE+3, PRTDATE+10, PRTDRUG+3, PRTDRUG+9, EXIT+3!
>> RELDT	RX+13, RX+17, RX+22*, RX+29, RX+30
RX	COMPUTE+9, COMPUTE+10, RX+2, RX+3, RX+8, RX+13, RX+15, RX+24, RX+25, RX+29 , RX+30, CMOP+6, CMOP+8, PRTDATE+4, PRTDATE+7, PRTDATE+10, PRTDRUG+4, PRTDRUG+6*, PRTDRUG+9, EXIT+3!
RXF	RX+15*, RX+16, RX+17, EXIT+2!
SCANBDT	DATE+4*, DATE+8, COMPUTE+5, EXIT+3!
SCANDT	COMPUTE+5, COMPUTE+8, COMPUTE+9, COMPUTE+10, BYDATE+4, BYDATE+5, PRTDATE+2, PRTDATE+5, BYDRUG+6, BYDRUG+7 , PRTDRUG+2, PRTDRUG+5, EXIT+3!
SCANEDT	DATE+7*, COMPUTE+8, EXIT+3!
SSN	RX+26, RX+29, RX+30, PRTDATE+3, PRTDATE+6, PRTDRUG+3*, PRTDRUG+6, EXIT+3!
ST	RX+29, RX+30, CMOP+3, CMOP+9, CMOP+10, PRTDATE+3, PRTDATE+10, PRTDRUG+3*, PRTDRUG+9, EXIT+3!
TRANDA	RX+5, RX+29, RX+30, CMOP+2, CMOP+11, CMOP+12, BYDATE+5, PRTDATE+2, BYDRUG+7, PRTDRUG+2 , EXIT+3!
U	COMPUTE+4, RX+16, RX+17, RX+29, RX+30, CMOP+6, CMOP+9, CMOP+11, PRTDATE+3, PRTDATE+4 , PRTDRUG+3, PRTDRUG+4
>> X	S+4, S+5, DATE+3, DATE+6, DATE+21, COMPUTE+4, PRTDATE+2, PRTDATE+3, PRTDATE+4, PRTDRUG+2 , PRTDRUG+3, PRTDRUG+4, DIVHDR+1, DIVHDR+2, DIVHDR+6, DIVHDR+10, CLEAR+1, CLEAR+2*
X1	COMPUTE+3*, EXIT+4!
X2	COMPUTE+3*, EXIT+4!
>> Y	S+11, S+13, S+16, CNT1+6, DATE+4, DATE+5, DATE+7, DATE+8, PRTDATE+5, PRTDRUG+5 , CLEAR+1*, CLEAR+2
>> ZTDESC	DATE+22*
>> ZTQUEUED	EXIT+5
>> ZTREQ	EXIT+5*
>> ZTRTN	DATE+22*
>> ZTSAVE(	DATE+21*
ZTSK	DATE+13!, DATE+23!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCMOPR

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: