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

Package: IHS RPMS CHR System

Routine: BCHUFPP


Information

BCHUFPP ; IHS/CMI/LAB - PRINT CHR FORMS ;

Source Information

Source file <BCHUFPP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 DD^%DT  ^DIR  ^DIWP  
IHS RPMS CHR System 2 DEMO^BCHUFP  $$PPNAME^BCHUTIL  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS RPMS CHR System 4 BCHEGP  BCHEGR1  BCHUDISP  BCHUFP  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;EP - CALLED FROM LAST VISIT DISPLAY
OBJ ;
SUB ;
POV ;
DEMO ;demographics
WP ;EP - Entry point to print wp fields pass node in BCHWP
WPS ;EP
WRT ;EP - Entry point to print wp fields pass node in BCHNODE
FF ;EP
ACT ;
PLANS ;

External References

Name Field # of Occurrence
DD^%DT PRINT1+9
DEMO^BCHUFP DEMO+1
$$PPNAME^BCHUTIL PRINT1+11
^DIR FF+1
^DIWP WRT+3, WP+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: !?34,"CHR PCC FORM"
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: !?18,"*** Computer Generated Encounter Record ***"
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","*")
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: !?3,"Date of Service: "
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: !?3,"Temporary Residence: ",$P($G(^BCHR(BCHR,11)),U,8),!?35,"Program Code: ",$P(^BCHTPROG($P(BCHR0,U,2),0),U,5)
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: !?35,"Provider (CHR): ",$$PPNAME^BCHUTIL(BCHR)
  • Line Location: PRINT1+11
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","_")
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: !?3,"SUBJECTIVE INFORMATION (includes patient's complaint)",?65,"TEMP ",$P(BCHR12,U,7)
  • Line Location: SUB+5
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","_")
  • Line Location: OBJ+2
Function Call: WRITE
  • Prompt: !?3,"OBJECTIVE DATA",?65,"HEAD ",$P(BCHR12,U,4)
  • Line Location: OBJ+3
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","_")
  • Line Location: OBJ+13
Function Call: WRITE
  • Prompt: !?3,"ASSESSMENT - PCC Purpose of Visit"
  • Line Location: POV+2
Function Call: WRITE
  • Prompt: !?3,"Hlth Prob",?13,"Svc",?18,"Svc",?30,"Narrative"
  • Line Location: POV+3
Function Call: WRITE
  • Prompt: !?5,"Code",?13,"Code",?18,"Mins",?65,"Tests"
  • Line Location: POV+4
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","_")
  • Line Location: POV+5
Function Call: WRITE
  • Prompt: !?23,BCHRPRNM(BCHX1)
  • Line Location: POV+23
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","_")
  • Line Location: PLANS+3
Function Call: WRITE
  • Prompt: !?3,"Plans/Treatments"
  • Line Location: PLANS+4
Function Call: WRITE
  • Prompt: ?65,"HCT ",$S($P(BCHR13,U,8)]"":$P(BCHR13,U,8),$P(BCHR13,U,7)]"":$E($P(BCHR13,U,7),4,5)_"/"_$E($P(BCHR13,U,7),6,7)_"/"_(1700+($E($P(BCHR13,U,7),1,3))),1:"")
  • Line Location: PLANS+7
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","_")
  • Line Location: PLANS+29
Function Call: WRITE
  • Prompt: !?3,"Activity Location: ",$S($P(BCHR0,U,6)]"":$P(^BCHTACTL($P(BCHR0,U,6),0),U),1:"")
  • Line Location: ACT+2
Function Call: WRITE
  • Prompt: ?40,"Hospital/Clinic: ",$E($P(^DIC(4,$P(BCHR0,U,5),0),U),1,22)
  • Line Location: ACT+2
Function Call: WRITE
  • Prompt: !?3,"Referred to CHR by: ",?45,"Referred by CHR to: "
  • Line Location: ACT+7
Function Call: WRITE
  • Prompt: !?3,"Travel Time: ",$P(BCHR0,U,11),?45,"Number Served: ",$P(BCHR0,U,12)
  • Line Location: ACT+10
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","_"),!
  • Line Location: ACT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: FF+1
