Routine: LRBLPC1

Information

LRBLPC1 ;AVAMC/REG - PT ADM,RX SPECIALTY,ICD9CM CODES ;11/18/91 20:36 ;

Source file <LRBLPC1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Adm:",+$E(Y,4,5)_"/"_+$E(Y,6,7)_"/"_$E(Y,2,3) Line Location: A+0
Function Call: WRITE	Prompt: ?13,"Discharge:",+$E(Z,4,5)_"/"_+$E(Z,6,7)_"/"_$E(Z,2,3) Line Location: A+0
Function Call: WRITE	Prompt: ?35,$P(^(0),"^") Line Location: A+1
Function Call: WRITE	Prompt: !,$P(LRX,"^",2),?10,$P(LRX,"^",4) Line Location: A+14
Function Call: WRITE	Prompt: !,$P(LRX,"^",2),?10,$P(LRX,"^",5) Line Location: A+20
Function Call: WRITE	Prompt: !?12,"Specialty:",+$E(LRY,4,5)_"/"_+$E(LRY,6,7)_"/"_$E(LRY,2,3) Line Location: B+0
Function Call: WRITE	Prompt: ?35,$P(^(0),"^") Line Location: B+0
Function Call: WRITE	Prompt: !,W(2),?31,W(10),?45,"DOB: ",W(4),!,LR("%") Line Location: H+1