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

Package: Patient Data Exchange

Routine: VAQLED07


Information

VAQLED07 ;ALB/JFP,JRP - DISPLAY MINIMAL DATA/ADD NEW PATIENT ;01MAR93 [ 12/04/96 9:23 AM ]

Source Information

Source file <VAQLED07.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Patient Data Exchange 5 $$WORKDONE^VAQADS01  $$DISPMIN^VAQDIS21  HD1^VAQEXT02  EP^VAQLED02  $$SEGEXT^VAQUPD1  
List Manager 2 EN^VALM  ($$SETSTR,CLEAR,PAUSE)^VALM1  
VA FileMan 2 FILE^DICN  ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Patient Data Exchange 5 VAQ ADD PATIENT  VAQ DIS MIN NUPD  VAQ DIS MIN UPD  VAQLED01  VAQLED03  
Registration 3 VAQ ADD PATIENT  VAQ DIS MIN NUPD  VAQ DIS MIN UPD  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
LOAD ; -- Loads fields to patient file
TMP ; -- Set the array used by list processor
END ; -- End of code
EXTR ; -- Extract PDX minimal data
TRANEX ; -- Transaction exit
WORKLD ; -- Updates work load file
DISMSG ; -- Display status message
ADD ; -- Adds new patient to local data base
CHKNULL ; -- Sets missing data flag if it finds a required field null
; Added quit condition. NOIS ISD-0495-40199
INIT ; -- Builds array of minimal data for the patient entered (DFN)
EXIT ; -- Note: The list processor cleans up its own variables.
; All other variables cleaned up here.
ERRMSG ; -- Displays error message
EP ; -- Main entry point for the list processor
; Note: sets flag 'VAQADFL' if required elements are blank
HD ; -- Make header line for list processor
TMPADDR ; -- Checks to see if temporary address dates are active and flag set
; -- active flag

External References

Name Field # of Occurrence
FILE^DICN ADD+13
^DIE LOAD+3
EN^VALM EXTR+11, EXTR+13
$$SETSTR^VALM1 ERRMSG+1, ERRMSG+2, DISMSG+1
CLEAR^VALM1 ADD+1
PAUSE^VALM1 EXTR+6, TRANEX+1
$$WORKDONE^VAQADS01 WORKLD+1, WORKLD+4
$$DISPMIN^VAQDIS21 INIT+4
HD1^VAQEXT02 HD+1
EP^VAQLED02 ADD+29
$$SEGEXT^VAQUPD1 EXTR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Extract not successful...Error: "_$P(X,U,2)
  • Line Location: EXTR+6
Function Call: WRITE
  • Prompt: !,"Please wait while information on ",$G(^TMP("VAQDIS",$J,"VALUE",2,.01,0))," is added",!
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !!,$C(7),"** Patient not added, SSN in use by existing patient"
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+5
Function Call: WRITE
  • Prompt: !!,$C(7),"** Patient not added",!
  • Line Location: ADD+14
Function Call: WRITE
  • Prompt: !,"Could not edit entry...record locked"
  • Line Location: ADD+22
Function Call: WRITE
  • Prompt: !,"** PDX minimal information on ",$G(^TMP("VAQDIS",$J,"VALUE",2,.01,0))," has been added"
  • Line Location: ADD+27
Function Call: WRITE
  • Prompt: ?10,"- ",$P(^DD(2,FLD,0),U,1),?40," could not be added",!
  • Line Location: LOAD+4
Function Call: WRITE
  • Prompt: !,"Error updating work loadfile (NEW)... "_$P(X,U,2)
  • Line Location: WORKLD+2
Function Call: WRITE
  • Prompt: !,"Error updating workload file (SNSTVE)... "_$P(X,U,2)
  • Line Location: WORKLD+5
Routine Call
  • VALM
  • Line Location:
    • EXTR+11
    • EXTR+13
Routine Call
  • DIE
  • Line Location:
    • LOAD+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 LOAD+4
^DIC(2 ADD+20
^DPT("SSN" ADD+3
^TMP("VAQD1" EP+3!, TMP+2*, EXIT+3!
^TMP("VAQDIS" EP+3!, ADD+2, ADD+3, ADD+10, ADD+11, ADD+12, ADD+27, TMPADDR+2, TMPADDR+3, TMPADDR+4
, CHKNULL+4, CHKNULL+7, EXIT+3!
^VAT(394.61 - [#394.61] WORKLD+3
^VAT(394.71 - [#394.71] EXTR+3

Label References

Name Line Occurrences
CHKNULL EXTR+8
DISMSG INIT+7
ERRMSG INIT+5
LOAD ADD+23, TMPADDR+6
TMP ERRMSG+1, ERRMSG+2, DISMSG+1
TMPADDR ADD+25
TRANEX ADD+6, ADD+14, ADD+28
WORKLD ADD+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 ADD+13!
DA LOAD+1*, LOAD+3!
DD ADD+13!
>> DFN EXTR+1*, EXTR+5
>> DFNPT LOAD+1*
>> DFNTR EXTR+1, WORKLD+1, WORKLD+3, WORKLD+4
DIC ADD+7*, ADD+13!
DIC("DR" ADD+11*, ADD+12*
DIC(0 ADD+8*
DIE LOAD+1*, LOAD+3!
DLAYGO ADD+9*, ADD+13!
DR LOAD+2*, LOAD+3!
DSP INIT+3*, INIT+4, EXIT+5!
DT TMPADDR+3, TMPADDR+4
DUZ WORKLD+1, WORKLD+4
FLD ADD+23*, LOAD+2, LOAD+4, TMPADDR+6*, CHKNULL+2*, CHKNULL+3*, CHKNULL+4, CHKNULL+8!
>> I ADD+12*
LOCKFLE ADD+20*, ADD+21, ADD+22!, ADD+26!
MSG INIT+5*, ERRMSG+2, EXIT+5!
OFFSET INIT+3*, INIT+4, EXIT+5!
ROOT EXTR+2*, EXTR+5, INIT+1, INIT+2*, INIT+4, EXIT+5!
SEGPTR EXTR+3*, EXTR+5, INIT+4, EXIT+5!
U EXTR+6, INIT+5, ADD+14, LOAD+4, WORKLD+2, WORKLD+3, WORKLD+5
VALMBCK INIT+8!, ADD+30!, ERRMSG+3*, TRANEX+2*
VALMCNT EP+4*, INIT+6*, TMP+1*, TMP+2, EXIT+5!
VAQADFL EP+4*, EXTR+9, CHKNULL+3, CHKNULL+5*, CHKNULL+6, CHKNULL+7*, EXIT+4!
VAQDATA CHKNULL+4*, CHKNULL+5, CHKNULL+8!
VAQIGNC EXTR+4*, EXIT+4!
VAQLN DISMSG+2!
VAQST EXTR+10*, EXTR+12*, DISMSG+1, DISMSG+2!
VAQSTUB ADD+19*, ADD+21, ADD+26, LOAD+1, EXIT+4!
X EXTR+5*, EXTR+6, INIT+4*, INIT+5, INIT+6, ADD+10*, ERRMSG+1*, ERRMSG+2*, DISMSG+1*, TMP+2
, WORKLD+1*, WORKLD+2, WORKLD+4*, WORKLD+5, EXIT+5!
XTRCT INIT+1*, INIT+4, EXIT+5!
>> Y ADD+14, ADD+19, LOAD+4
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