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 |  Local Variables  | All
Print Page as PDF
Routine: VDEFMNU

Package: VDEF

Routine: VDEFMNU


Information

VDEFMNU ;INTEGIC/YG & BPOIFO/JG - Edit VDEF parameters & status ; 20 Dec 2005 12:57 PM

Source Information

Source file <VDEFMNU.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 YX^%DTC  ^DIC  ^DIE  ($$GET1,GETS)^DIQ  
Kernel 2 ($$ASKSTOP,$$JOB,ISQED,REQ,STAT)^%ZTLOAD  $$CNV^XLFUTL  
VDEF 1 REQ^VDEFCONT  

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

Package Total Caller Graph
VDEF 5 VDEF Request Processor Schedul  VDEF Request Queue Parameters  VDEF Site-Wide Parameters  VDEF Status  VDEF Suspend/Run Request Queue  

Entry Points

Name Comments DBIA/ICR reference
SITE ; Edit Site-Wide Parameters
REQUEST ; Edit Request Queue Parameters
REQUEST1
REQOFF ; Toggle Requestor On/Off
REQOFF1
QUEOFF ; Toggle Request Processor Queue on/off
QUEOFF1
SCHED ; Schedule processor
SCHED1
SCHFORM
DISP ; Display scheduling rules.
CUSTOD ; Edit Custodial Package Status
CUSTOD1
EVENT ; Edit VDEF API Event Status
EVENT1
REPORT ; Display VDEF status/parameters
REPORT1

External References

Name Field # of Occurrence
YX^%DTC REPORT1
$$ASKSTOP^%ZTLOAD QUEOFF1+11, QUEOFF1+12
$$JOB^%ZTLOAD REPORT1+25
ISQED^%ZTLOAD SCHED1+8
REQ^%ZTLOAD SCHED1+15
STAT^%ZTLOAD REPORT1+11, REPORT1+23
^DIC REQUEST1, REQOFF1, QUEOFF1, SCHED1, SCHED1+2, CUSTOD1+1, EVENT1+2
^DIE SITE+1, REQUEST1+1, REQOFF1+6, QUEOFF1+1, SCHED1+4, CUSTOD1+10, EVENT1+7
$$GET1^DIQ REQOFF1+1, QUEOFF1+4, QUEOFF1+11, QUEOFF1+12, DISP+5, DISP+6, DISP+8, DISP+9, DISP+10, CUSTOD1+4
, EVENT1+3, REPORT1+7
GETS^DIQ REPORT1+4
REQ^VDEFCONT QUEOFF1+7, SCHED1+11, SCHED1+12
$$CNV^XLFUTL REPORT1+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: REQUEST1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: REQOFF1+0
Function Call: WRITE
  • Prompt: !,!,"Inactivating a requestor has a significant effect on the synchronization"
  • Line Location: REQOFF1+2
Function Call: WRITE
  • Prompt: !,"of VistA and remote system(s). All VDEF requests made while the requestor"
  • Line Location: REQOFF1+3
Function Call: WRITE
  • Prompt: !,"is inactive will be PERMANENTLY lost. Make sure you really want to"
  • Line Location: REQOFF1+4
Function Call: WRITE
  • Prompt: !,"turn it off.",!
  • Line Location: REQOFF1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEOFF1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SCHED1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SCHED1+5
Function Call: WRITE
  • Prompt: !,"Enter time in military form as HH:MM"
  • Line Location: SCHFORM+0
Function Call: WRITE
  • Prompt: !,"No Scheduling Rules currently defined for this queue"
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"Currently defined Scheduling Rules are :"
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(579.32,SIEN_","_QUEUE_",",.01,"E")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: ") On ",$$GET1^DIQ(579.32,SIEN_","_QUEUE_",",.02,"E")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: " the request processor is "
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: STAT," from ",$$GET1^DIQ(579.32,SIEN_","_QUEUE_",",.04,"I")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: " to ",$$GET1^DIQ(579.32,SIEN_","_QUEUE_",",.05,"I")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CUSTOD1+1
Function Call: WRITE
  • Prompt: !,"Registration custodial package can't be edited"
  • Line Location: CUSTOD1+3
