Routine: LRSPRPT2

Information

LRSPRPT2 ;AVAMC/REG/WTY - SURG PATH PRINT SNOMED;09/06/01

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"SNOMED code(s):" Line Location: LRSPRPT2+4
Function Call: WRITE	Prompt: X Line Location: LRSPRPT2+9
Function Call: WRITE	Prompt: X Line Location: M+5
Function Call: WRITE	Prompt: !?5,$S(B=1.4:"D-",B=3.3:"F-",B=4.5:"P-",1:""),$P(M,"^",2),?12,": " Line Location: A+3
Function Call: WRITE	Prompt: X Line Location: A+4
Function Call: WRITE	Prompt: X Line Location: E+4
Function Call: WRITE	Prompt: " (",$S(M(2)=0:"negative",M(2)=1:"positive",1:"?"),")" Line Location: W+1
Function Call: WRITE	Prompt: !!,"Add/Delete reports to/from print queue for ",LRH(0)," " Line Location: EN+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: ACC+1
Function Call: WRITE	Prompt: !!,"Select ",LRO(68)," accession number: " Line Location: ACC+1
Function Call: WRITE	Prompt: $C(7),!,"Enter NUMBERS only." Line Location: ACC+2
Function Call: WRITE	Prompt: !,LRP," ID: ",SSN Line Location: ACC+6
Function Call: WRITE	Prompt: !!,"Add ",LRO(68)," accession ",LRAN," for ",LRY(1)," to" Line Location: ACC+11
Function Call: WRITE	Prompt: !,$S(LRAPX(1)=2:"final",1:"preliminary")," rpt print queue " Line Location: ACC+12
Function Call: WRITE	Prompt: !!,"Delete ",LRO(68)," accession ",LRAN," for ",LRY(1),!,"from " Line Location: DEL+1
Function Call: WRITE	Prompt: $S(LRAPX(1)=2:"final",1:"preliminary")," rpt print queue " Line Location: DEL+2