#!/usr/bin/mumps

#	display patient info
#	ptid,entry_date,entry_time,name,prefix,suffix,street,city_state,zip,tel


 set i=$query(^patientId("")) do
 if i="" break
 write "Patient id: ",$qsubscript(i,1)," "
 write "Date: ",$qsubscript(i,2)," Time: ",$qsubscript(i,3),!
 write ?10,$qsunscript(i,5)," ",$qsubscript(i,4)," ",$qsubscript(i,4),!
 write ?10,$qsubscript(i,7),!,?10,$qsubscript(i,8)," ",$qsubscript(i,9),!,?10,"Tel: ",$qsubscript(i,10),!!

 for  do
 . set i=$query(@i) do
 . if i="" break
 . write "Patient id: ",$qsubscript(i,1)," "
 . write "Date: ",$qsubscript(i,2)," Time: ",$qsubscript(i,3),!
 . write ?10,$qsunscript(i,5)," ",$qsubscript(i,4)," ",$qsubscript(i,4),!
 . write ?10,$qsubscript(i,7),!,?10,$qsubscript(i,8)," ",$qsubscript(i,9),!,?10,"Tel: ",$qsubscript(i,10),!!
