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

Package: IHS RPMS CHR System

Routine: BCHUFP


Information

BCHUFP ; IHS/CMI/LAB - PRINT ENCOUNTER RECORD ;

Source Information

Source file <BCHUFP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
IHS VA Utilities 2 ^XBDBQUE  $$EXTSET^XBFUNC  
IHS RPMS CHR System 1 (FF,PRINT1)^BCHUFPP  
Kernel 1 HOME^%ZIS  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS RPMS CHR System 2 BCH DE PRINT FORMS  BCHUFPP  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
PAT ;one or all patients
ZIS ;
V1 ;
PROV ;limit by provider
START ;
GETDATES ;
XIT ;
ED ;get ending date
PRINT ; EP - print individual forms
DEMO ;EP
COMP ;EP - do nothing
D ; Run by visit date

External References

Name Field # of Occurrence
DD^%DT ED+1, ED+4, DEMO+21, DEMO+22
C^%DTC ED+4, D+1
HOME^%ZIS START+1
FF^BCHUFPP DEMO+2, DEMO+5, DEMO+7, DEMO+28
PRINT1^BCHUFPP V1+1
^DIC PAT+6, PROV+5
^DIR BD+2, ED+1, PAT+3, PROV+2
^XBDBQUE ZIS+2
$$EXTSET^XBFUNC DEMO+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: "********** ENCOUNTER FORM PRINT **********",!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: "This report will produce hard copy computed generated encounter forms.",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"Please enter the date range for which forms should be printed.",!
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!?3,"HR#: ",BCHHRN
  • Line Location: DEMO+12
Function Call: WRITE
  • Prompt: !!?3,"CHR NON REG ID: ",$P(^BCHR(BCHR,11),U,13)
  • Line Location: DEMO+13
Function Call: WRITE
  • Prompt: ?35,"SEX: ",$S(DFN]"":$$EXTSET^XBFUNC(2,.02,$P(^DPT(DFN,0),U,2)),1:$P(BCHR11,U,3))
  • Line Location: DEMO+14
Function Call: WRITE
  • Prompt: !?3,"NAME: ",$S(DFN]"":$P(^DPT(DFN,0),U),1:$P(BCHR11,U))
  • Line Location: DEMO+15
Function Call: WRITE
  • Prompt: ?35,"Tribe: "
  • Line Location: DEMO+16
Function Call: WRITE
  • Prompt: $P(^AUTTTRI($P(^AUPNPAT(DFN,11),U,8),0),U)
  • Line Location: DEMO+16
Function Call: WRITE
  • Prompt: $P(^AUTTTRI($P(BCHR11,U,5),0),U)
  • Line Location: DEMO+17
Function Call: WRITE
  • Prompt: !?3,"SSN: ",$S(DFN]"":"XXX-XX-"_$E($P(^DPT(DFN,0),U,9),6,9),1:$P(BCHR11,U,4))
  • Line Location: DEMO+18
Function Call: WRITE
  • Prompt: ?35,"RESIDENCE: "
  • Line Location: DEMO+19
Function Call: WRITE
  • Prompt: $P($G(^AUPNPAT(DFN,11)),U,18)
  • Line Location: DEMO+19
Function Call: WRITE
  • Prompt: $P(BCHR11,U,7)
  • Line Location: DEMO+20
Function Call: WRITE
  • Prompt: !?3,"DOB: "
  • Line Location: DEMO+21
Function Call: WRITE
  • Prompt: Y
  • Line Location: DEMO+21
Function Call: WRITE
  • Prompt: Y
  • Line Location: DEMO+22
Function Call: WRITE
  • Prompt: ?35,"FACILITY: "
  • Line Location: DEMO+23
Function Call: WRITE
  • Prompt: $P(^DIC(4,$P(BCHR11,U,9),0),U)
  • Line Location: DEMO+23
Function Call: WRITE
  • Prompt: !!?35,"CHR SIGNATURE: _____________________________",!
  • Line Location: DEMO+26
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","*")
  • Line Location: DEMO+27
Routine Call
  • %ZIS
  • Line Location:
    • START+1
Routine Call
  • DIC
  • Line Location:
    • PAT+6
    • PROV+5
Routine Call
  • DIR
  • Line Location:
    • BD+2
    • ED+1
    • PAT+3
    • PROV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] DEMO+10, DEMO+16, DEMO+19
