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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BCHRLP1

Package: IHS RPMS CHR System

Routine: BCHRLP1


Information

BCHRLP1 ; IHS/CMI/LAB - CONT OF BCHRLP ;

Source Information

Source file <BCHRLP1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS RPMS CHR System 2 PAUSE^BCHRL01  ($$CTR,$$LOC)^BCHRLU  
VA Fileman 1 ^DIWP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS RPMS CHR System 1 BCHRLP  

Entry Points

Name Comments DBIA/ICR reference
COUNT ;if COUNTING entries only
PAUSE ;
SHOW ;
COVPAGE ;EP
WP ;EP - Entry point to print wp fields pass node in BCHNODE
SHOWP ;

External References

Name Field # of Occurrence
PAUSE^BCHRL01 SHOW+8, SHOWP+3, SHOWP+5, SHOWP+7, SHOWP+8, SHOWP+12, SHOWP+14, SHOWP+17, SHOWP+19, PAUSE+1
, COUNT+1
$$CTR^BCHRLU COVPAGE+5
$$LOC^BCHRLU COVPAGE+5
^DIWP WP+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"RPMS/CHR-PCC ",$S(BCHPTVS="P":"PATIENT",1:"CHR RECORD")," ",$S(BCHCTYP="D":"LISTING",1:"COUNT")
  • Line Location: COVPAGE+3
Function Call: WRITE
  • Prompt: !!,"REPORT REQUESTED BY: ",$P(^VA(200,DUZ,0),U)
  • Line Location: COVPAGE+4
Function Call: WRITE
  • Prompt: !,$$CTR^BCHRLU($$LOC^BCHRLU),!
  • Line Location: COVPAGE+5
Function Call: WRITE
  • Prompt: !!,"The following report contains a ",$S(BCHPTVS="V":"CHR Record",1:"Patient")," report based on the",!,"following criteria:",!
  • Line Location: COVPAGE+6
Function Call: WRITE
  • Prompt: !,$S(BCHPTVS="P":"PATIENT",1:"VISIT")," Selection Criteria"
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !!,"PATIENTS: ",BCHREGN
  • Line Location: SHOW+2
Function Call: WRITE
  • Prompt: !!?6,"Date of Service range: ",BCHBDD," to ",BCHEDD,!
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOW+8
Function Call: WRITE
  • Prompt: " ; "
  • Condition for execution: C'=1&(BCHY'="")
  • Line Location: SHOW+10
Function Call: WRITE
  • Prompt: X
  • Line Location: SHOW+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOWP+3
Function Call: WRITE
  • Prompt: !!,$S(BCHPTVS="V":"NO VISITS",1:"NO PATIENTS")_" TO REPORT.",!
  • Line Location: SHOWP+5
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: SHOWP+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOWP+8
Function Call: WRITE
  • Prompt: !!,"PRINT Field Selection"
  • Line Location: SHOWP+9
Function Call: WRITE
  • Prompt: $P(^BCHTRPT(BCHRPT,12,X,0),U,2),")"
  • Line Location: SHOWP+13
Function Call: WRITE
  • Prompt: !?10," TOTAL column width: ",BCHTCW
  • Line Location: SHOWP+15
Function Call: WRITE
  • Prompt: !!?6,$S(BCHPTVS="V":"Records",1:"Patients")," will be sorted by: ",$P(^BCHSORT(BCHSORT,0),U),!
  • Line Location: SHOWP+18
Function Call: WRITE
  • Prompt: !?6,"Each ",$P(^BCHSORT(BCHSORT,0),U)," will be on a separate page.",!
  • Line Location: SHOWP+20
Function Call: WRITE
  • Prompt: !!,$S(BCHPTVS="V":"NO VISITS",1:"NO PATIENTS")_" TO REPORT.",!
  • Line Location: SHOWP+21
Function Call: WRITE
  • Prompt: !!!,$S(BCHPTVS="V":"NO VISITS",1:"NO PATIENTS")_" TO REPORT.",!
  • Line Location: COUNT+2
