Routine: LRDPA1

Information

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

Source file <LRDPA1.m>

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