Function Call: WRITE
  • Prompt: !!,"Inactivating a custodial package has a significant effect on the"
  • Line Location: CUSTOD1+5
Function Call: WRITE
  • Prompt: !,"synchronization of VistA and remote system(s). All VDEF requests for HL7"
  • Line Location: CUSTOD1+6
Function Call: WRITE
  • Prompt: !,"messages associated with this custodial package made while the package is"
  • Line Location: CUSTOD1+7
Function Call: WRITE
  • Prompt: !,"inactivated will be PERMANENTLY lost. Make sure you really want to turn"
  • Line Location: CUSTOD1+8
Function Call: WRITE
  • Prompt: !,"this custodial package off.",!
  • Line Location: CUSTOD1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EVENT1+2
Function Call: WRITE
  • Prompt: !!,"Inactivating a VDEF API event will cause all requests for that"
  • Line Location: EVENT1+4
Function Call: WRITE
  • Prompt: !,"API to be PERMANENTLY lost. Make sure you really want to turn"
  • Line Location: EVENT1+5
Function Call: WRITE
  • Prompt: !,"this API event off.",!
  • Line Location: EVENT1+6
Function Call: WRITE
  • Prompt: @IOF,?22,"VDEF Status - "
  • Line Location: REPORT1+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: REPORT1+0
Function Call: WRITE
  • Prompt: !,"Logical Link Status"
  • Line Location: REPORT1+1
Function Call: WRITE
  • Prompt: !?2,LLN,": "
  • Line Location: REPORT1+9
Function Call: WRITE
  • Prompt: "stopped or caught up"
  • Line Location: REPORT1+12
Function Call: WRITE
  • Prompt: !!,"Requestor Status"
  • Line Location: REPORT1+13
Function Call: WRITE
  • Prompt: !?2,$P(NZ,U),": "
  • Line Location: REPORT1+15
Function Call: WRITE
  • Prompt: $S($P(NZ,U,5)="A":"Activated",1:"Inactivated")
  • Line Location: REPORT1+16
Function Call: WRITE
  • Prompt: ?32,"Dest.: ",$P(^VDEFHL7(579.2,$P(NZ,U,3),0),U)
  • Line Location: REPORT1+17
Function Call: WRITE
  • Prompt: ?52,"Req. Queue: ",$P(^VDEFHL7(579.3,$P(NZ,U,4),0),U,1)
  • Line Location: REPORT1+18
Function Call: WRITE
  • Prompt: !!,"Request Processor Status"
  • Line Location: REPORT1+19
Function Call: WRITE
  • Prompt: !?2,$P(NZ,U),": "
  • Line Location: REPORT1+21
Function Call: WRITE
  • Prompt: $S($P(NZ,U,9)="R":"Running",1:"Suspended")
  • Line Location: REPORT1+22
Function Call: WRITE
  • Prompt: !?2,"Current Task # [Proc]: ",TNN
  • Line Location: REPORT1+24
Function Call: WRITE
  • Prompt: " ["_$$CNV^XLFUTL($$JOB^%ZTLOAD(TNN),16)_"]"
  • Line Location: REPORT1+25
Function Call: WRITE
  • Prompt: " Task status: "
  • Line Location: REPORT1+26
Function Call: WRITE
  • Prompt: "Undefined"
  • Line Location: REPORT1+27
Function Call: WRITE
  • Prompt: $S(ZTSK(1)=0:"Undefined",ZTSK(1)=1:"Active-Pending",ZTSK(1)=2:"Active-Running",ZTSK(1)=3:"Finished",ZTSK(1)=4:"Available",ZTSK(1)=5:"Interrupted",1:"Unknown")
  • Line Location: REPORT1+28
Function Call: WRITE
  • Prompt: !?2,"No requests in the queue"
  • Line Location: REPORT1+30
Function Call: WRITE
  • Prompt: !?2,"Requests waiting for purge: ",$P(NZ,U,4)," Last request#: ",$P(NZ,U,3)
  • Line Location: REPORT1+31
Function Call: WRITE
  • Prompt: !?2
  • Line Location: REPORT1+32
