AGFACE9.m

AGFACE9 ; IHS/ASDS/EFG - FACE SHEET CONT'D ; 

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 Q:$G(AGOPT(18))'="Y"!('$D(^AUPNPAT(DFN,12)))

 W !,$G(AG("-")),!,"LOCATION OF PATIENT'S HOME"

 S AG=0 F  S AG=$O(^AUPNPAT(DFN,12,AG)) Q:'AG  W !?5,AG,"). ",$G(^(AG,0))

 Q

AGFACE9   ; IHS/ASDS/EFG - FACE SHEET CONT'D ; 

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2        IF $GET(AGOPT(18))'="Y"!('$DATA(^AUPNPAT(DFN,12)))

               QUIT 

 +3        WRITE !,$GET(AG("-")),!,"LOCATION OF PATIENT'S HOME"

 +4        SET AG=0

           FOR 

               SET AG=$ORDER(^AUPNPAT(DFN,12,AG))

               IF 'AG

                   QUIT 

               WRITE !?5,AG,"). ",$GET(^(AG,0))

 +5        QUIT