demodisp ; Ed de Moel ; ; Display all information
 q
getall(num) ; Return all information that is available about cast-member 'num'
 n i,l,v,x
 s num=+$g(num)
 i '$d(^macbeth("Person",num)) q "Person number "_num_" not in database."
 ;
 s x=^macbeth("Person",num),v=$p(x,"|",1)         ; Name
 s:$p(x,"|",2)'="" v=v_", "_$p(x,"|",2)           ; Comment
 s v=v_$c(13,10)
 ;
 f t="GIF","ICO","BMP" d
 . s x=$g(^macbeth(t,num)) q:x=""
 . s v=v_"Picture of type "_t_" stored in "_x_$c(13,10)
 . q
 ;
 s x=$g(^macbeth("Address",num))
 s l="",t=$p(x,"|",2) s:t'="" l=t                 ; Detail
 s t=$p(x,"|",1) i t'="" s:l'="" l=l_", " s l=l_t ; Street
 s:l'="" v=v_l_$c(13,10)
 ;
 s l="",t=$p(x,"|",3) s:t'="" l=t                 ; City
 s t=$p(x,"|",4) i t'="" s:l'="" l=l_", " s l=l_t ; State
 s t=$p(x,"|",5) i t'="" s:l'="" l=l_"  " s l=l_t ; Zip
 s:l'="" v=v_l_$c(13,10)
 ;
 s t=$p(x,"|",6) s:t'="" v=t_" "_v                ; Title
 ;
 s x=$g(^macbeth("Phone",num))
 s t=$p(x,"|",1) s:t'="" v=v_"Phone at work:   "_t_$c(13,10)
 s t=$p(x,"|",2) s:t'="" v=v_"Fax:             "_t_$c(13,10)
 s t=$p(x,"|",3) s:t'="" v=v_"Data line:       "_t_$c(13,10)
 s t=$p(x,"|",4) s:t'="" v=v_"Pager:           "_t_$c(13,10)
 s t=$p(x,"|",5) s:t'="" v=v_"Cell Phone:      "_t_$c(13,10)
 s t=$p(x,"|",6) s:t'="" v=v_"Phone at home:   "_t_$c(13,10)
 s l="",t=$p(x,"|",7) s:t'="" l="Emergency Phone: "_t
 s t=+$p(x,"|",8) d:t
 . s x=$p($g(^macbeth("Address",t)),"|",6)
 . s t=$p($g(^macbeth("Person",t)),"|",1)
 . s:x'="" t=x_" "_t
 . s:t'="" l=l_" ("_t_")"
 . q
 s:l'="" v=v_l_$c(13,10)
 ;
 s x=$g(^macbeth("EMail",num))
 s t=$p(x,"|",1) s:t'="" v=v_"E-Mail at work:   "_t_$c(13,10)
 s t=$p(x,"|",2) s:t'="" v=v_"E-Mail at home:   "_t_$c(13,10)
 s t=$p(x,"|",3) s:t'="" v=v_"Home Page on WWW: "_t_$c(13,10)
 ;
 s v=v_"*** end of report ***"
 q v