Routine: LRBLJPP1

Select the objects that you wish to see in the downloaded PDF

Information

LRBLJPP1 ;AVAMC/REG - PT ADM,RX SPECIALTY,ICD9CM CODES ;4/17/91 14:31 ;

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(X,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