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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
HINQ 6 EN^DVBHIQM  TEM^DVBHIQR  WRT1^DVBHQD1  QB^DVBHQZ6  (ACKNOW,DISPLAY,PAGE)^DVBHT  ACHK^DVBHT1  
Kernel 2 ^%ZIS  ENDR^%ZISS  

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

Package Total Caller Graph
HINQ 18 DVBHCE  DVBHCE18  DVBHCE19  DVBHINQ UPDATE  DVBHQM11  DVBHQR1  DVBHQR11  DVBHQR12  
DVBHQR13  DVBHQUP  DVBHQZ6  DVBHS1  DVBHS2  DVBHS3  DVBHS4  DVBHS5  
DVBHS6  DVBHT  

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

External References

Name Field # of Occurrence
^%ZIS A
ENDR^%ZISS A+2
EN^DVBHIQM Q+14
TEM^DVBHIQR Q+14
WRT1^DVBHQD1 Q+14
QB^DVBHQZ6 CHK+4
ACKNOW^DVBHT Q+18
DISPLAY^DVBHT Q+17
PAGE^DVBHT Q+19
ACHK^DVBHT1 Q+16

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
Routine Call
  • %ZIS
  • Line Location:
    • A

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" A+5, A+7
^DPT - [#2] W2+4
^DVB(395 - [#395] A+1
^DVB(395.5 - [#395.5] Q+2*, Q+12*
^TMP($J Q+14!

Label References

Name Line Occurrences
Q Q+20, Q+25
W2 SIGN+6

Naked Globals

Name Field # of Occurrence
^(0 A+1, W2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A1 SIGN+4~, SIGN+5*
>> ANS SCRQ+7*
CT SIGN+4~, SIGN+5*
>> D0 CHK+4
>> DFN Q+2, Q+12, SCRHD+1, SCRHD+5, W2+3, W2+4
>> DIE("NO^" Q+5*
DTIME Q, VERR+3, SCRQ+7
>> DVB CHK+4*
>> DVBBLF A*, A+2*, A+6
>> DVBBLO A*, A+2*, A+6
>> DVBDATA Q+3, Q+4, Q+6, Q+9*, Q+15, SCRQ+8, SCRQ+9, SCRQ+10*
>> DVBDIQ(2 SCRHD+1, SCRHD+5
>> DVBERCS W2+1*
>> DVBFL CHK+3
>> DVBJ2 Q+18
DVBJIO Q+14*!
>> DVBJS SCRQ+14
>> DVBLIT1 A*, A+5*, SCRHD+3, CHK+4, SCRQ+1, SCRQ+3, SCRQ+5
>> DVBLIT2 A*, A+7*
>> DVBLP CHK+4*
DVBMM Q+14*!, CHK+4*
>> DVBNOALR Q+17
>> DVBOFF A*, A+2*, A+4, SCRHD+3, SCRHD+5, CHK+3, SCRQ+1, SCRQ+3, SCRQ+5
>> DVBON A*, A+2*, A+4, SCRHD+3, SCRHD+5, CHK+3, SCRQ+1, SCRQ+3, SCRQ+5
>> DVBOUT A*, Q*
>> DVBPOW POW+3
>> DVBPOW1 POW+3*, POW+4*
>> DVBPOWD POW+4
DVBQ VERR+3*!
>> DVBS SIGN+5
>> DVBS( SIGN+5*, SIGN+6, SIGN+7
>> DVBS("{" SIGN+5*
>> DVBSCRN SCRHD+3
>> DVBTSK W2+1
>> DVBUQ Q*, Q+1, Q+2, Q+11, Q+12, Q+14, Q+15, Q+20
>> DVBV1 SIGN+6, SIGN+7*
>> DVBV2 SIGN+6, SIGN+7*
IO(0 Q+14
IOBOFF A+2, A+10!
IOBON A+2, A+10!
IOF SCRHD
IOINHI A+2, A+10!
IOINLOW A+2, A+10!
IOP A*!
>> O A+4*, A+5, A+6*, A+7
U A+1, Q+2, Q+12, W2+4
V SIGN+4~, SIGN+7*
>> X A+2*
>> Y Q+1*, Q+6*, Q+7*, Q+8, Q+10*, Q+11*, Q+12*, Q+14*, Q+17*, Q+18*
, Q+19*, CHK+4*, SCRQ+7*, SCRQ+8, SCRQ+9*, SCRQ+11*, SCRQ+12, SCRQ+14*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All