Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSOMGRP2

Package: Outpatient Pharmacy

Routine: PSOMGRP2


Information

PSOMGRP2 ;BHAM ISC/JMB - DAILY MANAGEMENT TYPE OF PRESCRIPTIONS REPORT ; 3/19/93

Source Information

Source file <PSOMGRP2.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 NOW^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOMGREP  PSOMGRP1  

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

External References

Name Field # of Occurrence
NOW^%DTC DV+5, TOT+6

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: $J(+$P($G(^PS(59.12,PDATE,1,DIV,0)),"^",17),10)
  • Line Location: LN+3
Function Call: WRITE
  • Prompt: !?10
  • Line Location: MON+1
Function Call: WRITE
  • Prompt: $J("-------",10)
  • Line Location: MON+1
Function Call: WRITE
  • Prompt: $J("-------",12),$J("-------",10)
  • Line Location: MON+2
Function Call: WRITE
  • Prompt: !,"MON TOTAL",?10
  • Line Location: MON+3
Function Call: WRITE
  • Prompt: $J($P(M2(PRV),"^",K),10)
  • Line Location: MON+3
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+4
Function Call: WRITE
  • Prompt: $J($P(M1(PRV),"^",17),10),!
  • Line Location: MON+5
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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
DV ENPRI
LN DV+4
MON DV+2, SUB+1
PRI EN
RPT DVTOT+1
SUB DVTOT+1
TOT PRI+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DV+5, TOT+6
>> ANS ENDV+5, TOT+5
>> BEG DV*, DV+1*
>> CNT EN*, RPT+1*
>> DIV ENRPT+2, PRI*, DVDV+1, DV+2, DV+4, LNLN+1, LN+2
LN+3, SUB+2, SUB+3, SUB+4, TOT+1*, TOT+5
>> DVMN DV+1*, DV+2, LN+1, LN+3
>> EDT RPT+2, DV
IO RPT+1
IOF RPT+1, DV+5, TOT+6
IOSL DV
>> K RPT+3*, RPT+4*, RPT+5*, LN*, LN+1, LN+2, MON+1*, MON+3*, SUB+1*, SUB+2*
TOT+2*, TOT+3*
>> M1( DV+1*, DV+2*, LN+3*, MON+5
>> M2( DV+1*, DV+2*, LN+1*, MON+3, MON+4
>> PDATE DV*, DV+1, DV+2, DV+3, DV+4, LNLN+1, LN+2, LN+3
>> PG EN*, RPT+1*, PRI*
>> PRT RPT+2, DV*, SUB+1, SUB+2, TOT+1*
>> PRV DV+1*, DV+2*, MON+3, MON+4, MON+5
>> RUN TOT+6
>> S1( EN*, PRI*, LN+3*, SUB+4, TOT+5
>> S2( DV*, LN+2*, SUB+2, SUB+3
>> SDT RPT+2, DV
>> T1 PRI*, TOT+5
>> T2 PRI*, LN+2*, TOT+3, TOT+4
>> Y DV+5*, TOT+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All