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
Print Page as PDF
Routine: LRAPLG

Package: Lab Service

Routine: LRAPLG


Information

LRAPLG ;AVAMC/REG/WTY - AP LOG-IN ;01/23/17 03:16

Source Information

Source file <LRAPLG.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
GETP
ADD
CK
SET
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Log-In for ",LRH(0)," "
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !
  • Line Location: GETP+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NO DATE DIED ENTERED IN ",LRFNAM," FILE",!
  • Line Location: ADD+0
Function Call: WRITE
  • Prompt: !,"Yr:",1700+$E(Y,1,3)," Acc#:",X," IN LAB FILE FOR ",$P(@(LRPF_DFN_",0)"),U)," SSN:",$P(^(0),U,9)
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: $C(7),!!?20,"Also in accession file"
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: !,"Enter in Accession File "
  • Line Location: CK+1
Info |  Source |  Entry Points |  Interaction Calls