^AUTTTRI - [#9999999.03] DEMO+16, DEMO+17
^BCHR - [#90002] V1+1, V1+5, DEMO+1, DEMO+8, DEMO+13
^BCHR("B" D+2, V1+1
^DIC(4 - [#4] DEMO+23
^DPT - [#2] DEMO+14, DEMO+15, DEMO+18, DEMO+21

Label References

Name Line Occurrences
BD ED+2
GETDATES PAT+4, PROV+3
PAT PAT+6
PROV PAT+1, PAT+5, PROV+5
V1 D+2
XIT BD+3
ZIS PROV+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BCH80D XIT+2!
BCHBD BD+4*, ED+1, ED+4, XIT+2!, D+1
BCHBDD ED+4*, XIT+3!
BCHBDO XIT+3!
BCHBT XIT+3!
BCHBTH XIT+2!
BCHC XIT+2!
BCHED ED+3*, ED+4, XIT+2!, D+2
BCHEDD ED+4*, XIT+3!
BCHEDO XIT+3!
BCHFOUND XIT+3!
BCHHIT XIT+3!
BCHHRCN XIT+2!
BCHHRN XIT+3!, DEMO+10*, DEMO+11*, DEMO+12
BCHID XIT+3!
BCHIOM XIT+1!
BCHJOB XIT+2!
BCHLENG XIT+2!
BCHLINE XIT+3!
BCHODAT XIT+3!, D+2*, V1+1
BCHP XIT+3!
>> BCHPAT PAT+2*, PAT+6*
BCHPCNT XIT+2!
BCHPG XIT+2!
BCHPREC XIT+1!
BCHPRNM XIT+3!
BCHPRNT XIT+3!
BCHPROB XIT+3!
BCHPROV PROV+1*, PROV+5*, XIT+2!, V1+4, V1+5
BCHPRV XIT+3!
BCHQUIT XIT+3!, PRINT+1*, D+2, V1+1, DEMO+2, DEMO+7
BCHR XIT+3!, V1+1*, V1+5, DEMO+1, DEMO+8, DEMO+13
BCHR0 XIT+3!, DEMO+9
BCHR11 XIT+1!, DEMO+8*, DEMO+10, DEMO+14, DEMO+15, DEMO+17, DEMO+18, DEMO+20, DEMO+22, DEMO+23
BCHR12 XIT+1!
BCHR13 XIT+1!
BCHRC XIT+1!
BCHRCNT XIT+1!, XIT+3!, V1+1*
BCHRLOC XIT+3!
BCHRNODE XIT+1!
BCHRRPNM XIT+1!
BCHRX XIT+1!
BCHSD ED+4*, XIT+3!, D+1*, D+2
BCHTICL XIT+3!
BCHTNRQ XIT+3!
BCHTOT XIT+3!
BCHTQ XIT+3!
BCHTTXT XIT+3!
BCHW XIT+1!
BCHWP XIT+1!
BCHX XIT+2!
BCHX1 XIT+1!
D XIT+2!
DFN XIT+2!, DEMO+9*, DEMO+10, DEMO+12, DEMO+13, DEMO+14, DEMO+15, DEMO+16, DEMO+18, DEMO+19
, DEMO+21, DEMO+22
DIC PAT+6*, PROV+5*, XIT+2!
DIC("A" PAT+6*, PROV+5*
DIC(0 PAT+6*, PROV+5*
DIR BD+2!, ED+1!, PAT+3!, PROV+2!, XIT+2!
DIR("A" BD+2*, ED+1*, PAT+3*, PROV+2*
DIR("B" ED+1*, PAT+3*, PROV+2*
DIR(0 BD+2*, ED+1*, PAT+3*, PROV+2*
DIRUT BD+2*, BD+3, ED+1*, ED+2, PAT+3*, PAT+4, PROV+2*, PROV+3, XIT+2!
DIW XIT+2!
DIWI XIT+2!
DIWT XIT+2!
DIWTC XIT+2!
DIWX XIT+2!
DN XIT+2!
DTOUT XIT+2!
DUOUT BD+2, ED+1, PAT+3, PROV+2, XIT+2!
DUZ(2 DEMO+10
>> F V1+1, V1+3*, V1+4*, V1+5*
IO("Q" XIT+2!
IOF START+1, START+2
IOSL DEMO+2, DEMO+7
U V1+5, DEMO+1, DEMO+9, DEMO+10, DEMO+13, DEMO+14, DEMO+15, DEMO+16, DEMO+17, DEMO+18
, DEMO+19, DEMO+20, DEMO+21, DEMO+22, DEMO+23
>> X ED+4, D+1
>> X1 ED+4*, D+1*
>> X2 ED+4*, D+1*
XBNS ZIS+1*, XIT+2!
XBRC ZIS+1*, XIT+2!
XBRP ZIS+1*, XIT+2!
>> XBRX ZIS+1*
XBTX XIT+2!
Y BD+4, ED+1*, ED+3, ED+4*, PAT+5, PAT+6, PROV+4, PROV+5, XIT+2!, DEMO+21*
, DEMO+22*
ZTSK XIT+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All