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

Package: Patient Data Exchange

Routine: VAQREQ03


Information

VAQREQ03 ;ALB/JFP - PDX, REQUEST PATIENT DATA, ASK DOMAIN/SEGMENT;01MAR93<<= NOT VERIFIED > [ 10/18/96 9:19 AM ]

Source Information

Source file <VAQREQ03.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIC  FILE^DIE  ^DIR  
Patient Data Exchange 2 EP^VAQREQ04  $$PARTIC^VAQUTL94  

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

Package Total Caller Graph
Patient Data Exchange 2 VAQREQ02  VAQREQ05  

Entry Points

Name Comments DBIA/ICR reference
EP ; -- Main entry point
; - Called from VAQREQ02
; - Calls ask segment routine VAQREQ04
; - Calls help routine VAQREQ09
REQ ; -- Request domain
ASKDOM ; -- Call to Dir to request domain
DOM ; -- Dic lookup to verify domain in file 4.2
GDOM ; -- Dic lookup to verify domain group name in file 394.83
G1
G2
SETG ; --
OKDOM(GRPDA,INSTDA,DOMDA) ;
DELDOM ; -- Deletes domain & segments associated with domain
LISTD ; -- Displays a list domains selected
END ; -- End of code

External References

Name Field # of Occurrence
^DIC DOM+2, GDOM+4
FILE^DIE OKDOM+10
^DIR ASKDOM+8
EP^VAQREQ04 ASKDOM+14
$$PARTIC^VAQUTL94 DELDOM+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDOM+8
Function Call: WRITE
  • Prompt: $C(7)," ...Domain is closed"
  • Line Location: DOM+5
Function Call: WRITE
  • Prompt: " ...Domain entered does not have a station number"
  • Line Location: DOM+8
Function Call: WRITE
  • Prompt: " ...Domain does not have a valid station number"
  • Line Location: DOM+10
Function Call: WRITE
  • Prompt: !!,"Domain ",$P(REC,U,1)," is closed."
  • Line Location: OKDOM+6
Function Call: WRITE
  • Prompt: !,"Because of that, Facility '",$P($G(^DIC(4,INSTDA,0)),U,1),"'"
  • Line Location: OKDOM+11
Function Call: WRITE
  • Prompt: !,"has been deleted from Outgoing Group '",$P($G(^VAT(394.83,GRPDA,0)),U,1),"'."
  • Line Location: OKDOM+12
Function Call: WRITE
  • Prompt: !!,"** NO ENTRIES SELECTED"
  • Line Location: DELDOM+2
Function Call: WRITE
  • Prompt: " ... Not Selected"
  • Line Location: DELDOM+4
Function Call: WRITE
  • Prompt: " ... ",X," Not Selected"
  • Line Location: DELDOM+5
Function Call: WRITE
  • Prompt: " ...domain deleted and associated segments"
  • Line Location: DELDOM+7
Function Call: WRITE
  • Prompt: !!,"** NO DOMAIN(S) SELECTED"
  • Line Location: LISTD+2
Function Call: WRITE
  • Prompt: !!,"------------------------------ Domains Selected ------------------------------"
  • Line Location: LISTD+3
Function Call: WRITE
  • Prompt: ?L#8*40
  • Line Location: LISTD+4
Function Call: WRITE
  • Prompt: N
  • Line Location: LISTD+4
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------------"
  • Line Location: LISTD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTD+6
Routine Call
  • DIC
  • Line Location:
    • DOM+2
    • GDOM+4
Routine Call
  • DIE
  • Line Location:
    • OKDOM+10
Routine Call
  • DIR
  • Line Location:
    • ASKDOM+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VAT(394.83 - [#394.83] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] DOM+9, DOM+11, SETG+2, OKDOM+11
^DIC(4.2 - [#4.2] SETG+3, OKDOM+2
^TMP("VAQDOM" ASKDOM+2!, DOM+13*, SETG+5*
^TMP("VAQSEG" ASKDOM+1, DOM+12*, SETG+4*, DELDOM+5, DELDOM+6!, LISTD+2, LISTD+4
^VAT(394.71 - [#394.71] REQ+4, REQ+5
^VAT(394.83 - [#394.83] GDOM+5, G1+1, G2, OKDOM+8, OKDOM+12

Label References

Name Line Occurrences
$$OKDOM SETG+1
ASKDOM REQ+7
DELDOM ASKDOM+11
DOM ASKDOM+12
G1 GDOM+6
G2 G1+1
GDOM ASKDOM+13
LISTD ASKDOM+1, ASKDOM+10
SETG G2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC DOM+1*, DOM+2!, GDOM+2*, GDOM+4!
DIC(0 DOM+1*, GDOM+3*
DIR ASKDOM+8!
DIR("?" ASKDOM+6*
DIR("??" ASKDOM+7*
DIR("A" ASKDOM+4*
DIR(0 ASKDOM+5*
DIRUT REQ+2~, REQ+7, ASKDOM+8
DOMAIN REQ+1~, DOM+7*, DOM+12, DOM+13, SETG+3*, SETG+4, SETG+5
DOMDA REQ+1~, G1*, G2*, SETG+1, SETG+3, OKDOM~, OKDOM+2
DTOUT REQ+2~, DOM+2, GDOM+4
DUOUT REQ+2~, DOM+2, GDOM+4
FDA OKDOM+7~
FDA( OKDOM+9*
FLAGS REQ+1~, DOM+4*, DOM+5
>> GRP GDOM+5*
GRPDA GDOM+5*, G1+1, G2, SETG+1, OKDOM~, OKDOM+8, OKDOM+9, OKDOM+12
>> I G1+1*, G2*
INST REQ+1~, DOM+11*, SETG+2*
INSTDA REQ+1~, DOM+9*, DOM+10, DOM+11, G1*, G1+1*, G2, SETG+1, SETG+2, OKDOM~
, OKDOM+8, OKDOM+11
L REQ+1~, LISTD+4*
N REQ+1~, LISTD+4*
POP REQ+1~, ASKDOM+3*, ASKDOM+10, ASKDOM+11, ASKDOM+12, ASKDOM+13, DOM+2*, DOM+5*, DOM+8*, DOM+10*
, GDOM+4*, DELDOM+1*, LISTD+1*
REC OKDOM+1~, OKDOM+2*, OKDOM+3, OKDOM+6
>> SEGNME REQ+5*, DOM+12, SETG+4
>> SEGNO REQ+4*, REQ+5, DOM+12, SETG+4
STNO REQ+1~, DOM+7*, DOM+8, DOM+9
U REQ+5, DOM+4, DOM+7, DOM+11, GDOM+5, SETG+2, SETG+3, OKDOM+3, OKDOM+6, OKDOM+11
, OKDOM+12
VIEN OKDOM+7~, OKDOM+8*, OKDOM+9
X REQ+1~, ASKDOM+9*, ASKDOM+10, ASKDOM+11, ASKDOM+12, ASKDOM+13, GDOM+1*, DELDOM+1*, DELDOM+2, DELDOM+3*
, DELDOM+4, DELDOM+5, DELDOM+6
>> Y ASKDOM+9, DOM+2, DOM+7, GDOM+4, GDOM+5
>> Y(0 DOM+4, DOM+7
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