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

Package: Outpatient Pharmacy

Routine: PSOMGRP1


Information

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

Source Information

Source file <PSOMGRP1.m>

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

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOMGREP  

Entry Points

Name Comments DBIA/ICR reference
EN
RPT
LN
PRI
TOT ;PRINT GRAND TOTALS
ENQ
MON ;PRINT MONTHLY TOTALS
DV
SUB ;PRINT SUB 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^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^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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All