Routine: PSOMGRP1

Information

PSOMGRP1 ;BHAM ISC/JMB - DAILY MANAGEMENT PRESCRIPTION COUNTS REPORT ; 4/1/93

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Outpatient Pharmacy	3	(EN,PRI)^PSOMGRP2 (EN,PRI)^PSOMGRP3 ^PSOMGRP4
VA FileMan	1	NOW^%DTC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOMGREP

Entry Points

Name	Comments	DBIA/ICR reference
EN
ENQ
RPT
PRI
DV
LN
MON	;PRINT MONTHLY TOTALS
SUB	;PRINT SUB TOTALS
TOT	;PRINT GRAND TOTALS

External References

Name	Field # of Occurrence
NOW^%DTC	DV+4, TOT+6
EN^PSOMGRP2	ENQ+1
PRI^PSOMGRP2	ENQ
EN^PSOMGRP3	ENQ+1
PRI^PSOMGRP3	ENQ
^PSOMGRP4	ENQ+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: CNT Line Location: RPT+0
Function Call: WRITE	Prompt: !!?30,"O U T P A T I E N T P H A R M A C Y M A N A G E M E N T R E P O R T",!?56,"PRESCRIPTION COUNTS",?112,"PAGE ",PG Line Location: RPT+0
Function Call: WRITE	Prompt: !!?9 Line Location: RPT+2
Function Call: WRITE	Prompt: $J($P("^^^TOT^30^60^90^>90^EQ^^TOT^TOT^MED^RX/^EQ FL/","^",K),8) Line Location: RPT+2
Function Call: WRITE	Prompt: !,"DATE",?9 Line Location: RPT+3
Function Call: WRITE	Prompt: $J($P("CAT A^CAT C^OTH^CAT^DAY^DAY^DAY^DAY^FLS^METH^RX^EQ FL^REQ^REQ^REQ","^",K),8) Line Location: RPT+3
Function Call: WRITE	Prompt: ! Line Location: RPT+4
Function Call: WRITE	Prompt: "=" Line Location: RPT+4
Function Call: WRITE	Prompt: !!!?17,"FINISHED PRINTING ON: " Line Location: DV+4
Function Call: WRITE	Prompt: Y Line Location: DV+4
Function Call: WRITE	Prompt: @IOF Condition for execution: RUN="A"&(ANS="S") Line Location: DV+4
Function Call: WRITE	Prompt: $J(+$P($G(^PS(59.12,PDATE,1,DIV,0)),"^",K),8) Line Location: LN+0
Function Call: WRITE	Prompt: !?9 Line Location: MON+1
Function Call: WRITE	Prompt: $J("-------",8) Line Location: MON+1
Function Call: WRITE	Prompt: !,"MON TOTAL",?9 Line Location: MON+2
Function Call: WRITE	Prompt: $J($P(M1(PRV),"^",K),8) Line Location: MON+2
Function Call: WRITE	Prompt: $J($S($P(M1(PRV),"^",12)=0!($P(M1(PRV),"^",14)=0):0,1:$P(M1(PRV),"^",12)/$P(M1(PRV),"^",14)),8,2) Line Location: MON+3
Function Call: WRITE	Prompt: $J($S($P(M1(PRV),"^",13)=0!($P(M1(PRV),"^",14)=0):0,1:$P(M1(PRV),"^",13)/$P(M1(PRV),"^",14)),8,2) Line Location: MON+4
Function Call: WRITE	Prompt: !?9 Line Location: SUB+1
Function Call: WRITE	Prompt: $J("=======",8) Line Location: SUB+1
Function Call: WRITE	Prompt: $J($P(S1(DIV),"^",K),8) Line Location: SUB+2
Function Call: WRITE	Prompt: $J($S($P(S1(DIV),"^",12)=0!($P(S1(DIV),"^",14)=0):0,1:$P(S1(DIV),"^",12)/$P(S1(DIV),"^",14)),8,2) Line Location: SUB+3
Function Call: WRITE	Prompt: $J($S($P(S1(DIV),"^",13)=0!($P(S1(DIV),"^",14)=0):0,1:$P(S1(DIV),"^",13)/$P(S1(DIV),"^",14)),8,2) Line Location: SUB+4
Function Call: WRITE	Prompt: !?9 Line Location: TOT+2
Function Call: WRITE	Prompt: $J("=======",8) Line Location: TOT+2
Function Call: WRITE	Prompt: !,"GR TOTAL",?9 Line Location: TOT+3
Function Call: WRITE	Prompt: $J($P(T1,"^",K),8) Line Location: TOT+3
Function Call: WRITE	Prompt: $J($S($P(T1,"^",12)=0!($P(T1,"^",14)=0):0,1:$P(T1,"^",12)/$P(T1,"^",14)),8,2) Line Location: TOT+4
Function Call: WRITE	Prompt: $J($S($P(T1,"^",13)=0!($P(T1,"^",14)=0):0,1:$P(T1,"^",13)/$P(T1,"^",14)),8,2) Line Location: TOT+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DV+4, TOT+6
^PS(59 - [#59]	RPT+1, PRI, SUB+2, TOT+1
^PS(59.12 - [#59.12]	DV, DV+3, LN, LN+1, LN+2

Label References

Name	Line Occurrences
DV	EN, ENQ+1, PRI
LN	DV+3
MON	DV+1, SUB+1
PRI	EN, ENQ
RPT	DV, TOT+1
SUB	DV, TOT+1
TOT	PRI+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DV+4, TOT+6
>> ANS	EN, ENQ, DV+4
>> BEG	DV, DV+1
>> CNT	EN, ENQ, ENQ+1, RPT, PRI*
>> DIV	RPT+1, PRI, DV, DV+1, DV+3, LN, LN+1, LN+2, SUB+2, SUB+3 , SUB+4, TOT+1
>> DVMN	DV+1*, LN+1
>> EDT	RPT+1, DV
IO	RPT
IOF	EN, RPT, DV+4, TOT+6
IOSL	DV
>> K	RPT+2, RPT+3, RPT+4, LN, LN+1, LN+2, MON+1, MON+2, SUB+1, SUB+2 , TOT+2, TOT+3
>> M1(	DV+1, LN+1, MON+2, MON+3, MON+4
>> PDATE	DV*, DV+1, DV+2, DV+3, LN, LN+1, LN+2
>> PG	EN, ENQ+1, RPT, PRI
>> PRT	RPT+1, DV, SUB+1, SUB+2, TOT+1
>> PRV	DV+1*, MON+2, MON+3, MON+4
PSOELSE	ENQ*, ENQ+1, ENQ+2!
>> RUN	DV+4, TOT+6
>> S1(	DV, LN+2, SUB+2, SUB+3, SUB+4
>> SDT	RPT+1, DV
>> T1	PRI, LN+2, TOT+3, TOT+4, TOT+5
>> Y	DV+4, TOT+6

Customize PDF page

Package: Outpatient Pharmacy