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

Package: Patient Data Exchange

Routine: VAQREQ04


Information

VAQREQ04 ;ALB/JFP - PDX, REQUEST PATIENT DATA, ASK SEGMENT;01MAR93

Source Information

Source file <VAQREQ04.m>

Entry Points

Name Comments DBIA/ICR reference
EP ; -- Entry point, second level of loop in VAQREQ03
; NOTE: PDX*MIN is hard coded in this routine
; - Called from VAQREQ03
; - Calls help routine VAQREQ09
REQ ; -- Request segment
DRIVER ; -- Driver loop
ASKSEG ; -- Prompts for segments
; -- Sets default segment to PDX*MIN, Minimum patient information
; Note: PDX*MIN is hard coded in this routine, if this mnuemonic
; changes, the routine must change (ASKSEG+3)
SEG ; -- Dic lookup to verify segment in file 394.71
GSEG ; -- Dic lookup to verify segment group name in file 394.84
S1
SETS
GROUP ; -- Sets time and occurrence limits for segment groups selected
FLESEG ; -- Loops thru domains filing segment data in ^TMP array
FILE ;
DELSEG ; -- Deletes selected segments
LISTS ; -- Displays a list segments selected for domain
END ; -- End of code

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSEG+16
Function Call: WRITE
  • Prompt: " ...No entries selected"
  • Line Location: DELSEG+2
Function Call: WRITE
  • Prompt: " ... Not Selected"
  • Line Location: DELSEG+5
Function Call: WRITE
  • Prompt: " ...required segment, not deleted"
  • Line Location: DELSEG+6
Function Call: WRITE
  • Prompt: !,X," Not Selected"
  • Line Location: DELSEG+7
Function Call: WRITE
  • Prompt: " ...Segment Deleted"
  • Line Location: DELSEG+9
Function Call: WRITE
  • Prompt: !!,"** NO SEGMENT(S) SELECTED"
  • Line Location: LISTS+2
Function Call: WRITE
  • Prompt: !!,"------------------------------ Segments Selected ------------------------------"
  • Line Location: LISTS+3
Function Call: WRITE
  • Prompt: ?L#8*10
  • Line Location: LISTS+4
Function Call: WRITE
  • Prompt: N
  • Line Location: LISTS+4
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------------"
  • Line Location: LISTS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTS+6

FileMan Files Accessed Via FileMan Db Call

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