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

Package: Hospital Based Home Care

Routine: HBHCUTL3


Information

HBHCUTL3 ;LR VAMC(IRMS)/MJT - HBHC Utility module, Entry points: PSEUDO, PCEMSG, DX, DX80, CPT, MFHS, MFH, DATE3, DATE6, DATE3L, & DATE6L ;Jan 2000

Source Information

Source file <HBHCUTL3.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
DRG Grouper 1 ($$CODEC,$$VSTD)^ICDEX  
Lexicon Utility 1 $$IMPDATE^LEXU  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Hospital Based Home Care 20 HBHCADM  HBHCR15B  HBHCR19A  HBHCR19B  HBHCRP10  HBHCRP17  HBHCRP18  HBHCRP1A  
HBHCRP21  HBHCRP22  HBHCRP23  HBHCRP27  HBHCRP29  HBHCRP3  HBHCRP4  HBHCRP7  
HBHCUPD  HBHCWORK  HBHCXMA  HBHCXMV  

Entry Points

Name Comments DBIA/ICR reference
PSEUDO ; Print pseudo SSN message
PCEMSG ; Print PCE correction of errors message
DX ; Diagnosis (DX) info, HBHCDFN must be defined prior to call, returns code plus text in local array HBHCDX
DX80 ; Print DX info in 80 column format, HBHCDX( array must be defined prior to call
CPT ; CPT code info, HBHCDFN must be defined prior to call, returns code plus text in local array HBHCCPTA
CPTMOD ; Process CPT Modifier code plus text into local array HBHCCPTA(HBHCCPT,HBHCJ)
MFHS ; Set Medical Foster Home (MFH) Site variable if Sanctioned site
MFH ; Prompt for HBPC or MFH population inclusion on report; set Medical Foster Home Report variable: HBHCMFHR
DATE3 ; Calc 3 mo date based on month only for use by MFH Inspection or Training e-mail processing
DATE6 ; Calc 6 mo date based on month only for use by MFH Inspection or Training report processing
DATE3L ; Calc 3 mo date based on month only for use by MFH License Expiration e-mail processing
DATE6L ; Calc 6 mo date based on month only for use by MFH License Expiration report processing
CHECK ; Check length of HBHCDATE
ICDTEXT(HBHCBEG,HBHCEND) ;
ICDCSYS(HBHCBEG,HBHCEND) ;

External References

Name Field # of Occurrence
^DIR MFH+1
$$CODEC^ICDEX DX+5
$$VSTD^ICDEX DX+6
$$CPT^ICPTCOD CPT+1
$$MOD^ICPTMOD CPTMOD+1
$$IMPDATE^LEXU ICDTEXT+2, ICDCSYS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Patient visit records with pseudo social security numbers (SSNs) exist.",!,"Print the 'Pseudo Social Security Number Report' located on the HBHC Reports"
  • Line Location: PSEUDO+1
Function Call: WRITE
  • Prompt: !,"Menu to obtain a list of patients with invalid SSNs. HBHC must determine",!,"what corrective action is appropriate to eliminate these records from the",!,"HBHC Information System.",!!
  • Line Location: PSEUDO+2
Function Call: WRITE
  • Prompt: !!,"Note: Please use Appointment Management to Correct Visit Errors. Run",!?7,"Edit Form Errors Data option when corrections are complete."
  • Line Location: PCEMSG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DX80+1
Function Call: WRITE
  • Prompt: "Diagnosis: "
  • Condition for execution: HBHCFLG=0
  • Line Location: DX80+1
Function Call: WRITE
  • Prompt: ?13
  • Condition for execution: HBHCFLG=1
  • Line Location: DX80+1
Function Call: WRITE
  • Prompt: HBHCDX(HBHCI)
  • Line Location: DX80+1
Routine Call
  • DIR
  • Line Location:
    • MFH+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HBHC(631.9 - [#631.9] MFHS+1
^HBHC(632 - [#632] DX+3, DX+4, CPT+1, CPTMOD+1

Label References

Name Line Occurrences
CHECK DATE3+1, DATE6+1, DATE3L+1, DATE6L+1
CPTMOD CPT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR MFH+1!
DIR("?" MFH+1*
DIR("A" MFH+1*
DIR(0 MFH+1*
DT DATE3+1, DATE6+1, DATE3L+1, DATE6L+1
HBHCBEG ICDTEXT~, ICDTEXT+4, ICDCSYS~, ICDCSYS+4
HBHCCPT CPT+1*, CPT+2!
HBHCCPTA CPT+1!
HBHCCPTA( CPT+1*, CPTMOD+1*
>> HBHCDATE DATE3+1*, DATE6+1*, DATE3L+1*, DATE6L+1*, CHECK+1*
>> HBHCDFN DX+3, DX+4, CPT+1, CPTMOD+1
HBHCDX DX+2!, DX80+2!
HBHCDX( DX+7*, DX80+1
HBHCDXCODE DX+1~, DX+5*, DX+7
HBHCDXDESC DX+1~, DX+6*, DX+7
HBHCEND ICDTEXT~, ICDTEXT+3, ICDCSYS~, ICDCSYS+5
HBHCFLG DX80+1*, DX80+2!
HBHCI DX+2*, DX+3*, DX+4, DX+7, DX+8!, DX80+1*, DX80+2!, CPT+1*, CPT+2!, CPTMOD+1
HBHCICD10DT ICDTEXT+1~, ICDTEXT+2*, ICDTEXT+3, ICDTEXT+4, ICDCSYS+1~, ICDCSYS+3*, ICDCSYS+4, ICDCSYS+5
HBHCICDP DX+4*, DX+5, DX+6, DX+8!
HBHCJ CPT+2!, CPTMOD+1*
>> HBHCMFHR MFH+2*
>> HBHCMFHS MFHS+1*
>> HBHCMO DATE3+1*, DATE6+1*, DATE3L+1*, DATE6L+1*
HBHCMOD CPT+2!, CPTMOD+1*
HBHCRET ICDCSYS+1~, ICDCSYS+2*, ICDCSYS+4*, ICDCSYS+5*, ICDCSYS+6*, ICDCSYS+7
HBHCSP3 CPT+1*, CPT+2!, CPTMOD+1
>> HBHCSP8 DX+2*, DX+7
U DX+4, CPT+1, CPTMOD+1, MFHS+1
>> Y MFH+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All