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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: HBHCRP3

Package: Hospital Based Home Care

Routine: HBHCRP3


Information

HBHCRP3 ; LR VAMC(IRMS)/MJT-HBHC report on file 632, individual patient visit data by date range, includes all fields, calls DX^HBHCUTL3, DX80^HBHCUTL3, CPT^HBHCUTL3 ; Jan 2000

Source Information

Source file <HBHCRP3.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Hospital Based Home Care 3 (HDRRANGE,START)^HBHCUTL  ENDRPT^HBHCUTL1  (CPT,DX,DX80)^HBHCUTL3  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Hospital Based Home Care 1 HBHCRP3  

Entry Points

Name Comments DBIA/ICR reference
PROMPT ; Prompt user for patient name
DQ ; De-queue
LOOP ; Loop thru ^HBHC(632) "B" cross-ref to build report
EXIT ; Exit module
PROCESS ; Process record
WRITE ; Write record info
CPT80 ; Print CPT info in 80 column format
HDRCONT ; Print header info when record continued to new page

External References

Name Field # of Occurrence
^%ZIS PROMPT+7
^%ZISC EXIT+1
^%ZTLOAD PROMPT+8
^DIC PROMPT+1
HDRRANGE^HBHCUTL DQ+5, DQ+6, PROCESS+2, HDRCONT+1
START^HBHCUTL PROMPT+5
ENDRPT^HBHCUTL1 LOOP+2
CPT^HBHCUTL3 PROCESS+4
DX^HBHCUTL3 PROCESS+4
DX80^HBHCUTL3 PROCESS+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"This patient has no visits on file.",!!
  • Line Location: PROMPT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: !,"Visit Date: ",$S($P(HBHCNOD0,U,2)]"":$E($P(HBHCNOD0,U,2),4,5)_"-"_$E($P(HBHCNOD0,U,2),6,7)_"-"_(1700+$E($P(HBHCNOD0,U,2),1,3)),1:""),?27,"Prov No.: ",$P(^HBHC(631.4,$P(HBHCNOD0,U,4),0),U),?45,"Prov Name: ",HBHCPRV
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: !," Modifier: - ",HBHCCPTA(HBHCI,HBHCJ)
  • Line Location: CPT80+1
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: CPT80+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRCONT+1
Function Call: WRITE
  • Prompt: !,HBHCMSG,!
  • Line Location: HDRCONT+1
Routine Call
  • %ZIS
  • Line Location:
    • PROMPT+7
Routine Call
  • DIC
  • Line Location:
    • PROMPT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DQ+3
^HBHC(631.4 - [#631.4] PROCESS+3, WRITE+1
^HBHC(632 - [#632] PROMPT+4, LOOP+1
^VA(200 - [#200] PROCESS+3

Label References

Name Line Occurrences
CPT80 PROCESS+4
EXIT PROMPT+2, PROMPT+6, PROMPT+7, PROMPT+8
HDRCONT CPT80+1
PROCESS LOOP+1
PROMPT PROMPT+4
WRITE PROCESS+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS PROMPT+7*
DIC PROMPT+1!*, EXIT+2!
DIC(0 PROMPT+1*
HBHCBEG1 PROMPT+6, EXIT+2!, PROCESS+1
HBHCBEG2 EXIT+2!
HBHCCC PROMPT+1*, PROMPT+7*, DQ+6*, EXIT+2!, PROCESS+2
HBHCCOLM DQ+4*, EXIT+2!
HBHCCPT EXIT+2!
HBHCCPTA EXIT+2!
HBHCCPTA( CPT80+1
HBHCDFN LOOP+1*, EXIT+2!
HBHCDPT PROMPT+3*, PROMPT+4, DQ+3, LOOP+1, EXIT+2!
HBHCDPT0 DQ+3*, EXIT+2!
HBHCEND1 PROMPT+6, EXIT+2!, PROCESS+1
HBHCEND2 EXIT+2!
HBHCHEAD DQ+4*, EXIT+2!
HBHCI EXIT+2!, CPT80+1*
HBHCINFO DQ+3*, DQ+4, EXIT+2!
HBHCJ EXIT+2!, CPT80+1*
HBHCMSG DQ+2*, EXIT+2!, HDRCONT+1
HBHCNOD0 LOOP+1*, EXIT+2!, PROCESS+1, PROCESS+3, WRITE+1
HBHCPAGE EXIT+2!
HBHCPRV EXIT+2!, PROCESS+3*, WRITE+1
HBHCSP2 DQ+2*, DQ+3, EXIT+2!
HBHCTDY EXIT+2!
HBHCY DQ+2*, EXIT+2!, CPT80+2
HBHCZ DQ+2*, EXIT+2!
IO DQ+1, DQ+5, DQ+6
IO("Q" PROMPT+8
IO("S" DQ+5, DQ+6
IO(0 DQ+5, DQ+6
IOF PROCESS+2, HDRCONT+1
IOP PROMPT+7!
IOSL PROCESS+2, CPT80+1
>> POP PROMPT+7
U DQ+3, LOOP+1, PROCESS+1, PROCESS+3, WRITE+1
X EXIT+2!
Y PROMPT+2, PROMPT+3, EXIT+2!
>> ZTDESC PROMPT+8*
ZTIO PROMPT+7!
>> ZTRTN PROMPT+8*, PROCESS+2
ZTSAVE PROMPT+7!
ZTSAVE("HBHC*" PROMPT+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All