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

Package: CMOP

Routine: PSXCSDC2


Information

PSXCSDC2 ;BIR/JMB-Drug Cost by Drug Report-CONTINUED ;[ 04/08/97 2:06 PM ]

Source Information

Source file <PSXCSDC2.m>

Entry Points

Name Comments DBIA/ICR reference
SUBDV ;Division total line
SUB ;Facility total line

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PSXSLN,!,"DIVISION TOTAL",?PSXT1,$J($P(PSXSUB(PSXDV),"^"),6),?PSXT2,$J($P(PSXSUB(PSXDV),"^",2),6),?PSXT3,$J($P(PSXSUB(PSXDV),"^",3),6),?PSXT4,$J($P(PSXSUB(PSXDV),"^",4),10,2),?PSXT5
  • Line Location: SUBDV+1
Function Call: WRITE
  • Prompt: $J(PSXAVG,10,2)
  • Line Location: SUBDV+2
Function Call: WRITE
  • Prompt: ?PSXT6,$J(PSXAVCST,8,3)
  • Line Location: SUBDV+3
Function Call: WRITE
  • Prompt: $J(PSXAVG,10,2)
  • Line Location: SUB+5
Function Call: WRITE
  • Prompt: ?PSXT6,$J(PSXAVCST,8,3)
  • Line Location: SUB+6
Function Call: WRITE
  • Prompt: !,PSXSLN,!,"FACILITY TOTAL",?PSXT1,$J($P(PSXTOT,"^"),6),?PSXT2,$J($P(PSXTOT,"^",2),6)
  • Line Location: SUB+7
Function Call: WRITE
  • Prompt: ?PSXT3,$J($P(PSXTOT,"^",3),6),?PSXT4,$J($P(PSXTOT,"^",4),10,2),?PSXT5
  • Line Location: SUB+8
Function Call: WRITE
  • Prompt: $J(PSXAVG,10,2)
  • Line Location: SUB+8
Function Call: WRITE
  • Prompt: ?PSXT6,$J(PSXAVCST,8,3)
  • Line Location: SUB+9
Info |  Source |  Entry Points |  Interaction Calls