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: PSOMGMN2

Package: Outpatient Pharmacy

Routine: PSOMGMN2


Information

PSOMGMN2 ;BHAM ISC/JMB - MONTHLY MANAGEMENT TYPE OF PRESCRIPTIONS REPORT ; 1/30/93

Source Information

Source file <PSOMGMN2.m>

Entry Points

Name Comments DBIA/ICR reference
EN
RPT ;HEADER
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+1
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",!?52,"TYPE OF PRESCRIPTIONS FILLED",?124,"PAGE ",PG
  • Line Location: RPT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: RPT+3
Function Call: WRITE
  • Prompt: $J($P("^^^FEE^^^TOT^^^WD^PARTIC","^",K),10)
  • Line Location: RPT+3
Function Call: WRITE
  • Prompt: $J("% OF FEE",12),!,"DATE",?10
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: $J($P("FEE^STAFF^& STAFF^NEW^REFILL^FILLS^WD^MAIL^& MAIL^PHARM","^",K),10)
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: $J("FL BY VA",12),$J("INVEST",10),!
  • Line Location: RPT+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: RPT+5
Function Call: WRITE
  • Prompt: !!!?17,"FINISHED PRINTING ON: "
  • Line Location: DV+5
Function Call: WRITE
  • Prompt: Y,@IOF
  • Line Location: DV+5
Function Call: WRITE
  • Prompt: !,$E($P(PRV,"^",2),4,5)_"/"_$E($P(PRV,"^",2),2,3),?10
  • Line Location: MON+1
Function Call: WRITE
  • Prompt: $J($P(M2(PRV),"^",K),10)
  • Line Location: MON+1
Function Call: WRITE
  • Prompt: $J($FN($S($P(M2(PRV),"^",3)=0&($P(M2(PRV),"^",13))=0:0,$P(M2(PRV),"^",3)=0:100,$P(M2(PRV),"^",13)=0:0,1:($P(M2(PRV),"^",3)/($P(M2(PRV),"^",3)+$P(M2(PRV),"^",13)))*100),"",1),12)
  • Line Location: MON+2
Function Call: WRITE
  • Prompt: $J($P(M1(PRV),"^",17),10)
  • Line Location: MON+3
Function Call: WRITE
  • Prompt: !?10
  • Line Location: SUB+1
Function Call: WRITE
  • Prompt: $J("=======",10)
  • Line Location: SUB+1
Function Call: WRITE
  • Prompt: F
  • Condition for execution: 'PRT $J("=======",12),$J("=======",10) W !,$S('PRT:"DIV TOTAL",1:$E($P(^PS(59,DIV,0),"^"),1,8)),?10
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: $J($P(S2(DIV),"^",K),10)
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: $J($FN($S($P(S2(DIV),"^",3)=0&($P(S2(DIV),"^",13))=0:0,$P(S2(DIV),"^",3)=0:100,$P(S2(DIV),"^",13)=0:0,1:($P(S2(DIV),"^",3)/($P(S2(DIV),"^",3)+$P(S2(DIV),"^",13)))*100),"",1),12)
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: $J($P(S1(DIV),"^",17),10)
  • Line Location: SUB+4
Function Call: WRITE
  • Prompt: !!?10
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: $J("=======",10)
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: $J("=======",12),$J("=======",10),!,"GR TOTAL",?10
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: $J($P(T2,"^",K),10)
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: $J($FN($S($P(T2,"^",3)=0&($P(T2,"^",13)=0):0,$P(T2,"^",3)=0:100,$P(T2,"^",13)=0:0,1:($P(T2,"^",3)/($P(T2,"^",3)+$P(T2,"^",13)))*100),"",1),12)
  • Line Location: TOT+4
Info |  Source |  Entry Points |  Interaction Calls