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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BCHRCHP

Package: IHS RPMS CHR System

Routine: BCHRCHP


Information

BCHRCHP ; IHS/CMI/LAB - HIGHTLISTS Report ;

Source Information

Source file <BCHRCHP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIR  
IHS RPMS CHR System 2 ($$CTR,$$LOC)^BCHRLU  DONE^BCHUTIL1  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;
B ;
HEAD2 ; if printer
HEAD1 ; if terminal
ACT1
TOTALP ;
L ;
PROB ;
DONE
ACT ;
PRINT ;EP - PRINT TOP TEN RECORDS
TOTALA ;

External References

Name Field # of Occurrence
DD^%DT PRINT+1, PRINT+2
NOW^%DTC PRINT+1
$$CTR^BCHRLU HEAD2+3
$$LOC^BCHRLU HEAD2+3
DONE^BCHUTIL1 DONE
^DIR HEAD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "NO DATA TO REPORT"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,$P(^BCHTPROB(BCHY,0),U),?36,$J($FN(H,",",1),10),?58,$J(P,5,1)
  • Line Location: PROB+8
Function Call: WRITE
  • Prompt: !,$P(^BCHTPROB(BCHY,0),U),?23,$J($FN(H,",",0),6)
  • Line Location: PROB+9
Function Call: WRITE
  • Prompt: ?32
  • Line Location: PROB+10
Function Call: WRITE
  • Prompt: "*"
  • Line Location: PROB+10
Function Call: WRITE
  • Prompt: !!,"ALL HEALTH PROBLEMS"
  • Line Location: TOTALP+2
Function Call: WRITE
  • Prompt: ?36,$J($FN(BCHTH,",",1),10),?58,$J("100%",5)
  • Line Location: TOTALP+3
Function Call: WRITE
  • Prompt: ?23,$J($FN(BCHTH,",",0),6)
  • Line Location: TOTALP+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: TOTALP+6
Function Call: WRITE
  • Prompt: !,$P(^BCHTSERV(BCHY,0),U),?36,$J($FN(H,",",1),10),?58,$J(P,5,1)
  • Line Location: ACT1+4
Function Call: WRITE
  • Prompt: !,$P(^BCHTSERV(BCHY,0),U),?23,$J($FN(H,",",0),6)
  • Line Location: ACT1+5
Function Call: WRITE
  • Prompt: ?32
  • Line Location: ACT1+6
Function Call: WRITE
  • Prompt: "*"
  • Line Location: ACT1+6
Function Call: WRITE
  • Prompt: !!,"ALL SERVICES"
  • Line Location: TOTALA+2
Function Call: WRITE
  • Prompt: ?36,$J($FN(BCHTH,",",1),10),?58,$J("100%",5)
  • Line Location: TOTALA+3
Function Call: WRITE
  • Prompt: ?23,$J($FN(BCHTH,",",0),6)
  • Line Location: TOTALA+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: TOTALA+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"DATE PRINTED: ",BCHDT,?$S(BCHCHRT="L":72,1:121),"Page ",BCHPG,!
  • Line Location: HEAD2+2
Function Call: WRITE
  • Prompt: $$CTR^BCHRLU($$LOC^BCHRLU),!
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: !,"COMMUNITY HEALTH REPRESENTATIVE REPORT 13 -- HIGHLIGHTS"
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !,"TOP ",BCHLNO," HEALTH PROBLEMS AND SERVICES"
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: !,"PROGRAM: ",BCHPROGN
  • Line Location: HEAD2+7
Function Call: WRITE
  • Prompt: !,"PROVIDER: ",BCHPROVN
  • Line Location: HEAD2+9
Function Call: WRITE
  • Prompt: !,"PATIENTS: ",BCHREGN
  • Line Location: HEAD2+10
Function Call: WRITE
  • Prompt: !,"REPORTING PERIOD: ",BCHBDD," TO ",BCHEDD,!
  • Line Location: HEAD2+11
Function Call: WRITE
  • Prompt: !,$S(BCHPROC="P":"HEALTH PROBLEM",1:"SERVICE"),?35,"SERVICE & TRAVEL",?58,"% OF TOTAL",!?40,"HOURS"
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: L+3
Function Call: WRITE
  • Prompt: !,$S(BCHPROC="P":"HEALTH PROBLEM",1:"SERVICE"),?23," S+T"
  • Line Location: B+2
Function Call: WRITE
  • Prompt: ?J,I,"%"
  • Line Location: B+2
