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

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

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