Changeset 246 for ccr/trunk/p/GPLRIMA.m
- Timestamp:
- Oct 28, 2008, 8:14:30 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLRIMA.m
r176 r246 65 65 . I $D(^TMP("GPLCCR",$J,"MEDMAP",1)) D ; MEDS VARS EXISTS 66 66 . . M @RIMBASE@("VARS",RIMDFN,"MEDS")=^TMP("GPLCCR",$J,"MEDMAP") 67 . I $D(^TMP("GPLALERT",$J,"ALERTS",1,"ALERTOBJECTID")) D ; ALERTS EXIST 68 . . W "FOUND ALERT VARS",! 69 . . M @RIMBASE@("VARS",RIMDFN,"ALERTS")=^TMP("GPLALERT",$J,"ALERTS") 67 70 . K ^TMP("GPLCCR",$J) ; KILL WORK AREA FOR CCR BUILDING 68 71 . ; … … 108 111 . . . I $P(ZR(ZI),"^",2)'="" D APOST("SATTR","RIMTBL","MEDSCODE") ;CODES 109 112 . ; D PATD^GPLRIMA(2,"MEDS","MEDPRODUCTNAMECODEVALUE") CHECK FOR MED CODES 110 D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED 113 I $D(@SBASE@("ALERTS",1)) D ; IF THE PATIENT HAS ALERTS 114 . D APOST("SATTR","RIMTBL","ALERTS") 115 . N ZR,ZI 116 . D GETPA(.ZR,SDFN,"ALERTS","ALERTAGENTPRODUCTCODEVALUE") ;REACTANT CODES 117 . I ZR(0)>0 D ; VAR LOOKUP WAS GOOD, CHECK FOR NON=NULL RETURN 118 . . F ZI=1:1:ZR(0) D ; LOOP THROUGH RETURNED VAR^VALUE PAIRS 119 . . . I $P(ZR(ZI),"^",2)'="" D APOST("SATTR","RIMTBL","ALERTSSCODE") ;CODES 120 ; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED 111 121 W "ATTRIBUTES: ",SATTR,! 112 122 Q SATTR … … 286 296 D APUSH(RIMTBL,"MEDSDATE") 287 297 D APUSH(RIMTBL,"MEDSNODATE") 298 D APUSH(RIMTBL,"ALERTS") 299 D APUSH(RIMTBL,"ALERTSCODE") 288 300 Q 289 301 ;
Note:
See TracChangeset
for help on using the changeset viewer.