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

Package: Referred Care Information System

Routine: BMCRCHS4


Information

BMCRCHS4 ; IHS/ITSC/FCJ - STATUS REPORT FOR CHS REFERRALS; [ 09/27/2006 2:21 PM ]

Source Information

Source file <BMCRCHS4.m>

Call Graph

Call Graph Total: 10

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

Caller Graph

Caller Graph Total: 1

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

Entry Points

Name Comments DBIA/ICR reference
STATUS ;CHS STATUS AND STATUS OF REFERRAL
HEAD ;
HIT
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
DD^%DT HEAD2+4, HEAD2+5
$$CTR^BMC HEAD2+6, HEAD2+7
$$TOFAC^BMC PRINT+11
PARMSET^BMC INIT+2
PAUSE^BMC REFPRT2+1, REFPRT2+5, HEAD+1
^BMCKILL EOJ+3
^BMCREF PRINT+3
GETDATES^BMCRUTL START+5
^DIR DBQUE+2, STATUS+3, STATUS+9
^DIWP PRINT+14
^XBDBQUE DBQUE+7, BROWSE+3
$$PROVINI^XBFUNC1 PRINT+10
$$FMTE^XLFDT PRINT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report prints out a list of all Active CHS referrals. ",!,"The user can select a date range by Date initiated, and Status of Referral.",!,"and CHS status of Referral.",!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: "Report will include Primary and Secondary referrals.",!
  • Line Location: START+2
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: ?11,$E(BMCREC("PAT NAME"),1,18)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?30,$P(BMCRREC,U,2)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: $P(^BMCREF(BMCRIEN,1),U)
  • Condition for execution: $D(^BMCREF(BMCRIEN,1))
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?46,$P(^BMCREF(BMCRIEN,11),U,12)_"/"_$P(BMCRREC,U,15)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?51,$S($P(BMCRREC,U,6):$$PROVINI^XBFUNC1($P(BMCRREC,U,6)),1:"--")
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?55,$E($$TOFAC^BMC(BMCRIEN),1,25)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: ?10,^UTILITY($J,"W",DIWL,Z,0),!
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+18
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: ?17,"BEG DATE: "_Y
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: ?40,"END DATE: "_Y,!
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: $$CTR^BMC("CHS REFERRALS: "_BMCRTYP,80),!
  • Line Location: HEAD2+6
Function Call: WRITE
  • Prompt: $$CTR^BMC("REFERRALS STATUS: "_BMCRTYPS,80),!
  • Line Location: HEAD2+7
Function Call: WRITE
  • Prompt: !,"REF DATE",?11,"PATIENT NAME",?32," REF #",?44,"STATUS",?51,"PRV",?55,"FACILITY REF TO"
  • Line Location: HEAD2+8
Function Call: WRITE
  • Prompt: !,BMC80D
  • Line Location: HEAD2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD2+10
Routine Call
  • DIR
  • Line Location:
    • DBQUE+2
    • STATUS+3
    • STATUS+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BMCREF - [#90001] REFCHK+5, REFCHK+12, PRINT+1, PRINT+8, PRINT+9, PRINT+13, PRINT+14
^BMCREF("B" REFCHK+2, REFCHK+4
^DIC(4 - [#4] HEAD2+3
^UTILITY($J PRINT+15, PRINT+17!
^XTMP("BMCRCHS4" INIT+6, INIT+8!, HIT*, REFPRT+4!, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2!

Label References

Name Line Occurrences
@( REFPRT2+1
BROWSE DBQUE+5
DBQUE START+7
HEAD PRINT+4
HEAD1 HEAD+3
HIT REFCHK+11, REFCHK+12
INIT START+3
PRINT REFPRT2+3
REFPRT2 REFPRT+3
STATUS START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BMC80D REFPRT+2*, HEAD2+9, EOJ+4!
BMC80E REFPRT+1*, EOJ+4!
BMCBD REFCHK+1, HEAD2+4, EOJ+4!
BMCBDD EOJ+4!
BMCBDT REFCHK+1*, REFCHK+2*, REFCHK+4, EOJ+4!
BMCBT INIT+4, INIT+5*, INIT+6, INIT+7*, INIT+8, HIT, REFPRT+4, REFPRT2+1, REFPRT2+3, EOJ+1
, EOJ+2, EOJ+4!
BMCCST STATUS+4*, REFCHK+11, REFCHK+12, EOJ+5!
BMCED REFCHK+2, HEAD2+5, EOJ+5!
BMCEDD EOJ+5!
BMCHRN EOJ+4!
BMCJOB INIT+3*, INIT+6, INIT+8, HIT, 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+4, INIT+1*
BMCQUIT DBQUE+3*, REFPRT2+2!, REFPRT2+3, REFPRT2+4, PRINT+4, HEAD+2*
BMCREC EOJ+5!
BMCREC("PAT N AME" , PRINT+6
>> BMCRIEN REFCHK+3*, REFCHK+4*, REFCHK+5, REFCHK+12, HIT, REFPRT2+2*, REFPRT2+3*, PRINT+1, PRINT+2, PRINT+8
, PRINT+9, PRINT+11, PRINT+13, PRINT+14
BMCRREC PRINT+1*, PRINT+5, PRINT+8, PRINT+9, PRINT+10, EOJ+5!
BMCRSTAT EOJ+5!
BMCRTYP STATUS+5*, HEAD2+6, EOJ+5!
BMCRTYPS STATUS+11*, HEAD2+7, EOJ+5!
BMCSD EOJ+5!
BMCSTA STATUS+10*, REFCHK+7, REFCHK+9, EOJ+6!
DA DBQUE+2!
DIR DBQUE+2!, STATUS+3!, STATUS+9!
DIR("A" DBQUE+2*, STATUS+2*, STATUS+8*
DIR("B" DBQUE+2*, STATUS+2*, STATUS+8*
DIR(0 DBQUE+2*, STATUS+1*, STATUS+7*
>> DIRUT START+5, START+6, DBQUE+3, STATUS+3, STATUS+9, HEAD+2
DIWF PRINT+14*, PRINT+16!
DIWL PRINT+14*, PRINT+15, PRINT+16!
DIWR PRINT+14*, PRINT+16!
>> DTOUT START+5, START+6
DUZ(2 HEAD2+3
IOF HEAD1+1
IOSL PRINT+4
IOST REFPRT2+1
U REFCHK+7, REFCHK+9, REFCHK+10, REFCHK+12, PRINT+5, PRINT+8, PRINT+9, PRINT+10, PRINT+13, PRINT+14
, HEAD2+3
>> X REFCHK+5*, REFCHK+7, REFCHK+9, REFCHK+10, PRINT+14*
>> 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, STATUS+4, STATUS+5, STATUS+10, STATUS+11, PRINT+2*, HEAD2+4*, HEAD2+5*
Z PRINT+15*, PRINT+16!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All