Changeset 168 for ccr/trunk/p
- Timestamp:
- Sep 22, 2008, 5:35:23 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLRIMA.m
r167 r168 100 100 . ; W "POSTING PROBLEMS",! 101 101 I $D(@SBASE@("VITALS",1)) D APOST("SATTR","RIMTBL","VITALS") 102 I $D(@SBASE@("MEDS",1)) D APOST("SATTR","RIMTBL","MEDS") 103 ; D PATD^GPLRIMA(2,"MEDS","MEDPRODUCTNAMECODEVALUE") CHECK FOR MED CODES 102 I $D(@SBASE@("MEDS",1)) D ; IF THE PATIENT HAS MEDS VARIABLES 103 . D APOST("SATTR","RIMTBL","MEDS") 104 . N ZR,ZI 105 . D GETPA(.ZR,SDFN,"MEDS","MEDPRODUCTNAMECODEVALUE") ;CHECK FOR MED CODES 106 . I ZR(0)>0 D ; VAR LOOKUP WAS GOOD, CHECK FOR NON=NULL RETURN 107 . . F ZI=1:1:ZR(0) D ; LOOP THROUGH RETURNED VAR^VALUE PAIRS 108 . . . I $P(ZR(ZI),"^",2)'="" D APOST("SATTR","RIMTBL","MEDSCODE") ;CODES 109 . ; D PATD^GPLRIMA(2,"MEDS","MEDPRODUCTNAMECODEVALUE") CHECK FOR MED CODES 104 110 D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED 105 111 W "ATTRIBUTES: ",SATTR,!
Note:
See TracChangeset
for help on using the changeset viewer.