Function Call: WRITE
  • Prompt: !!!,"Total COUNT of ",$S(BCHPTVS="P":"Patients",1:"Records"),": ",BCHRCNT
  • Line Location: COUNT+3
Function Call: WRITE
  • Prompt: !!!,"Total COUNT of ",$S(BCHPTVS="P":"Patients",1:"Records"),": ",BCHPTCT
  • Line Location: COUNT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BCHSORT - [#90002.41] SHOW+9, SHOW+10, SHOWP+4, SHOWP+13, SHOWP+18, SHOWP+20
^BCHTRPT - [#90002.42] SHOW+6, SHOW+7, SHOW+10, SHOWP+10, SHOWP+11, SHOWP+13, WP+4
^DIBT( SHOW+5
^DIC - [#1] WP+3
^UTILITY($J WP+2!, WP+7, WP+9!
^VA(200 - [#200] COVPAGE+4
^XTMP("BCHRL" SHOWP+5, SHOWP+21, COUNT+2

Label References

Name Line Occurrences
COUNT SHOWP+1
PAUSE SHOWP+10
SHOWP SHOW+6

Naked Globals

Name Field # of Occurrence
^(2 SHOW+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BCHBDD SHOW+3, SHOW+4
>> BCHBTH SHOWP+5, SHOWP+21, COUNT+2
>> BCHCRIT SHOWP+11*, SHOWP+13
>> BCHCTYP COVPAGE+3, SHOWP+1, SHOWP+2, SHOWP+7
BCHDA WP+3, WP+9!
>> BCHEDD SHOW+3, SHOW+4
BCHFILE WP+3, WP+9!
>> BCHG WP+3*, WP+4, WP+5
>> BCHI SHOW+7*, SHOW+9, SHOW+10, SHOWP+11*, WP+4
>> BCHJOB SHOWP+5, SHOWP+21, COUNT+2
BCHNODE WP+9!
>> BCHPCNT WP+7*
>> BCHPRNM( WP+7*
>> BCHPTCT COUNT+4
>> BCHPTVS COVPAGE+3, COVPAGE+6, SHOW+1, SHOWP+5, SHOWP+18, SHOWP+21, COUNT+2, COUNT+3, COUNT+4
BCHQ SHOW+10!, SHOW+11!
>> BCHRCNT COUNT+3
>> BCHRDTR SHOW+3
>> BCHREGN SHOW+2
>> BCHRPT SHOW+6, SHOW+7, SHOW+10, SHOWP+10, SHOWP+11, SHOWP+13, WP+4
>> BCHSEAT SHOW+5
>> BCHSORT SHOWP+4, SHOWP+16, SHOWP+18, SHOWP+20
>> BCHSPAG SHOWP+20
>> BCHTCW SHOWP+15
>> BCHTYPE SHOW+4, SHOW+5
>> BCHX WP+4*
>> BCHY SHOW+10*
>> C SHOW+10*
DIWF WP+8!
DIWL WP+4*, WP+7, WP+8!
DIWR WP+4*, WP+8!
DUZ COVPAGE+4
IOF COVPAGE+2, SHOW+8, SHOWP+3, SHOWP+5, SHOWP+7, SHOWP+8, SHOWP+12, SHOWP+14, SHOWP+17, SHOWP+19
, PAUSE+1, COUNT+1
IOSL SHOW+8, SHOWP+3, SHOWP+8, SHOWP+12, SHOWP+14, SHOWP+17, SHOWP+19, COUNT+1
IOST COVPAGE+2, PAUSE+1
U COVPAGE+4, SHOW+5, SHOW+9, SHOWP+4, SHOWP+11, SHOWP+13, SHOWP+18, SHOWP+20, WP+4
>> X SHOW+10*, SHOWP+13*, WP+5*
>> Y WP+5*
Z WP+7*, WP+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All