Changeset 636 for FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXSCX1.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXSCX1.m
r628 r636 1 ECXSCX1 ;ALB/JAP,BIR/DMA-Clinic Extract Message ; 4/11/07 3:26pm2 ;;3.0;DSS EXTRACTS;**8,28,24,27,29,30,31,33,84,92 ,105**;Dec 22, 1997;Build 701 ECXSCX1 ;ALB/JAP,BIR/DMA-Clinic Extract Message ; 8/17/06 7:59am 2 ;;3.0;DSS EXTRACTS;**8,28,24,27,29,30,31,33,84,92**;Dec 22, 1997;Build 30 3 3 EN ;entry point from ecxscx 4 4 N ECX … … 148 148 .I '$D(ARY("P",ICD("S",I))) D 149 149 ..S CNT=CNT+1,ECXVIST("ICD9"_CNT)=$P($G(^ICD9(ICD("S",I),0)),U) 150 S:(ECXVIST("ICD9P")="")&(ECXVIST("ICD91")="") ECXVIST("ICD9P")="799.9" 150 151 ;get first provider designated as primary 151 152 ;if no primary, then get first physician provider
Note:
See TracChangeset
for help on using the changeset viewer.