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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call