https://vistapedia.com/index.php?action=history&feed=atom&title=ROUTINE_VASITEROUTINE VASITE - Revision history2026-05-11T17:52:31ZRevision history for this page on the wikiMediaWiki 1.43.0https://vistapedia.com/index.php?title=ROUTINE_VASITE&diff=17548&oldid=prevDavidWhitten: Created page with " <pre> 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..."2019-04-23T17:05:24Z<p>Created page with " <pre> 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..."</p>
<p><b>New page</b></p><div><br />
<pre><br />
PRIM^VASITE:PRIM+9<br />
PRIM(DATE) ; -returns medical center division of primary medical center division<br />
; - input date, if date is null then date will be today<br />
;<br />
N PRIM<br />
S:'$D(DATE) DATE=DT S DATE=DATE+.24<br />
S PRIM=$G(^VA(389.9,+$O(^(+$O(^VA(389.9,"AIVDT1",1,$$IVDATE(DATE))),0)),0))<br />
Q $S($P(PRIM,"^",4)?3N:$P(PRIM,"^",3),1:-1)<br />
;<br />
</pre></div>DavidWhitten