Changeset 636 for FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPREOS.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/RMPREOS.m
r628 r636 1 1 RMPREOS ;HINES-CIOFO/HNC -Suspense Processing ; 2/25/04 10:26am 2 ;;3.0;PROSTHETICS;**45,50,52,55,57,62,80,85,97 ,135**;Feb 09, 1996;Build 122 ;;3.0;PROSTHETICS;**45,50,52,55,57,62,80,85,97**;Feb 09, 1996 3 3 ; 4 4 ; HNC - patch 52 - 9/22/00 Modify EN2 not to check for RMPRFLAG … … 72 72 S GMRCO=$P(^RMPR(668,DA,0),U,15) Q:GMRCO="" 73 73 ;note in array 74 S RMPRCMT=0 ,GMRCMT=174 S RMPRCMT=0 75 75 F S RMPRCMT=$O(^RMPR(668,DA,3,RMPRCMT)) Q:RMPRCMT="" D 76 76 .S GMRCMT(RMPRCMT)=^RMPR(668,DA,3,RMPRCMT,0) 77 I $G(GMRCMT (1))="" S GMRCMT(1)="nothing noted"77 I $G(GMRCMT)="" S GMRCMT="nothing noted" 78 78 ;call api 79 D CMT^GMRCGUIB(GMRCO,.GMRCMT,DUZ,RMPREODT,DUZ)79 S RMGMRCO=$$RC^GMRCGUIA(.GMRCO,DUZ,RMPREODT,.GMRCMT,DUZ) 80 80 K RMPREODT,GMRCO,RMGMRCO,GMRCMT,RMPRCMT 81 81 Q
Note:
See TracChangeset
for help on using the changeset viewer.