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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 ^%ZIS  (CALL,CLOSE)^%ZISTCP  $$EC^%ZOSV  (,$$NEWERR,UNWIND)^%ZTER  $$CJ^XLFSTR  
VA FileMan 3 YN^DICN  FILE^DIE  $$GET1^DIQ  
HINQ 2 ^DVBHQD1  SILENT^DVBHQTM  

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

Package Total Caller Graph
HINQ 3 DVB HREQ-INDIVHREQ  DVBHQDB  DVBHQDX  
Kernel 1 ^DIC(19  

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

External References

Name Field # of Occurrence
^%ZIS DVBHQDL+3
CALL^%ZISTCP ENTSK+28
CLOSE^%ZISTCP EX1+1, ERR+5
$$EC^%ZOSV ERR+1
^%ZTER ERR+4
$$NEWERR^%ZTER ENTSK+9, ENTSK+10
UNWIND^%ZTER ERR+6
YN^DICN EN+2
FILE^DIE PORT+6, PORT+8
$$GET1^DIQ PORT+3
^DVBHQD1 CONT+2
SILENT^DVBHQTM ENTSK+1
$$CJ^XLFSTR MESS+4, MESS+5, MESS+6

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
Routine Call
  • %ZIS
  • Line Location:
    • DVBHQDL+3
Routine Call
  • DIE
  • Line Location:
    • PORT+6
    • PORT+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(395 - [#395] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EOFF" ENTSK+31
^%ZOSF("LPC" DVBHQDL+3
^%ZOSF("RM" ENTSK+31
^%ZOSF("TRAP" ENTSK+10
^%ZOSF("TYPE-AHEAD" ENTSK+31
^DVB(395 - [#395] ENTSK+2, ENTSK+12, ENTSK+16
^VA(200 - [#200] DVBHQDL+5

Label References

Name Line Occurrences
$$PORT ENTSK+26
BUSY ENTSK+29
CONT HEL+15, HEL+18
EN EN+3
END ENTSK+4, RESET
EX ENTSK+1, BUSY, YYY
EX1 EN+3, EN+4, ENTSK+14
HELLO HEL+9, HEL+10, HEL+20, HEL+21
HELLO2 HEL+6, HEL+17
MESS ENTSK+1, HEL+22
NAM RESET+1
SUS BUSY

Naked Globals

Name Field # of Occurrence
^( DVBHQDL+5
^("HQ" ENTSK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+2*, EN+3, EN+4, EX1!
C ENTSK+32*, EX1!, RESET*
DTIME DVBHQDL+3*
DUZ DVBHQDL+4, DVBHQDL+5
DVBABORT ENTSK+1*, ENTSK+4*, HEL+4*, HEL+7*, EX*, EX1!
DVBDEV EX1!
DVBERR PORT+1!, PORT+4
>> DVBFDA(395 PORT+5*, PORT+7*
DVBFLG HEL+1~, HEL+6, HEL+8*, HEL+17, HEL+19*, HELLO+3*
DVBHEL HEL+1~, HEL+7, HEL+18, HELLO+4*, HELLO+5*, HELLO+6*, HELLO2+1*
>> DVBHERR ERR+1*, ERR+2
>> DVBID ENTSK+3*
>> DVBIDCU ENTSK+2*, ENTSK+3, ENTSK+5
>> DVBIO CONT+2*
DVBIOF EN+6*, EX1!
DVBIOSL EN+6*, EX1!
DVBIOST EN+6*, EX1!
DVBIP ENTSK+12*, ENTSK+13, ENTSK+28, EX1!
DVBLOG ENTSK+3*, ENTSK+4, ENTSK+5*, END+2, END+3, EX1!
DVBNUM DVBHQDL+5*, EX1!
>> DVBPORT ENTSK+26*, ENTSK+28, PORT+2*, PORT+4, PORT+11*, PORT+12*, PORT+15*, PORT+16*, PORT+17
>> DVBPT PORT+3*, PORT+7, PORT+11, PORT+15
>> DVBPU ENTSK+3*
>> DVBPW ENTSK+3*
DVBQUIT HEL+1~, HEL+3, HEL+4*, HEL+7*, HEL+14, HEL+15*, HEL+18*
DVBSTN ENTSK+16*, ENTSK+26, PORT~, PORT+9, PORT+13
DVBSTOP ENTSK+1!
DVBTSK EN+5*, ENTSK+1, ENTSK+4, ENTSK+6, ENTSK+9, ENTSK+10, ENTSK+14, HEL+2, HEL+12, END+1
, EX, EX1!, XXX, BUSY, YYY, SUS, MESS+1
>> DVBVBA HEL+11*
DVBVDI EX1!
G EX1!
IND HELLO~, HELLO+4, HELLO+5, HELLO2~, HELLO2+1
IO DVBHQDL+3, ENTSK+31, HEL+3, HEL+13, HEL+14, HEL+22, END+2, END+3, END+4, END+5
, XXX, BUSY, CONT+2*
IO(0 EN+2, ENTSK+6, HEL+13, HEL+14, HEL+22, END+4, END+5, XXX, YYY, SUS
, ERR+3, MESS+2, CONT+1, CONT+2
IOF EN+6
IOP DVBHQDL+3*!
IOSL EN+6
IOST EN+6
>> POP ENTSK+29
U DVBHQDL+3*, DVBHQDL+5, ENTSK+3, ENTSK+16
X DVBHQDL+3*!, ENTSK+10*, ENTSK+30*, HEL+3!, HEL+4!, HEL+7!, HEL+14!, EX1!, XXX
X( HEL+3*, HEL+4, HEL+5, HEL+9, HEL+10, HEL+14*, HEL+15, HEL+16, HEL+20, HEL+21
, END+5*, HELLO+4, HELLO+5, HELLO2+1
Y EX1!
Z HEL+3*, HEL+4, HEL+5, HEL+6, HEL+9, HEL+10, HEL+11, END+5*, EX1!
>> Z2 HEL+14*, HEL+15, HEL+16, HEL+17, HEL+20, HEL+21, HEL+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All