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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VAT(394.83 - [#394.83] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call