ROUTINE VASITE

PRIM^VASITE:PRIM+9 PRIM(DATE) ; -returns medical center division of primary medical center division ;         - input date, if date is null then date will be today ; N PRIM S:'$D(DATE) DATE=DT S DATE=DATE+.24 S PRIM=$G(^VA(389.9,+$O(^(+$O(^VA(389.9,"AIVDT1",1,$$IVDATE(DATE))),0)),0)) Q $S($P(PRIM,"^",4)?3N:$P(PRIM,"^",3),1:-1) ;