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

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) ;

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