Function Call: WRITE
  • Prompt: !?23,"HOURS"
  • Line Location: B+3
Function Call: WRITE
  • Prompt: ?J,"|"
  • Line Location: B+3
Routine Call
  • DIR
  • Line Location:
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BCHTPROB - [#90002.53] PROB+8, PROB+9
^BCHTPROG - [#90002.51] HEAD2+6
^BCHTSERV - [#90002.54] ACT1+4, ACT1+5
^VA(200 - [#200] HEAD2+8
^XTMP("BCHRCH" PROB+4, PROB+5, PROB+6, ACT1, ACT1+1, ACT1+2, DONE+1!

Label References

Name Line Occurrences
@( PROB+2, ACT+4
ACT1 ACT+3
B HEAD2+13
DONE PRINT+4, PROB+15, TOTALP+1, TOTALP+5, ACT+1, ACT+3, ACT1+11, TOTALA+1, TOTALA+5
HEAD PRINT+4, PROB+7, TOTALP+1, TOTALP+5, ACT+3, ACT1+3, TOTALA+1, TOTALA+5
L HEAD2+12

Naked Globals

Name Field # of Occurrence
^( PROB+6, ACT1+2
^(0 HEAD2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BCHBD PRINT+2
>> BCHBDD PRINT+2*, HEAD2+11
BCHBT PROB+4, PROB+5, PROB+6, ACT1, ACT1+1, ACT1+2, DONE+1!
>> BCHCHR1 HEAD2+8
>> BCHCHRT PROB+8, PROB+9, TOTALP+3, TOTALP+4, ACT+4, ACT1+4, ACT1+5, TOTALA+3, TOTALA+4, HEAD2+2
, HEAD2+12, HEAD2+13
>> BCHDT PRINT+1*, HEAD2+2
>> BCHED PRINT+2
>> BCHEDD PRINT+2*, HEAD2+11
BCHJOB PROB+4, PROB+5, PROB+6, ACT1, ACT1+1, ACT1+2, DONE+1!
>> BCHLNO PROB+4, ACT1, HEAD2+5
>> BCHPG PRINT+3*, HEAD2+1*, HEAD2+2
>> BCHPRG HEAD2+6
>> BCHPROC PROB+1*, ACT+2*, L+1, L+2, B+1, B+2
>> BCHPROGN HEAD2+6*, HEAD2+7, HEAD2+8
>> BCHPROVN HEAD2+8*, HEAD2+9
>> BCHPROVT HEAD2+8
>> BCHQUIT PROB+4, PROB+5, PROB+7, PROB+15, TOTALP+1, TOTALP+5, ACT+1, ACT+3, ACT1, ACT1+1
, ACT1+3, ACT1+11, TOTALA+1, TOTALA+5, HEAD+2*
>> BCHREGN HEAD2+10
>> BCHTH PRINT+5*, TOTALP+3, TOTALP+4, TOTALA+3, TOTALA+4
>> BCHTT PRINT+4, PRINT+5
>> BCHX PROB+4*, PROB+5, PROB+6, ACT1*, ACT1+1, ACT1+2
>> BCHY PROB+5*, PROB+6, PROB+8, PROB+9, ACT1+1*, ACT1+2, ACT1+4, ACT1+5, HEAD+2
>> C PROB+4*, PROB+5*, ACT1*, ACT1+1*
DIR HEAD+2!
DIR(0 HEAD+2*
>> DUOUT HEAD+2
>> H PROB+6*, PROB+8, PROB+9, ACT1+2*, ACT1+4, ACT1+5
>> I PROB+10*, ACT1+6*, B+2*, B+3*
IO HEAD+2
IO(0 HEAD+2
IOF HEAD1+1
IOSL PROB+7, TOTALP+1, TOTALP+5, ACT+3, ACT1+3, TOTALA+1, TOTALA+5
IOST PROB+2, HEAD+2
>> J B+2*, B+3*
>> P PROB+6*, PROB+8, PROB+10, PROB+11, ACT1+2*, ACT1+4, ACT1+6, ACT1+7
>> Q PROB+10*, ACT1+6*
U PROB+6, PROB+8, PROB+9, ACT1+2, ACT1+4, ACT1+5, HEAD2+6, HEAD2+8
>> X PRINT+1, HEAD2+6*, HEAD2+8*
>> Y PRINT+1*, PRINT+2*, HEAD+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All