GENERAL DESCRIPTION |
APSJD X-reference on field .351, DATE OF DEATH, of file
2, PATIENT not used for sorting or look up. The code is:
set: S XX=X,X="PSJADT" X ^%ZOSF("TEST") I S X=XX D END^PSJADT
kill: Q
The event driver messages are not displayed.
^DD(2,.351,1,6,0) = 2^APSJD^MUMPS ^DD(2,.351,1,6,1) = S XX=X,X="PSJADT" X
^%ZOSF("TEST") I S X=XX D END^PSJ ADT ^DD(2,.351,1,6,2) = Q
^DD(2,.351,1,6,"%D",0) = ^^2^2^2910806^ ^DD(2,.351,1,6,"%D",1,0) = Pharmacy
cross-reference for notification upon entry/deletion of date of
^DD(2,.351,1,6,"%D",2,0) = death information. ^DD(2,.351,1,6,"DT") = 2910806
|