; does VSTDFN already have a clinic? return true or false
PHARMCLI()
ADDV681()
; given VSTDFN ; add a V68.1 diagnosis to the visit
; if you $$, it gives you back the IEN
CLINIC
;EP - given VSTDFN - if it doesn't have one, give it one: pharmacy
V681IEN()
HASV681()
; does VSTDFN already have a V68.1 among its diagnoses? ret true/false
V681A
;
V681
;EP - given VSTDFN
; - add a V68.1 diagnosis if it doesn't already have one
PROVIDER()
;EP - given VSTDFN - and ^TMP($J,"VCPT",*)
; if it doesn't have a provider, give it one
; and make this the primary provider - he is the prescribing physician
; on the first prescription