Changeset 636 for FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPOBIL5.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/RMPOBIL5.m
r628 r636 1 1 RMPOBIL5 ;(NG)/DUG - HOME OXYGEN BILLING TRANSACTIONS ;7/24/98 2 ;;3.0;PROSTHETICS;**29,99,137**;Feb 09, 1996;Build 5 3 N RMPRMERG S RMPRMERG=0 2 ;;3.0;PROSTHETICS;**29,99**;Feb 09, 1996 4 3 S (RC,RA,AN,ANS,RK,RZ)=0 D HDR 5 4 F S RA=$O(^RMPR(660,"AC",RMPRDFN,RA)) Q:RA="" D … … 7 6 . F S AN=$O(^RMPR(660,"AC",RMPRDFN,RA,AN)) Q:AN="" D 8 7 . . I $D(^RMPO(665.72,"AC",AN))>0 S RC=RC+1,IT(RC)=AN 9 ;Check for merged accounts10 I $D(^XDRM("B",RMPRDFN_";DPT(")) D11 . S RMPRMERG=$O(^XDRM("B",RMPRDFN_";DPT(",RMPRMERG)) Q:RMPRMERG=""12 . S RMPRMERG=+^XDRM(RMPRMERG,0) Q:RMPRMERG=0 D13 .. S RA=014 .. F S RA=$O(^RMPR(660,"AC",RMPRMERG,RA)) Q:RA="" D15 ... S AN=""16 ... F S AN=$O(^RMPR(660,"AC",RMPRMERG,RA,AN)) Q:AN="" D17 .... I $D(^RMPO(665.72,"AC",AN))>0 S RC=RC+1,IT(RC)=AN18 8 G:'$D(IT) END 19 9 DIS ;DISPLAY APPLIANCES OR REPAIRS
Note:
See TracChangeset
for help on using the changeset viewer.