Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
PROMPT1 ; Prompt user for whether to include all ICD Diagnosis Codes
PROMPT2 ; Prompt user for individual ICD9 Diagnosis Code
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))
START1 ; Initialization 1
START2 ; Initialization 2
DQ ; De-queue
LOOP ; Loop thru ^HBHC(632,"C" (appointment date) cross-ref to build report
EXIT ; Exit module
PROCESS ; Process record & build ^TMP("HBHC",$J) global
DX ; Process Diagnosis (DX), HBHCDFN must be defined prior to call, returns code plus text in local array HBHCDX
SET ; Set ^TMP node
; HBH*1*22 shortens SSN to Last 4 only for display; following full SSN left intact since used as subscript

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
Info |  Source |  Entry Points |  Interaction Calls