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

Package: Referred Care Information System

Routine: BMCRCHS2


Information

BMCRCHS2 ; IHS/PHXAO/TMJ - LIST CHS REFERRALS NOT APPROVED ;

Source Information

Source file <BMCRCHS2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Referred Care Information System 3 ($$CTR,$$TOFAC,PARMSET,PAUSE)^BMC  ^BMCKILL  ^BMCREF  
IHS VA Utilities 2 ^XBDBQUE  $$PROVINI^XBFUNC1  
VA Fileman 2 ^DIR  ^DIWP  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Referred Care Information System 1 BMC RPT-CHS PENDING  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;
HEAD2 ; WRITE HEADER
HEAD1 ;
BROWSE ;
EOJ ; END OF JOB
DBQUE ;call to XBDBQUE
REFPRT ; PRINT REFERRALS SELECTED
START ;
INIT ; INITIALIZAION
REFPRT2 ;
PRINT ;print one referral
REFCHK ; CHECK EACH ACTIVE/CHS REFERRAL

External References

Name Field # of Occurrence
$$CTR^BMC HEAD2+4
$$TOFAC^BMC PRINT+10
PARMSET^BMC INIT+2
PAUSE^BMC REFPRT2+1, REFPRT2+5, HEAD+1
^BMCKILL EOJ+3
^BMCREF PRINT+3
^DIR DBQUE+2
^DIWP PRINT+13
^XBDBQUE DBQUE+7, BROWSE+3
$$PROVINI^XBFUNC1 PRINT+9
$$FMTE^XLFDT PRINT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report prints out a list of all CHS referrals whose CHS authorization ",!,"is still pending. This is useful if the CHS Office wishes to review",!," all those referrals which still require their decision.",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DBQUE+2
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: REFPRT2+1
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(BMCRREC,U),"5D")
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?12,$E(BMCREC("PAT NAME"),1,18)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?32,BMCHRN
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?43,$S($P(BMCRREC,U,6):$$PROVINI^XBFUNC1($P(BMCRREC,U,6)),1:"--")
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?49,$$TOFAC^BMC(BMCRIEN)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?10,^UTILITY($J,"W",DIWL,Z,0),!
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEAD2+2
Function Call: WRITE
  • Prompt: !?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?72,"Page ",BMCPG,!
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: $$CTR^BMC("CHS REFERRALS PENDING APPROVAL",80),!
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !,"REF DATE",?11,"PATIENT NAME",?32," HRN",?43,"PROV",?49,"FACILITY REF TO"
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: !,BMC80D
  • Line Location: HEAD2+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD2+7
Routine Call
  • DIR
  • Line Location:
    • DBQUE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] PRINT+7
^AUTTLOC - [#9999999.06] PRINT+7
^BMCREF - [#90001] REFCHK+3, REFCHK+6, PRINT+1, PRINT+12, PRINT+13
^BMCREF("AB" REFCHK+2
^DIC(4 - [#4] HEAD2+3
^UTILITY($J PRINT+14, PRINT+16!
^XTMP("BMCRCHS2" INIT+6, INIT+9!, REFCHK+4*, REFPRT+4!, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2!

Label References

Name Line Occurrences
@( REFPRT2+1
BROWSE DBQUE+5
DBQUE START+4
HEAD PRINT+4
HEAD1 HEAD+3
INIT START+2
PRINT REFPRT2+3
REFPRT2 REFPRT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BMC80D REFPRT+2*, HEAD2+6, EOJ+4!
BMC80E REFPRT+1*, EOJ+4!
BMCBT INIT+4, INIT+5*, INIT+6, INIT+7*, INIT+9, REFCHK+4, REFPRT+4, REFPRT2+1, REFPRT2+3, EOJ+1
, EOJ+2, EOJ+4!
>> BMCDFN PRINT+7
>> BMCHIT REFCHK+4, REFCHK+5*, REFCHK+7*
>> BMCHRN PRINT+7*, PRINT+8
BMCJOB INIT+3*, INIT+6, INIT+9, REFCHK+4, REFPRT+4, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2, EOJ+4!
BMCOPT DBQUE+1!, DBQUE+4*, DBQUE+5, EOJ+4!
>> BMCPARM INIT+2
BMCPG REFPRT2+1*, HEAD2+1*, HEAD2+3, EOJ+4!
>> BMCQ START+3, INIT+1*
BMCQUIT DBQUE+3*, REFPRT2+2!, REFPRT2+3, REFPRT2+4, PRINT+4, HEAD+2*, EOJ+4!
>> BMCREC("PAT N AME" , PRINT+6
>> BMCRIEN REFCHK+1*, REFCHK+2*, REFCHK+3, REFCHK+4, REFCHK+6, REFPRT2+2*, REFPRT2+3*, PRINT+1, PRINT+2, PRINT+10
, PRINT+12, PRINT+13
BMCRREC PRINT+1*, PRINT+5, PRINT+9, EOJ+4!
BMCRSTAT EOJ+4!
DA DBQUE+2!
DIR DBQUE+2!
DIR("A" DBQUE+2*
DIR("B" DBQUE+2*
DIR(0 DBQUE+2*
>> DIRUT DBQUE+3, HEAD+2
DIWF PRINT+13*, PRINT+15!
DIWL PRINT+13*, PRINT+14, PRINT+15!
DIWR PRINT+13*, PRINT+15!
DUZ(2 PRINT+7, HEAD2+3
IOF HEAD1+1
IOSL PRINT+4
IOST REFPRT2+1
U REFCHK+4, REFCHK+6, PRINT+5, PRINT+7, PRINT+9, PRINT+12, PRINT+13, HEAD2+3
>> X REFCHK+3*, REFCHK+4, PRINT+13*
>> XBIOP BROWSE+2*
>> XBNS DBQUE+6*, BROWSE+2*
>> XBRC DBQUE+6*, BROWSE+2*
>> XBRP DBQUE+6*, BROWSE+1*
>> XBRX DBQUE+6*, BROWSE+2*
>> Y DBQUE+4, PRINT+2*
Z PRINT+14*, PRINT+15!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All