Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSOMGMN1

Package: Outpatient Pharmacy

Routine: PSOMGMN1


Information

PSOMGMN1 ;BHAM ISC/JMB - MONTHLY MANAGEMENT PRESCRIPTION COUNTS REPORT ; 1/30/93

Source Information

Source file <PSOMGMN1.m>

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

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: !,$E($P(PRV,"^",2),4,5)_"/"_$E($P(PRV,"^",2),2,3),?9
  • Line Location: MON+1
Function Call: WRITE
  • Prompt: $J($P(M1(PRV),"^",K),8)
  • Line Location: MON+1
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+2
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+3
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
Info |  Source |  Entry Points |  Interaction Calls