HMPWB1 ; Agilex/EJK/JD - WRITE BACK ACTIVITY;Nov 5, 2015@16:15:08
Source file <HMPWB1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ALLERGY(RSLT,IEN,DFN,DATA) | ;file allergy data
; RSLT - result, passed by reference ; IEN - zero for new allergy, or IEN for edit ; DFN - patient identifier ; DATA - array of allergy data. Subscript names are required. ; ("GMRACHT",0)=1 - Chart Marked indicator ; ("GMRACHT",1)=3150603.0905 - Date/Time Chart Marked ; ("GMRAGNT")="DIGITOXIN^9;PSNDF(50.6," - Allergy and Pointer to Allergen File ; ("GMRAOBHX")="o^OBSERVED" - (O)bserved or (H)istorical ; ("GMRAORIG")=10000000224 - Pointer to VA DRUG CLASS File (50.605) ; ("GMRAORDT")=3150603.0805 - Allergy assessmant date and time. ; ("GMRASEVR")=2 - Severity of Allergy. 1=Mild, 2=Moderate, 3=Severe ; ("GMRATYPE")="D^Drug" - Type of Allergen (F)ood or (D)rug ; ("GMRANATR")="A^Allergy" - Mechanism of Allergy (A)llergy, (P)harmacologic, (U)nknown. ; ("GMRASYMP",0)=2 - Number of Symptoms ; ("GMRASYMP",1)="2^ITCHING,WATERING EYES" - IEN and Description of Symptom 1 ; ("GMRASYMP",2)="133^RASH" - IEN and Description of Symptom 2 |
|
| ALLEIE(RSLT,DATA) | ;file allergy entered in error
|
|
| CHECKREQ | ; check for required fields
|
|
| CHKDATE | ;CHECK DATES FOR PROPER FORMAT OF DATE.
|
|
| PARSE | ;Parse data string into data elements for EDITSAVE^ORWDAL32
|
|
| ERROR | ;handle errors generated by MSG^HMPTOOLS
|
|
| EXTRACT(GLOB) | ; Move ^TMP("HMPF",$J) into string format
|
| RPC Name | Call Tags |
|---|---|
| HMP WRITEBACK ALLERGY | ALLERGY |
| HMP WRITEBACK ALLERGY EIE | ALLEIE |
