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

Package: HINQ

Routine: DVBHUTIL


Information

DVBHUTIL ;ALB/JLU -This is a general utility program ;3/19/90

Source Information

Source file <DVBHUTIL.m>

Entry Points

Name Comments DBIA/ICR reference
A
Q
2
SIGN ;General sign converter var to be worked on/defined DVBV1,DVBV2
SCRHD
CHK ;This entry point will print an error message for the edit template
POW ;This entry point is to determine the variable for the input to the
VERR ;This entry point prints an error message if mas not >5.1 cause .305 unemployable field is not there.
SCRQ ;The screens will call this entry point to read the answer from the user.
W2 ;error message for missing data found in sign subroutine

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DVBON,"",DVBOFF
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !,DVBBLO,"",DVBBLF
  • Line Location: A+6
Function Call: READ
  • Variable: DVBUQ
  • Timeout: DTIME
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: !!,"Is this the patient to update (YES, NO, IGNORE, DISPLAY, ALERT)? YES//"
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: " YES"
  • Line Location: Q+2
Function Call: WRITE
  • Prompt: " NO"
  • Line Location: Q+11
Function Call: WRITE
  • Prompt: " IGNORE"
  • Line Location: Q+12
Function Call: WRITE
  • Prompt: " DISPLAY"
  • Line Location: Q+14
Function Call: WRITE
  • Prompt: " ALERT"
  • Line Location: Q+15
Function Call: WRITE
  • Prompt: *7,!," 'Y'es, Will continue with this patient",!," 'N'o, Go next patient",!," 'I'gnore, Patient will NOT appear in ALL option until reHINQ",!," 'D'isplay will show you the HINQ mail message."
  • Line Location: Q+23
Function Call: WRITE
  • Prompt: !," 'A'lert, will update and display the Alert if processing alerts",!," '^' to quit"
  • Line Location: Q+24
Function Call: WRITE
  • Prompt: !,?9,"**************************************************************"
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: !,?9,"* This option will print out a report, identical to the mail *"
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !,?9,"* messages, of the patients in the suspense file with a *"
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !,?9,"* successful HINQ request. *"
  • Line Location: 2+3
Function Call: WRITE
  • Prompt: !,?9,"**************************************************************"
  • Line Location: 2+4
Function Call: WRITE
  • Prompt: ?1,$E(DVBDIQ(2,DFN,.01,"E"),1,30)
  • Line Location: SCRHD+1
Function Call: WRITE
  • Prompt: ?22,"Patient File"
  • Line Location: SCRHD+2
Function Call: WRITE
  • Prompt: ?35,DVBON,"((",DVBSCRN,"))",DVBOFF
  • Line Location: SCRHD+3
Function Call: WRITE
  • Prompt: ?49,"HINQ Response"
  • Line Location: SCRHD+4
Function Call: WRITE
  • Prompt: ?68,"SSN: ",DVBON,$E(DVBDIQ(2,DFN,.09,"E"),6,9),DVBOFF
  • Line Location: SCRHD+5
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------------"
  • Line Location: SCRHD+6
Function Call: WRITE
  • Prompt: !!,*7,?7,"BIRLS only response and the 'Diagnostic Verified Indicator' is NO.",!,?16,"Verify SC at folder location: ",DVBFL,!,?28,DVBON,"No updating allowed.",DVBOFF
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !!,*7,?2,"Your version of MAS is NOT greater than 5.1, thus the Unemployable field"
  • Line Location: VERR+1
Function Call: WRITE
  • Prompt: !,?2,"is not in your patient file. No uploading of this field allowed."
  • Line Location: VERR+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: VERR+3
Function Call: WRITE
  • Prompt: !!,DVBON,"<RET> ",DVBOFF
  • Line Location: SCRQ+1
Function Call: WRITE
  • Prompt: "to CONTINUE, "
  • Line Location: SCRQ+2
Function Call: WRITE
  • Prompt: DVBON,"'^' ",DVBOFF
  • Line Location: SCRQ+3
Function Call: WRITE
  • Prompt: "to QUIT, "
  • Line Location: SCRQ+4
Function Call: WRITE
  • Prompt: DVBON,"N N-N N,N,N,N or (A)-ALL",DVBOFF
  • Line Location: SCRQ+5
Function Call: WRITE
  • Prompt: " to update: "
  • Line Location: SCRQ+6
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: SCRQ+7
Info |  Source |  Entry Points |  Interaction Calls