Changeset 636 for FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPAT2.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/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPAT2.m
r628 r636 1 1 RMPRPAT2 ;PHX/RFM/JLT/HNC-DISPLAY PATIENT ITEM ACTIVITY ;10/19/1993 2 ;;3.0;PROSTHETICS;**32,34,29,44,99,75 ,137**;Feb 09, 1996;Build53 D HDR N RMPRMERG S RMPRMERG=02 ;;3.0;PROSTHETICS;**32,34,29,44,99,75**;Feb 09, 1996;Build 25 3 D HDR 4 4 S (RA,AN,ANS,RK,RZ)=0 K ^TMP($J,"TT"),^TMP($J,"AG"),IT 5 5 MERGE ^TMP($J,"TT")=^RMPR(660,"AC",RMPRDFN) 6 ;Check for merged accounts7 I $D(^XDRM("B",RMPRDFN_";DPT(")) D8 . S RMPRMERG=$O(^XDRM("B",RMPRDFN_";DPT(",RMPRMERG)) Q:RMPRMERG=""9 . S RMPRMERG=+^XDRM(RMPRMERG,0) Q:RMPRMERG=010 . MERGE ^TMP($J,"TT")=^RMPR(660,"AC",RMPRMERG)11 6 S B=0 12 7 F S B=$O(^TMP($J,"TT",B)) Q:B'>0 D … … 21 16 . .S ^TMP($J,"AG",GN,ND,BC)=B 22 17 S B="" 23 F S B=$O(^TMP($J,"AG",B)) Q: +B=0 D18 F S B=$O(^TMP($J,"AG",B)) Q:B'>0 D 24 19 .S BC="" 25 20 .F S BC=$O(^TMP($J,"AG",B,BC)) Q:BC'>0 D
Note:
See TracChangeset
for help on using the changeset viewer.