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

Package: Patient Data Exchange

Routine: VAQREQ04


Information

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

Source Information

Source file <VAQREQ04.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Patient Data Exchange 3 $$HLTHSEG^VAQDBIH1  EP^VAQREQ11  $$PARTIC^VAQUTL94  
VA FileMan 2 ^DIC  ^DIR  

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

Package Total Caller Graph
Patient Data Exchange 1 VAQREQ03  

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

External References

Name Field # of Occurrence
^DIC SEG+2, GSEG+4
^DIR ASKSEG+16
$$HLTHSEG^VAQDBIH1 SEG+5, SETS+3
EP^VAQREQ11 SEG+6
$$PARTIC^VAQUTL94 DELSEG+4

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
Routine Call
  • DIC
  • Line Location:
    • SEG+2
    • GSEG+4
Routine Call
  • DIR
  • Line Location:
    • ASKSEG+16

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("VAQDOM" FLESEG+2
^TMP("VAQSEG" DRIVER+1, ASKSEG+5, ASKSEG+8*, FILE+3*, DELSEG+7, DELSEG+8!, LISTS+2, LISTS+4
^VAT(394.71 - [#394.71] ASKSEG+6, ASKSEG+7, SEG+4, SETS
^VAT(394.81 - [#394.81] GROUP+1
^VAT(394.84 - [#394.84] GSEG+9, S1+1, GROUP+5, GROUP+6

Label References

Name Line Occurrences
ASKSEG DRIVER+2
DELSEG ASKSEG+19
FILE FLESEG+2
FLESEG SEG+7, SETS+5
GROUP SETS+4
GSEG ASKSEG+21
LISTS DRIVER+1, ASKSEG+18
S1 GSEG+10
SEG ASKSEG+20
SETS S1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ARRAY DELSEG+3*, DELSEG+4
DIC SEG+1*, SEG+2!, GSEG+2*, GSEG+4!
DIC(0 SEG+1*, GSEG+3*
DIR ASKSEG+16!
DIR("?" ASKSEG+14*
DIR("??" ASKSEG+15*
DIR("A" ASKSEG+12*
DIR(0 ASKSEG+13*
DIRUT REQ+1~, DRIVER+2, DRIVER+4!, ASKSEG+16
>> DOMAIN DRIVER+1, ASKSEG+5, ASKSEG+8, DELSEG+3, DELSEG+7, DELSEG+8, LISTS+2, LISTS+4
DTOUT REQ+1~, DRIVER+4!, SEG+2, GSEG+4
DUOUT REQ+1~, DRIVER+4!, SEG+2, GSEG+4
DUZ GSEG+6
GDUZ REQ+2~, DRIVER+5!, GSEG+5*, GSEG+6
GRP REQ+2~, DRIVER+5!, GSEG+9*
GRPDA REQ+2~, DRIVER+5!, GSEG+9*, S1+1, GROUP+5, GROUP+6
>> GRPSEGND GROUP+6*, GROUP+7, GROUP+8
GTYPE REQ+2~, DRIVER+5!, GSEG+5*, GSEG+6
>> HSCOMPND SEG+5*, SEG+6, SETS+3*, SETS+4, GROUP+9, GROUP+10
I REQ+1~, DRIVER+4!
L REQ+1~, DRIVER+4!, LISTS+4*
>> LPDOM FLESEG+1*, FLESEG+2*, FILE+3
N REQ+1~, DRIVER+4!, LISTS+4*
>> OLDEF GROUP+3*, GROUP+8
>> OLIMIT GROUP+8*, GROUP+10*, FILE+2*, FILE+3
>> PARAMND GROUP+1*, GROUP+2, GROUP+3
>> POP ASKSEG+11*, ASKSEG+18, ASKSEG+19, ASKSEG+20, ASKSEG+21, SEG+2*, GSEG+4*, GSEG+8*, DELSEG+1*, LISTS+1*
>> POS GROUP+5*, GROUP+6
SEGDA REQ+2~, DRIVER+5!, SEG+4*, S1*, S1+1*, SETS, GROUP+5, FILE+3
SEGMNU REQ+2~, DRIVER+5!, SEG+3*, SEG+4, SEG+5, SETS+2*, SETS+3, FILE+3
SEGNME REQ+2~, DRIVER+5!, ASKSEG+7*, ASKSEG+8, SEG+3*, SETS+2*, FILE+3
SEGNO REQ+2~, DRIVER+5!, ASKSEG+6*, ASKSEG+7, ASKSEG+8
SEGNODE REQ+2~, DRIVER+5!, SETS*, SETS+1, SETS+2
>> TLDEF GROUP+2*, GROUP+7
>> TLIMIT GROUP+7*, GROUP+9*, FILE+1*, FILE+3
U ASKSEG+7, SEG+3, SEG+6, GSEG+5, GSEG+9, SETS+2, SETS+4, GROUP+2, GROUP+3, GROUP+7
, GROUP+8, GROUP+9, GROUP+10
X REQ+1~, DRIVER+4!, ASKSEG+17*, ASKSEG+18, ASKSEG+19, ASKSEG+20, ASKSEG+21, GSEG+1*, DELSEG+1*, DELSEG+2
, DELSEG+4*, DELSEG+5, DELSEG+6, DELSEG+7, DELSEG+8
>> Y ASKSEG+17, SEG+2, GSEG+4, GSEG+9
>> Y(0 SEG+3, GSEG+5
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