Routine Call
  • DIR
  • Line Location:
    • FF+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTNPOV - [#9999999.27] POV+12
^BCHR - [#90002] PRINT1+1, PRINT1+10, SUB+2, SUB+3, ACT+5, ACT+6
^BCHRPROB - [#90002.01] POV+8, POV+11, POV+12
^BCHRPROB("AD" POV+6
^BCHTACTL - [#90002.56] ACT+2
^BCHTFPM - [#90002.55] PLANS+20
^BCHTPROB - [#90002.53] POV+9
^BCHTPROG - [#90002.51] PRINT1+10
^BCHTREF - [#90002.52] ACT+5, ACT+6
^BCHTSERV - [#90002.54] POV+10
^DIC - [#1] WP+6
^DIC(4 - [#4] ACT+2
^UTILITY($J WRT+1!, WRT+4, WRT+6!, WP+4!, WPS+1, WPS+3!

Label References

Name Line Occurrences
FF PRINT1+8, SUB+4, SUB+13, SUB+16, OBJ+10, POV+1, POV+7, POV+23, PLANS+2, PLANS+22
, PLANS+25, ACT+1
WP SUB+6, OBJ+4, PLANS+9
WRT POV+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BCHC POV+6*, POV+13, POV+16, POV+19
BCHCAP WP+9, WPS+3!
BCHCOL WPS+3!
BCHDA SUB+6*, OBJ+4*, PLANS+9*, WRT+6!, WP+6, WPS+3!
BCHFILE SUB+6*, OBJ+4*, PLANS+9*, WRT+6!, WP+6, WPS+3!
>> BCHIOM SUB+6*, OBJ+4*, PLANS+9*, WP+7
BCHNODE SUB+6*, OBJ+4*, PLANS+9*, WRT+6!, WP+6, WPS+3!
>> BCHPCNT WRT+2*, WRT+4*
>> BCHQUIT PRINT1+2*, PRINT1+8, SUB+4, SUB+12, SUB+13, SUB+16, OBJ+9, OBJ+10, POV+1, POV+6
, POV+7, POV+23, POV+25, PLANS+2, PLANS+21, PLANS+22, PLANS+25, ACT+1, FF+1*
>> BCHR PRINT1+1, PRINT1+10, PRINT1+11, SUB+2, SUB+3, SUB+6, OBJ+4, POV+6, PLANS+9, ACT+5
, ACT+6
>> BCHR0 PRINT1+1*, PRINT1+9, PRINT1+10, POV+16, PLANS+18, PLANS+20, ACT+2, ACT+10
>> BCHR12 SUB+2*, SUB+5, SUB+7, SUB+8, SUB+9, SUB+10, SUB+11, OBJ+3, OBJ+5, OBJ+6
, OBJ+7, OBJ+8, POV+13
>> BCHR13 SUB+3*, POV+16, POV+19, PLANS+7
BCHREFB ACT+4~
BCHREFB( ACT+5*, ACT+8, ACT+9
BCHREFT ACT+4~
BCHREFT( ACT+6*, ACT+8, ACT+9
>> BCHRNODE POV+8*, POV+9, POV+10
BCHRPRNM POV+24!, WRT+1!
BCHRPRNM( POV+23, WRT+4*
BCHRPRNM(1 POV+13
BCHRPRNM(2 POV+16
BCHRPRNM(4 POV+19
>> BCHTNRQ POV+12*, WRT+3
>> BCHW POV+12*
BCHWP WP+3!
BCHWP( SUB+12, SUB+14, OBJ+9, OBJ+11, PLANS+21, PLANS+23, WPS+1*
BCHWP(1 SUB+7*, OBJ+5*
BCHWP(2 SUB+8*, OBJ+6*, PLANS+15*
BCHWP(3 SUB+9*, OBJ+7*, PLANS+18*
BCHWP(4 SUB+10*, OBJ+8*, PLANS+20*
BCHWP(5 SUB+11*
BCHX POV+6*, POV+8, POV+11, POV+12, WP+2~, WP+5*, WP+7*, WP+9
BCHX1 SUB+12*, SUB+14, OBJ+9*, OBJ+11, POV+23*, POV+24!, PLANS+21*, PLANS+23
C ACT+4~, ACT+5*, ACT+6*
DIR FF+1!
DIR(0 FF+1*
DIWF WRT+5!, WPS+2!
DIWL WRT+3*, WRT+4, WRT+5!, WP+7*, WPS+1, WPS+2!
DIWR WRT+3*, WRT+5!, WP+7*, WPS+2!
>> DTOUT FF+1
G WP+2~, WP+6*, WP+7, WP+8, WPS+3!
IO FF+1
IO(0 FF+1
IOF PRINT1+3, FF+2
IOM WP+7
IOSL PRINT1+8, SUB+4, SUB+13, SUB+16, OBJ+10, POV+1, POV+7, POV+23, PLANS+2, PLANS+22
, PLANS+25, ACT+1
IOST PRINT1+3, FF+1
P WP+2~, WP+5*, WPS+1*
U PRINT1+9, PRINT1+10, SUB+5, SUB+7, SUB+8, SUB+9, SUB+10, SUB+11, OBJ+3, OBJ+5
, OBJ+6, OBJ+7, OBJ+8, POV+9, POV+10, POV+11, POV+12, POV+13, POV+16, POV+19
, PLANS+7, PLANS+18, PLANS+20, ACT+2, ACT+5, ACT+6, ACT+10
>> X ACT+5*, ACT+6*, ACT+8*, ACT+9, WRT+3*, WP+9*, WP+10*
>> Y PRINT1+9*, FF+1, WP+8*, WP+10
Z WRT+4*, WRT+5!, WPS+1*, WPS+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All