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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGSCT0

Package: Inpatient Medications

Routine: PSGSCT0


Information

PSGSCT0 ;BIR/CML3-PRINT COST PER SERVICE REPORT ;14 JUL 94 / 9:36 AM

Source Information

Source file <PSGSCT0.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Inpatient Medications 1 $$ENDTC^PSGMI  
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: 1

Package Total Caller Graph
Inpatient Medications 1 PSGSCT  

Entry Points

Name Comments DBIA/ICR reference
START ;
RUN ;
TOTLS ;
DONE ;
WRITE ;
NP ;
HDR ;

External References

Name Field # of Occurrence
NOW^%DTC START+1
$$ENDTC^PSGMI START+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?23,"*** NO SERVICE COST DATA FOUND ***"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !?9,"*** A SERVICE COULD NOT BE FOUND FOR THE FOLLOWING WARD(S) ***",!
  • Line Location: RUN+3
Function Call: WRITE
  • Prompt: !!,LN2,!!?15,"TOTALS =>",?35,$J(TCNT,9,0),?52,$J(TCST,12,2),?72,$J(TCPU,6,2)
  • Line Location: TOTLS+1
Function Call: WRITE
  • Prompt: !?2,SN,?35,$J(CNT,9,0),?52,$J(CST,12,2),?72,$J(CPU,6,2),!
  • Line Location: WRITE+1
Function Call: READ
  • Formatting: !
  • Prompt: "'^' TO STOP "
  • Variable: NP
  • Timeout: DTIME
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: NP="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?24,"UNIT DOSE COST PER SERVICE REPORT",?63,PSGPDT,!?25,"FROM ",STRT," THROUGH ",STOP,!!?35,"TOTAL UNITS",?56,"TOTAL",?68,"AVERAGE COST",!?10,"SERVICE",?36,"DISPENSED",?56,"COST",?70,"PER UNIT",!,LN1,!
  • Line Location: HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY("PSG" START+2, RUN+1, RUN+3, RUN+4

Label References

Name Line Occurrences
DONE START+2, RUN+1, RUN+3, RUN+4
HDR START+2
NP RUN+1, RUN+3, RUN+4, TOTLS+1
TOTLS RUN+3
WRITE RUN+1, RUN+4

Naked Globals

Name Field # of Occurrence
^( RUN+1, RUN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+1, DONE+1!
CML START+1*, DONE+1!, NP+1
CNT DONE+1!, WRITE+1*
CPU DONE+1!, WRITE+1*
CST RUN+1*, RUN+4*, DONE+1!, WRITE+1*
DTIME NP+1
IO START+1, START+2
>> IO(0 START+1
IOF DONE+1, HDR+1
IOSL RUN+1, RUN+3, RUN+4, TOTLS+1
IOST START+1
LN1 START+1*, DONE+1!, HDR+1
LN2 START+1*, TOTLS+1, DONE+1!
NP START+1*, RUN+1, RUN+3, RUN+4, TOTLS+1, DONE+1!, NP+1*
>> PSGDT START+1*
PSGID DONE+1!
PSGOD DONE+1!
PSGPDT START+1*, DONE+1!, HDR+1
SN RUN+1*, RUN+4*, DONE+1!, WRITE+1
>> STOP HDR+1
>> STRT HDR+1
TCNT START+1*, TOTLS+1, DONE+1!, WRITE+1*
TCPU TOTLS+1*, DONE+1!
TCST START+1*, TOTLS+1, DONE+1!, WRITE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All