| First Comment |
Delete a selected diagnosis code or group of diagnoses codes from a
Clinician's Personal DX List.
Input Variables:
ORCIEN Clinician Internal ID number
ORDXA Array of dx codes to be deleted from personal dx list
Output Variable:
Y Return value, 1 successful, 0 unsuccessful
Local Variables:
DXI Diagnosis code array index
EM Error Message
FDA FileMan Data Array
IEN Interanl Entry Number
RF Record Found
|
| Code |
N DXI,EM,FDA,IEN,RF
D GETS^DIQ(200,ORCIEN,"351*,","","RF","EM")
I $D(RF)=0 S Y=0 Q
S IEN="" F S IEN=$O(RF(200.0351,IEN)) Q:IEN="" D
.S DXI="" F S DXI=$O(ORDXA(DXI)) Q:DXI="" D
.. I RF(200.0351,IEN,.01)=ORDXA(DXI) D
... D FDA^DILF(200.0351,IEN,.01,"","@","FDA","EM")
... D FILE^DIE("","FDA","EM")
S Y=1
|