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

Package: Hospital Based Home Care

Routine: HBHCR19A


Information

HBHCR19A ;LR VAMC(IRMS)/MJT - HBHC file 632 rpt, DX info by date range, sorted by DX category, then pt name, includes: name, last four, DX (code & text), w/category subtotals & grand total, calls HBHCR19B & DX^HBHCUTL3 ;12/21/05 3:39pm

Source Information

Source file <HBHCR19A.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Hospital Based Home Care 4 (EXIT,INITIAL,PRTLOOP)^HBHCR19B  (HDRRANGE,START,TODAY)^HBHCUTL  ENDRPT^HBHCUTL1  ($$ICDCSYS,$$ICDTEXT,DX)^HBHCUTL3  
VA FileMan 3 C^%DTC  YN^DICN  ^DIR  
Kernel 2 ^%ZIS  ^%ZTLOAD  
Lexicon Utility 2 $$CODELIST^LEX10CS2  $$IMPDATE^LEXU  
DRG Grouper 1 ($$CODEC,$$CSI)^ICDEX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Hospital Based Home Care 1 HBHCR19A  

Entry Points

Name Comments DBIA/ICR reference
SET ; Set ^TMP node
; HBH*1*22 shortens SSN to Last 4 only for display; following full SSN left intact since used as subscript
START2 ; Initialization 2
START1 ; Initialization 1
PROMPT1 ; Prompt user for whether to include all ICD Diagnosis Codes
PROCESS ; Process record & build ^TMP("HBHC",$J) global
PROMPT3 ; Prompt user for whether ICD9 category is to be considered a range (e.g. Diabetes ICD9 codes range from 250 to 250.93 (as of 8/97))
PROMPT2 ; Prompt user for individual ICD9 Diagnosis Code
EXIT ; Exit module
DX ; Process Diagnosis (DX), HBHCDFN must be defined prior to call, returns code plus text in local array HBHCDX
LOOP ; Loop thru ^HBHC(632,"C" (appointment date) cross-ref to build report
DQ ; De-queue

External References

Name Field # of Occurrence
C^%DTC LOOP+1
^%ZIS START2+1
^%ZTLOAD START2+2
YN^DICN PROMPT1+1, PROMPT3+1
^DIR PROMPT2+5
EXIT^HBHCR19B EXIT+1
INITIAL^HBHCR19B DQ+2
PRTLOOP^HBHCR19B LOOP+4
HDRRANGE^HBHCUTL DQ+2, DQ+3
START^HBHCUTL HBHCR19A+19
TODAY^HBHCUTL DQ+2
ENDRPT^HBHCUTL1 LOOP+5
$$ICDCSYS^HBHCUTL3 PROMPT2+4
$$ICDTEXT^HBHCUTL3 LOOP+4
DX^HBHCUTL3 DX+1
$$CODEC^ICDEX PROMPT3+10
$$CSI^ICDEX PROMPT3+7
$$CODELIST^LEX10CS2 PROMPT3+15
$$IMPDATE^LEXU PROMPT3+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Do you wish to include ALL ICD Diagnosis Codes on the report"
  • Line Location: PROMPT1+1
Function Call: WRITE
  • Prompt: !!,"A 'Yes' response will include ALL ICD Diagnosis Codes. A 'No' response will",!,"prompt for an individual ICD Diagnosis Code."
  • Line Location: PROMPT1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT2+1
Function Call: WRITE
  • Prompt: !!,"Do you wish to include ALL codes within category "_$P($P(HBHCTMP,U,2),".")
  • Line Location: PROMPT3+1
Function Call: WRITE
  • Prompt: !!,"A 'Yes' response will include ALL ICD Diagnosis Codes withing the category.",!,"A 'No' response selects the specific ICD9 Diagnosis Code."
  • Line Location: PROMPT3+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+3
Function Call: WRITE
  • Prompt: !!,HBHCZ,!,$$ICDTEXT^HBHCUTL3(HBHCBEG1,HBHCEND1)_" Diagnosis Categories Total: ",HBHCTOT,!,HBHCZ
  • Line Location: LOOP+4
Routine Call
  • DIR
  • Line Location:
    • PROMPT2+5
Routine Call
  • %ZIS
  • Line Location:
    • START2+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PROCESS+1
^HBHC(632 - [#632] LOOP+2
^TMP("HBHC" LOOP+3, LOOP+4, SET+2*
^TMP("HBHCLEXDATA" PROMPT3+14!, PROMPT3+16, PROMPT3+17
^TMP($J HBHCR19A+21!, PROMPT3+9*, PROMPT3+12*, PROMPT3+19*, PROMPT3+20*, START1+1, DX+2

Label References

Name Line Occurrences
EXIT HBHCR19A+20, PROMPT1+2, PROMPT2+6, START1+1, START2+1, START2+2
PROCESS LOOP+2
PROMPT1 PROMPT1+4
PROMPT2 PROMPT3+21
PROMPT3 PROMPT3+3
SET DX+2
START1 PROMPT2+7, PROMPT3+2
START2 PROMPT1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PROMPT1+1*, PROMPT1+2, PROMPT1+3, PROMPT1+4, PROMPT3+1*, PROMPT3+2, PROMPT3+3, PROMPT3+8, PROMPT3+13
>> %ZIS START2+1*
D0 PROMPT1+1!
DD PROMPT1+1!
DIR PROMPT2+2!
DIR("S" PROMPT2+4*
DIR(0 PROMPT2+2*
>> DTOUT PROMPT2+6
>> DUOUT PROMPT2+6
>> HBHCAPDT LOOP+1*, LOOP+2*
>> HBHCBEG1 HBHCR19A+20, PROMPT2+4, LOOP+1, LOOP+4
>> HBHCCAT PROMPT3+4*, PROMPT3+9, PROMPT3+15, PROMPT3+19
>> HBHCCATB PROMPT3+17*, PROMPT3+18, PROMPT3+19, PROMPT3+20
>> HBHCCC START2+1*, DQ+3*
>> HBHCDFN LOOP+2*
>> HBHCDPT0 PROCESS+1*, SET+2
>> HBHCDX DX+2*, SET+2
>> HBHCDX( DX+2
HBHCDXCODE PROMPT3+5~, PROMPT3+10*, PROMPT3+11, PROMPT3+12
HBHCDXCSYS PROMPT3+5~, PROMPT3+7*, PROMPT3+15
HBHCDXIEN PROMPT3+5~, PROMPT3+6*, PROMPT3+7, PROMPT3+10
>> HBHCEND1 HBHCR19A+20, PROMPT2+4, LOOP+2, LOOP+4
>> HBHCFLAG PROMPT1+3*, DX+2
>> HBHCI DX+2*
>> HBHCNOD0 LOOP+2*, PROCESS+1
>> HBHCSP2 DX+2
>> HBHCTMP PROMPT2+8*, PROMPT3+1, PROMPT3+4, PROMPT3+6, PROMPT3+9
>> HBHCTOT LOOP+4
>> HBHCZ LOOP+4
>> I PROMPT3+16*, PROMPT3+17
IO DQ+1, DQ+2, DQ+3
IO("Q" START2+2
IO("S" DQ+2, DQ+3
IO(0 DQ+2, DQ+3
IOF DQ+3
IOP START2+1!
>> POP START2+1
U PROMPT3+1, PROMPT3+4, PROMPT3+6, PROMPT3+9, LOOP+2, PROCESS+1, SET+2
>> X LOOP+1
>> X1 LOOP+1*
>> X2 LOOP+1*
>> Y PROMPT2+7, PROMPT2+8
>> ZTDESC START2+2*
ZTIO START2+1!
>> ZTRTN START2+2*
ZTSAVE START2+1!
ZTSAVE("HBHC*" START2+2*
ZTSAVE("^TMP($J," START2+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All