Function Call: WRITE
  • Prompt: $S(STAT="C":"Checked Out",STAT="Q":" Queued Up",STAT="E":" Errored Out")
  • Line Location: REPORT1+35
Function Call: WRITE
  • Prompt: $S(VDJ<(100+(STAT="Q"*900)):"("_VDJ_")",1:"(> "_(100+(STAT="Q"*900))_")")
  • Line Location: REPORT1+36
Routine Call
  • DIC
  • Line Location:
    • REQUEST1
    • REQOFF1
    • QUEOFF1
    • SCHED1
    • SCHED1+2
    • CUSTOD1+1
    • EVENT1+2
Routine Call
  • DIE
  • Line Location:
    • SITE+1
    • REQUEST1+1
    • REQOFF1+6
    • QUEOFF1+1
    • SCHED1+4
    • CUSTOD1+10
    • EVENT1+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] GET1^DIQ,  GETS^DIQ
^VDEFHL7(577 - [#577] GET1^DIQ
^VDEFHL7(579.1 - [#579.1] GET1^DIQ
^VDEFHL7(579.3 - [#579.3] GET1^DIQ
579.32 GET1^DIQ
^VDEFHL7(579.6 - [#579.6] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HLCS(870 - [#870] REPORT1+9, REPORT1+10
^VDEFHL7(577 - [#577] REPORT1+2, REPORT1+3
^VDEFHL7(579.1 - [#579.1] REPORT1+14, REPORT1+15
^VDEFHL7(579.2 - [#579.2] REPORT1+17
^VDEFHL7(579.3 - [#579.3] SCHED1+8, DISP+1, DISP+4, REPORT1+18, REPORT1+20, REPORT1+21, REPORT1+29, REPORT1+34

Label References

Name Line Occurrences
CUSTOD1 CUSTOD1+2, CUSTOD1+11
DISP SCHED1+1, SCHED1+5
EVENT1 EVENT1+8
QUEOFF1 QUEOFF1+13
REPORT1 REPORT1+40
REQOFF1 REQOFF1+7
REQUEST1 REQUEST1+2
SCHED1 SCHED1+2, SCHED1+11, SCHED1+12, SCHED1+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H REPORT+1~, REPORT1*
DA SITE+1~*, REQUEST+1~, REQUEST1+1*, REQOFF+1~, REQOFF1+6*, QUEOFF+1~, QUEOFF1+1*, SCHED+1~, SCHED1+3*, CUSTOD+1~
, CUSTOD1+10*, EVENT+1~, EVENT1+7*
DA(1 SCHED1+1*
DIC SITE+1~, REQUEST+1~, REQUEST1!*, REQUEST1+1!, REQOFF+1~, REQOFF1!*, REQOFF1+6!, QUEOFF+1~, QUEOFF1!*, QUEOFF1+1!
, SCHED+1~, SCHED1!*, SCHED1+1!*, SCHED1+3, CUSTOD+1~, CUSTOD1!*, CUSTOD1+10!, EVENT+1~, EVENT1!, EVENT1+1*
, EVENT1+7!
DIC("A" REQUEST1*, REQOFF1*, QUEOFF1*, SCHED1*, SCHED1+2*, CUSTOD1*, EVENT1+1*
DIC("W" EVENT1*
DIC(0 REQUEST1*, REQOFF1*, QUEOFF1*, SCHED1*, SCHED1+2*, CUSTOD1*, EVENT1+1*
DIE SITE+1~*, REQUEST+1~, REQUEST1+1*, REQOFF+1~, REQOFF1+6*, QUEOFF+1~, QUEOFF1+1*, SCHED+1~, SCHED1+3*, CUSTOD+1~
, CUSTOD1+10*, EVENT+1~, EVENT1+7*
DLAYGO REQUEST+1~, REQOFF+1~, QUEOFF+1~, SCHED+1~, CUSTOD+1~, EVENT+1~
DR SITE+1~*, REQUEST+1~, REQUEST1+1*, REQOFF+1~, REQOFF1+6*, QUEOFF+1~, QUEOFF1+1*, SCHED+1~, SCHED1+4*, CUSTOD+1~
, CUSTOD1+10*, EVENT+1~, EVENT1+7*
ENTRY SCHED+1~, SCHED1+3*
EVENT EVENT+1~, EVENT1+2*, EVENT1+3, EVENT1+7
IEN REPORT+1~, REPORT1+14*, REPORT1+15, REPORT1+20*, REPORT1+21, REPORT1+29, REPORT1+34
IOF REPORT1
LINX REPORT+1~, REPORT1+1!
LINX( REPORT1+7*, REPORT1+8
LL REPORT+1~, REPORT1+9*, REPORT1+10
LLN REPORT+1~, REPORT1+7*, REPORT1+8*, REPORT1+9
NZ REPORT+1~, REPORT1+15*, REPORT1+16, REPORT1+17, REPORT1+18, REPORT1+21*, REPORT1+22, REPORT1+23, REPORT1+29*, REPORT1+30
, REPORT1+31
PACK CUSTOD+1~, CUSTOD1+1*, CUSTOD1+4, CUSTOD1+10
PROT REPORT+1~, REPORT1+3*, REPORT1+4
QUEUE QUEOFF+1~, QUEOFF1+1*, QUEOFF1+4, QUEOFF1+7, QUEOFF1+11, QUEOFF1+12, SCHED+1~, SCHED1+1*, SCHED1+8, SCHED1+11
, SCHED1+12, DISP+1, DISP+4, DISP+5, DISP+6, DISP+8, DISP+9, DISP+10
RES REPORT1+3!
RES( REPORT1+5, REPORT1+6
SIEN SCHED+1~, DISP+2*, DISP+4*, DISP+5, DISP+6, DISP+8, DISP+9, DISP+10
STAT QUEOFF+1~, QUEOFF1+4*, QUEOFF1+7, QUEOFF1+10, SCHED+1~, DISP+8*, DISP+9, REPORT1+33*, REPORT1+34, REPORT1+35
, REPORT1+36
STATS REPORT+1~, REPORT1+32*
SUBS REPORT+1~, REPORT1+6*, REPORT1+7
TMTASK QUEOFF+1~, QUEOFF1+11*, QUEOFF1+12*, SCHED+1~
TNF REPORT+1~
TNN REPORT+1~, REPORT1+23*, REPORT1+24, REPORT1+25
U REQUEST1+1, REQOFF1+1, REQOFF1+6, QUEOFF1+1, SCHED1+1, SCHED1+3, SCHED1+8, CUSTOD1+1, CUSTOD1+2, EVENT1+2
, REPORT1+3, REPORT1+10, REPORT1+15, REPORT1+16, REPORT1+17, REPORT1+18, REPORT1+21, REPORT1+22, REPORT1+23, REPORT1+31
VDA REPORT+1~, REPORT1+39*, REPORT1+40
VDI REPORT+1~, REPORT1+2*, REPORT1+3
VDJ REPORT+1~, REPORT1+5*, REPORT1+6, REPORT1+34*, REPORT1+36
VDK REPORT+1~, REPORT1+34*
X REQUEST+1~, REQOFF+1~, QUEOFF+1~, QUEOFF1+11*, QUEOFF1+12*, SCHED+1~, CUSTOD+1~, EVENT+1~
Y REQUEST+1~, REQUEST1, REQUEST1+1, REQOFF+1~, REQOFF1, REQOFF1+1, REQOFF1+6, QUEOFF+1~, QUEOFF1, QUEOFF1+1
, SCHED+1~, SCHED1, SCHED1+1, SCHED1+2, SCHED1+3, CUSTOD+1~, CUSTOD1+1, CUSTOD1+2, EVENT+1~, EVENT1+2
, REPORT+1~, REPORT1
ZTDESC SCHED1+15!
>> ZTDTH SCHED1+15*
ZTIO SCHED1+15!
ZTRTN SCHED1+15!
ZTSAVE SCHED1+15!
ZTSK SCHED1+8*, REPORT1+10~*, REPORT1+11!, REPORT1+23~*
ZTSK("E" SCHED1+11
ZTSK(0 SCHED1+12, REPORT1+27
ZTSK(1 REPORT1+11, REPORT1+28
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 |  Local Variables  | All