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

Package: Lab Service

Routine: LRDPA1


Information

LRDPA1 ;AVAMC/REG/DALISC/FHS - PT LOOKUP IN FILES FOR LAB ;9/6/94 09:03 ;

Source Information

Source file <LRDPA1.m>

Entry Points

Name Comments DBIA/ICR reference
EN
L
A

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LRP," ID: ",SSN," "
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: "Physician: ",LRMD,!
  • Condition for execution: LRMD]""
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"ABO group: ",LRPABO," Rh type: ",LRPRH
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,"Infection control warning:",$C(7),!?5,^(.091),!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: $C(7),!!,?34,"",LRLLOC,"",!
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"AGE: ",AGE
  • Condition for execution: AGE
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: " DATE OF BIRTH: ",DOB
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: $C(7),!!,"Patient in hospital but Ward Location begins with a space !!!",!,"Location =>",LRLLOC,"<=",!,"Ask MAS to fix it",!
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,"Ward on Adm: ",LRAWRD," Service: ",LRS,!,"Adm Date: ",LRADM," Adm DX: ",LRADX,!,"Present Ward: ",LRLLOC,?30,"Primary MD: ",LRMD
  • Line Location: A+6
Info |  Source |  Entry Points |  Interaction Calls