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

Package: Lab Service

Routine: LRDPA

Information

LRDPA ;SLC/RWF/WTY/KLL - FILE OF FILES LOOKUP ON ENTITIES ; 2/28/03 4:10pm

Source Information

Source file <LRDPA.m>

Entry Points

Name	Comments	DBIA/ICR reference
DPA	;from LRUPS
DPA1	;Entry point from PNAME^LRAPDA
EN1	;from LRUG, LRUPS
EN	;
LAYG	;Don't allow DLAYGO on second pass.
ANY
FL
FL0
FL1	;
NONE
REASK
END	;from LROR, LRSETUP
E2
E3
FILE
DICQ	;
EN2(DFN,LOCK,TALK)	;Patient Lock
WARN	;Warn the user the patient has died and display date of death (LR5.2360)

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You may enter patient identification or enter a file name followed by "":"".",!,"You may enter ""?:?"" for more extended help." Line Location: DPA1+4
Function Call: WRITE	Prompt: !," File: ",X Line Location: EN1+1
Function Call: WRITE	Prompt: !!,"Internal patient ID incorrect in ^LR( for ",PNM,". Contact Lab Coordinator.",$C(7) Line Location: E3+0
Function Call: WRITE	Prompt: !,$C(7),"Internal patient ID incorrect for ",PNM,". Contact Lab Coordinator." Line Location: E3+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: FILE+0
Function Call: WRITE	Prompt: !,"Select FILE: " Line Location: FILE+0
Function Call: READ	Variable: % Timeout: DTIME Line Location: DICQ+7
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: DICQ+7
Function Call: WRITE	Prompt: !?10,@LRVIDO,"Patient ",PNM," died on: ",Y,@LRVIDOF,! Line Location: WARN+2

FileMan Files Accessed Via FileMan Db Call

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

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call