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

Package: IHS RPMS CHR System

Routine: BCHRC1P


Information

BCHRC1P ; IHS/CMI/LAB - print all visit report ;

Source Information

Source file <BCHRC1P.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 ;
HEAD2 ;
HEAD1 ;
START ;
DONE ;
HA ;

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO DATA TO REPORT",!!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !?4,"TOTAL",?28,$J($FN(BCHTOTS,",",0),6),?35,"100%",?41,$J($FN(BCHTOTT,",",0),5),?47,"100%",?54,$J($FN(BCHTOTC,",",0),5),?60,"100%",?67,$J($FN(BCHTOTA,",",0),5),?73,"100%",!
  • Line Location: HA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HA+10
Function Call: WRITE
  • Prompt: ?35,$S(BCHTOTS:$J(((BCHCS/BCHTOTS)*100),3,0),1:$J("0",3,0)),"%"
  • Line Location: HA+12
Function Call: WRITE
  • Prompt: ?35,$S(BCHTOTS:$J(((BCHCS/BCHTOTS)*100),3,0),1:$J("0",3,0)),"%"
  • Line Location: HA+22
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?58,BCHDT,?72,"Page ",BCHPG,!
  • Line Location: HEAD2+2
Function Call: WRITE
  • Prompt: $$CTR^BCHRLU($$LOC^BCHRLU),!
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: !?20,"********** CHR REPORT NO. ",BCHRPT," **********"
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !?((80-($L(BCHCH)+47))/2),"TIME SPENT, ",$S(BCHRPT=3:"# SERVED",1:"SERVICE ACTIVITIES"),", AND SERVICES by ",BCHCH
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: !!?((80-X)/2),"PROGRAM: ",BCHPROGN
  • Line Location: HEAD2+7
Function Call: WRITE
  • Prompt: !?((80-X)/2),"PROVIDER: ",BCHPROVN
  • Line Location: HEAD2+9
Function Call: WRITE
  • Prompt: !?((80-X)/2),"PATIENTS: ",BCHREGN
  • Line Location: HEAD2+11
Function Call: WRITE
  • Prompt: !?17,"REPORT DATES: ",BCHBDD," TO ",BCHEDD,!
  • Line Location: HEAD2+12
Function Call: WRITE
  • Prompt: !,"* SERVICES is equal to # of Lines of Assessment"
  • Line Location: HEAD2+13
Function Call: WRITE
  • Prompt: !!?3,BCHCH,?31,"SERVICE",?44,"TRAVEL",?56,$S(BCHRPT=3:"NUMBER",1:"SERVICE"),?69,"SERVICES*"
  • Line Location: HEAD2+14
Function Call: WRITE
  • Prompt: !?31,"HOURS",?44,"HOURS",?56,$S(BCHRPT=3:"SERVED",1:"ACTIVITIES")
  • Line Location: HEAD2+15
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEAD2+16
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BCHTPROG - [#90002.51] HEAD2+6
^VA(200 - [#200] HEAD2+2, HEAD2+8
^XTMP("BCHRC1" START+4, HA+3, HA+6, HA+7, HA+18, HA+19, DONE+2!

Label References

Name Line Occurrences
@( HA+1
DONE START+4, HA+4
HEAD START+4, HA+4, HA+8, HA+20

Naked Globals

Name Field # of Occurrence
^( HA+7, HA+19
^("*TOTAL*" HA+3
^(0 HEAD2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BCHBD START+3
>> BCHBDD START+3*, HEAD2+12
BCHBTH START+4, HA+3, HA+6, HA+7, HA+18, HA+19, DONE+2!
>> BCHCA HA+7*, HA+15, HA+19*, HA+25
>> BCHCC HA+7*, HA+14, HA+19*, HA+24
>> BCHCH HEAD2+5, HEAD2+14
>> BCHCHR1 HEAD2+8
>> BCHCS HA+7*, HA+12, HA+19*, HA+22
>> BCHCT HA+7*, HA+13, HA+19*, HA+23
>> BCHDT START+1*, HEAD2+2
>> BCHED START+3
>> BCHEDD START+3*, HEAD2+12
>> BCHHA HA+6*, HA+7, HA+11, HA+18, HA+19
BCHJOB START+4, HA+3, HA+6, HA+7, HA+18, HA+19, DONE+2!
>> BCHPG START+2*, HEAD2+1*, HEAD2+2
>> BCHPRG HEAD2+6
>> BCHPROGN HEAD2+6*, HEAD2+7, HEAD2+8
>> BCHPROVN HEAD2+8*, HEAD2+9
>> BCHPROVT HEAD2+8
BCHQUIT START+2!, HA+4, HA+6, HA+8, HA+18, HA+20, HEAD+1*
>> BCHREGN HEAD2+10, HEAD2+11
>> BCHRPT HEAD2+4, HEAD2+5, HEAD2+14, HEAD2+15
>> BCHSUB HA+10, HA+16
>> BCHSUB1 HA+18*, HA+19, HA+21
>> BCHTOTA HA+3*, HA+5, HA+15, HA+25
>> BCHTOTC HA+3*, HA+5, HA+14, HA+24
>> BCHTOTS HA+3*, HA+5, HA+12, HA+22
>> BCHTOTT HA+3*, HA+5, HA+13, HA+23
DIR HEAD+1!
DIR(0 HEAD+1*
>> DTOUT HEAD+1
DUZ HEAD2+2
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL HA+4, HA+8, HA+20
IOST HA+1, HEAD+1
U HA+3, HA+7, HA+19, HEAD2+2, HEAD2+6, HEAD2+8
>> X START+1, HEAD2+6*, HEAD2+7, HEAD2+8*, HEAD2+9, HEAD2+10*, HEAD2+11
>> Y START+1*, START+3*, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All