Routine: RMPFDT8

Information

RMPFDT8 ;DDC/KAW-DISPLAY AUTHORIZED AIDS [ 03/12/98 7:46 AM ]

Source file <RMPFDT8.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$J(CT,2),?5,ID,?17,MK,?32,MD,?49,SN,?61,ST,?67,BT,?77,ER Line Location: A1+5
Function Call: WRITE	Prompt: !!,"Total Number of Authorized Hearing Aids: ",CT Line Location: TOT+0
Function Call: WRITE	Prompt: @IOF Line Location: TOT+1
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+0
Function Call: WRITE	Prompt: !?28,"AUTHORIZED HEARING AIDS",! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?2,"Patient Name: ",RMPFNAM,?63,"SSN: ",RMPFSSN Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"Aids Validated: ",DV Line Location: HEAD+3
Function Call: WRITE	Prompt: !?51,"Serial" Line Location: HEAD+4
Function Call: WRITE	Prompt: !," #",?5,"Issue Date",?21,"Make",?37,"Model",?51,"Number",?61,"Sta.",?67,"Battery",?76,"Ear" Line Location: HEAD+5
Function Call: WRITE	Prompt: !,"---",?5,"----------",?17,"-------------",?32,"---------------",?49,"----------",?61,"----",?67,"-------",?76,"---" Line Location: HEAD+6
Function Call: WRITE	Prompt: ! Line Location: CONT+0
Function Call: WRITE	Prompt: !,"Enter <RETURN> to continue or <P>rint: " Line Location: CONT+1
Function Call: WRITE	Prompt: ! Line Location: QUE+0
Function Call: READ	Variable: Y Timeout: DTIME Line Location: READ+1
Function Call: READ	Variable: Y Timeout: 5 Line Location: READ+1