Changeset 192 for ccr/trunk/p/CCRMEDS2.m
- Timestamp:
- Oct 7, 2008, 11:48:02 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRMEDS2.m
r188 r192 49 49 N RXIEN S RXIEN=0 50 50 N MEDCOUNT S MEDCOUNT=0 51 S MEDMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP")) ; THIS IS THE VARIABLE MAP 52 S MEDCOUNT=@MEDMAP@(0) ; ACCOUNT FOR MEDS ALREADY IN ARRAY 51 53 F S RXIEN=$O(MEDS(RXIEN)) Q:RXIEN="B" D ; FOR EACH MEDICATION IN THE LIST 52 54 . I $$GET1^DIQ(52.41,RXIEN,2,"I")="RF" QUIT ; Dont' want refill request as a "pending" order … … 54 56 . I DEBUG W "RXIEN IS ",RXIEN,! 55 57 . S MAP=$NA(^TMP("GPLCCR",$J,"MEDMAP",MEDCOUNT)) 56 . K @MAP 58 . ; K @MAP DON'T KILL MAP HERE, IT IS DONE IN CCRMEDS 59 . S @MEDMAP@(0)=@MEDMAP@(0)+1 ; INCREMENT TOTAL MEDS IN VAR ARRAY 57 60 . I DEBUG W "MAP= ",MAP,! 58 61 . N MED M MED=MEDS(RXIEN) ; PULL OUT MEDICATION FROM 59 . S @MAP@("MEDOBJECTID")="MED_PENDING"_MED(.01) ;Pending IEN 62 . S @MAP@("MEDOBJECTID")="MED_PENDING"_MEDCOUNT ; MEDCOUNT FOR ID 63 . ; S @MAP@("MEDOBJECTID")="MED_PENDING"_MED(.01) ;Pending IEN 60 64 . S @MAP@("MEDISSUEDATETXT")="Issue Date" 61 65 . ; Field 6 is "Effective date", and we pull it in timson format w/ I
Note:
See TracChangeset
for help on using the changeset viewer.