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

Package: IHS RPMS CHR System

Routine: BCHRNRL


Information

BCHRNRL ; IHS/CMI/LAB - CHR Report 1 ;

Source Information

Source file <BCHRNRL.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  $$VAL^XBDIQ1  EN^XBVK  
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIR  
IHS RPMS CHR System 2 ($$CTR,$$LOC)^BCHRLU  XTMP^BCHUTIL  
Kernel 1 $$FMADD^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS RPMS CHR System 1 BCH NON REG PT LIST  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
LASTV(P,D) ;EP
HEAD ;
ZIS ;CALL TO XBDBQUE
ERR
INFORM ;
START ;
GETDATES ;
XIT ;
HEAD1 ;
PRINT ;EP
DONE ;
PROC ;
DATE(D) ;EP
HEAD2 ;

External References

Name Field # of Occurrence
DD^%DT PRINT+2, PRINT+4
NOW^%DTC PRINT+2
$$CTR^BCHRLU HEAD2+3, HEAD2+4, HEAD2+5
$$LOC^BCHRLU HEAD2+3
XTMP^BCHUTIL PRINT+1
^DIR BD+5, DONE+1, HEAD+2
^XBDBQUE ZIS+2
$$VAL^XBDIQ1 PROC+6, PROC+7, PROC+8
EN^XBVK XIT+1
$$FMADD^XLFDT BD+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Please enter the number of years to determine if the patient should be"
  • Line Location: BD+2
Function Call: WRITE
  • Prompt: !,"listed on the report. For example, if you want all patients who have"
  • Line Location: BD+3
Function Call: WRITE
  • Prompt: !,"been seen in the past 5 years enter 5.",!
  • Line Location: BD+4
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!"
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !?20,"********** NON-REGISTERED PATIENT LIST **********"
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,"This report will list all Non-Registered Patients in the CHR Non-Registered"
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"patient file who have been seen in the last N number of years you indicate."
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"The list will be sorted by DOB, NAME, TRIBE, COMMUNITY",!!
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS TO REPORT",!!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?32,$$DATE(BCHD)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: ?42,$E(BCHS)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?46,$E(BCHT,1,15)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?63,$E(BCHC,1,15)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
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: !,$$CTR^BCHRLU(X,80)
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !,$$CTR^BCHRLU(X,80)
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: !,"NAME",?32,"DOB",?41,"SEX",?46,"TRIBE",?63,"COMMUNITY"
  • Line Location: HEAD2+6
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: HEAD2+7
Routine Call
  • DIR
  • Line Location:
    • BD+5
    • DONE+1
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BCHR("ANRE" LASTV+3, LASTV+4
^BCHRPAT - [#90002.11] PROC+2, PROC+4, PROC+9
^VA(200 - [#200] HEAD2+2
^XTMP("BCHRNRL" PROC+9*, PRINT+5, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, DONE+2!

Label References

Name Line Occurrences
$$DATE PRINT+13
$$LASTV PROC+3
DONE PRINT+5
HEAD PRINT+5, PRINT+6
HEAD2 HEAD+1
INFORM START+1
XIT BD+6, ZIS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BCHBD BD+8*, PROC+3, PRINT+4
>> BCHBDD PRINT+4*, HEAD2+5
>> BCHC PRINT+11*, PRINT+16
>> BCHD PRINT+7*, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+13
>> BCHDT PRINT+2*, HEAD2+2
BCHH PROC+1*, PROC+9, PRINT+5, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, DONE+2!
BCHJ PROC+1*, PROC+9, PRINT+5, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, DONE+2!
>> BCHN PRINT+8*, PRINT+9, PRINT+10, PRINT+11, PRINT+12
>> BCHPG PRINT+3*, HEAD+1, HEAD2+1*, HEAD2+2
BCHQUIT PRINT+3!, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, HEAD+2*
>> BCHS PRINT+9*, PRINT+10, PRINT+11, PRINT+14
>> BCHT PRINT+10*, PRINT+11, PRINT+15
>> BCHX PROC+2*, PROC+3, PROC+4, PROC+6, PROC+7, PROC+8, PROC+9
>> BCHYEARS BD+1*, BD+7*, BD+8
>> C PROC+8*, PROC+9
D PROC+5*, PROC+9, LASTV~, LASTV+5, DATE~, DATE+1, DATE+2
DA BD+5!
DIR BD+5!, DONE+1!, HEAD+2!
DIR("A" BD+5*, DONE+1*
DIR("B" BD+5*
DIR(0 BD+5*, DONE+1*, HEAD+2*
>> DIRUT BD+6, DONE+1*
DT BD+8
>> DTOUT HEAD+2
>> DUOUT DONE+1
DUZ HEAD2+2
G LASTV+1~, LASTV+2*, LASTV+3, LASTV+4, LASTV+6*, LASTV+7
IO DONE+1, HEAD+2
IO(0 DONE+1, HEAD+2
IOF INFORM+1, HEAD1+1
IOST DONE+1, HEAD+2
>> N PROC+4*, PROC+5
P LASTV~, LASTV+3, LASTV+4
>> S PROC+6*, PROC+9
>> T PROC+7*, PROC+9
U PROC+5, PROC+9, HEAD2+2
X LASTV+1~, LASTV+3*, LASTV+4, LASTV+5, PRINT+2, HEAD2+4*, HEAD2+5*
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y BD+7, LASTV+1~, LASTV+4*, PRINT+2*, PRINT+4*, HEAD+2
Z LASTV+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All