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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DVBHQDL

Package: HINQ

Routine: DVBHQDL


Information

DVBHQDL ;ISC-ALBANY/PKE-HINQ IDCU,RDPC LOGON ; Sep 30, 2021@09:08

Source Information

Source file <DVBHQDL.m>

Entry Points

Name Comments DBIA/ICR reference
EN
ENTSK
NAM ;
HEL ;
END ;
EX
EX1
XXX
RESET
BUSY
YYY
SUS
ERR ;Come here on error, screen with error screens
MESS ;DVB*38 HINQ UNAVAILABLE MESSAGE MLR 5.10.01
CONT ;display messages and continue with HINQ
HELLO(IND) ;if **HELLO** string was broken up, save it to a var to combine
HELLO2(IND) ;add string from next read to string in HELLO
PORT(DVBSTN) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ not defined",!
  • Line Location: DVBHQDL+4
Function Call: WRITE
  • Prompt: !," HINQ Employee Number not in New Person file",!," Notify System manager",!
  • Line Location: DVBHQDL+6
Function Call: WRITE
  • Prompt: !,"This option will take 30 seconds to activate - using IP Addressing"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"Do you wish to continue"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !," Enter YES to select option"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"Connecting to VBA database"
  • Line Location: ENTSK+6
Function Call: READ
  • Variable: X(Z)
  • Timeout: 3
  • Line Location: HEL+3
Function Call: WRITE
  • Prompt: !!,"One moment, please...",!!
  • Line Location: HEL+13
Function Call: READ
  • Variable: X(Z2)
  • Timeout: 3
  • Line Location: HEL+14
Function Call: WRITE
  • Prompt: "."
  • Line Location: HEL+14
Function Call: WRITE
  • Prompt: !,"HINQ not allowed at this time"
  • Line Location: HEL+22
Function Call: WRITE
  • Prompt: "$%$DIS",$C(13),!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: "$$$BYEF",$C(13)
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!,"Terminating VBA session...",!
  • Line Location: END+4
Function Call: READ
  • Variable: X(Z)
  • Timeout: 1
  • Line Location: END+5
Function Call: WRITE
  • Prompt: !,"VBA DISCONNECTED",!
  • Line Location: END+5
Function Call: WRITE
  • Prompt: !,X
  • Line Location: XXX+0
Function Call: WRITE
  • Prompt: !," ",IO," Device is busy"
  • Line Location: BUSY+0
Function Call: WRITE
  • Prompt: !,"Bad Network User ID/Password notify Site Manager "
  • Line Location: YYY+0
Function Call: WRITE
  • Prompt: !,"Enter requests in the Suspense file"
  • Line Location: SUS+0
Function Call: WRITE
  • Prompt: !,"Disconnect trapped..."
  • Line Location: ERR+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: MESS+3
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("ATTENTION: HINQ IS CURRENTLY UNAVAILABLE!",80,".")
  • Line Location: MESS+4
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Please enter HINQ request in Suspense File",80)
  • Line Location: MESS+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("or try again later.",80)
  • Line Location: MESS+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: MESS+7
Function Call: WRITE
  • Prompt: !!,"You may continue with your HINQ request...",!!
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(395 - [#395] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call