Routine: LRAPPA

Information

LRAPPA ;AVAMC/REG - CY/EM/SP PATIENT RPT ;8/12/95 08:15 ;

Source file <LRAPPA.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,LRAA(1)," FINAL PATIENT REPORTS DISPLAY" Line Location: LRAPPA+4
Function Call: READ	Formatting: ! Prompt: "Start with accession #: " Variable: X Timeout: DTIME Line Location: A1+0
Function Call: WRITE	Prompt: $C(7),!,"Enter a number from 1 to 99999" Line Location: A1+0
Function Call: READ	Formatting: ! Prompt: "Go to accession #: " Variable: X Timeout: DTIME Line Location: A2+0
Function Call: WRITE	Prompt: $C(7),!,"Enter a number from 1 to 99999" Line Location: A2+0
Function Call: WRITE	Prompt: @IOF Line Location: A2+5
Function Call: WRITE	Prompt: @IOF Line Location: D+0
Function Call: WRITE	Prompt: !,$P(X,"^"),?38,"SSN: ",$P(X,"^",9) Line Location: D+0