Released RMPR*3*107 SEQ #82 Extracted from mail message **KIDS**:RMPR*3.0*107^ **INSTALL NAME** RMPR*3.0*107 "BLD",5537,0) RMPR*3.0*107^PROSTHETICS^0^3050510^y "BLD",5537,4,0) ^9.64PA^^ "BLD",5537,"KRN",0) ^9.67PA^8989.52^19 "BLD",5537,"KRN",.4,0) .4 "BLD",5537,"KRN",.401,0) .401 "BLD",5537,"KRN",.402,0) .402 "BLD",5537,"KRN",.403,0) .403 "BLD",5537,"KRN",.5,0) .5 "BLD",5537,"KRN",.84,0) .84 "BLD",5537,"KRN",3.6,0) 3.6 "BLD",5537,"KRN",3.8,0) 3.8 "BLD",5537,"KRN",9.2,0) 9.2 "BLD",5537,"KRN",9.8,0) 9.8 "BLD",5537,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",5537,"KRN",9.8,"NM",1,0) RMPR61PG^^0^B5264394 "BLD",5537,"KRN",9.8,"NM","B","RMPR61PG",1) "BLD",5537,"KRN",19,0) 19 "BLD",5537,"KRN",19.1,0) 19.1 "BLD",5537,"KRN",101,0) 101 "BLD",5537,"KRN",409.61,0) 409.61 "BLD",5537,"KRN",771,0) 771 "BLD",5537,"KRN",870,0) 870 "BLD",5537,"KRN",8989.51,0) 8989.51 "BLD",5537,"KRN",8989.52,0) 8989.52 "BLD",5537,"KRN",8994,0) 8994 "BLD",5537,"KRN","B",.4,.4) "BLD",5537,"KRN","B",.401,.401) "BLD",5537,"KRN","B",.402,.402) "BLD",5537,"KRN","B",.403,.403) "BLD",5537,"KRN","B",.5,.5) "BLD",5537,"KRN","B",.84,.84) "BLD",5537,"KRN","B",3.6,3.6) "BLD",5537,"KRN","B",3.8,3.8) "BLD",5537,"KRN","B",9.2,9.2) "BLD",5537,"KRN","B",9.8,9.8) "BLD",5537,"KRN","B",19,19) "BLD",5537,"KRN","B",19.1,19.1) "BLD",5537,"KRN","B",101,101) "BLD",5537,"KRN","B",409.61,409.61) "BLD",5537,"KRN","B",771,771) "BLD",5537,"KRN","B",870,870) "BLD",5537,"KRN","B",8989.51,8989.51) "BLD",5537,"KRN","B",8989.52,8989.52) "BLD",5537,"KRN","B",8994,8994) "BLD",5537,"QUES",0) ^9.62^^ "BLD",5537,"REQB",0) ^9.611^^ "MBREQ") 0 "PKG",150,-1) 1^1 "PKG",150,0) PROSTHETICS^RMPR^PROSTHETICS VERSION 3.0 ALPHA "PKG",150,20,0) ^9.402P^1^1 "PKG",150,20,1,0) 2^^ "PKG",150,20,1,1) "PKG",150,20,"B",2,1) "PKG",150,22,0) ^9.49I^1^1 "PKG",150,22,1,0) 3.0^2960209^2960620 "PKG",150,22,1,"PAH",1,0) 107^3050510 "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") YES "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") YES "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") YES "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","RMPR61PG") 0^1^B5264394 "RTN","RMPR61PG",1,0) RMPR61PG ;OIFO HINES/AA-PURGE 661.2 PROS STOCK ITEM RECORD FILE ;04/16/05 "RTN","RMPR61PG",2,0) ;;3.0;PROSTHETICS;**107**;04/16/05 "RTN","RMPR61PG",3,0) ; "RTN","RMPR61PG",4,0) ; This routine used to remove records from Global RMPR(661.2 "RTN","RMPR61PG",5,0) ; and remove the pointers to RMPR(661.2 from Global "RTN","RMPR61PG",6,0) ; RMPR(660 field 4.6 to reduce the install time for Patch RMPR*3*61 "RTN","RMPR61PG",7,0) ; "RTN","RMPR61PG",8,0) ; "RTN","RMPR61PG",9,0) EN ; "RTN","RMPR61PG",10,0) ; Check for installed RMPR*3.0*61 sites ** DO NOT CONTINUE PROCESS "RTN","RMPR61PG",11,0) ; Patch 61 creates global #661.6 "RTN","RMPR61PG",12,0) ; "RTN","RMPR61PG",13,0) I '$D(^RMPR(661.6,0)) D BACKUP D UPDATE G EXIT Q "RTN","RMPR61PG",14,0) Q "RTN","RMPR61PG",15,0) ; "RTN","RMPR61PG",16,0) UPDATE ; "RTN","RMPR61PG",17,0) ; Processing for non-installed RMPR*3.0*61 sites ** CONTINE TO PROCESS "RTN","RMPR61PG",18,0) ; "RTN","RMPR61PG",19,0) S RMPRIEN=0,(RMPRDAT,RMPRORDT)="" "RTN","RMPR61PG",20,0) D NOW^%DTC S RMPRYR=X-0020000,RMPRDAT=X "RTN","RMPR61PG",21,0) ; "RTN","RMPR61PG",22,0) ; RMPRYR = used to determine entries 2 years or more prior to "RTN","RMPR61PG",23,0) ; today's date "RTN","RMPR61PG",24,0) ; RMPRIEN = Internal Entry Number for records in RMPR(660 "RTN","RMPR61PG",25,0) ; RMPRNODE = Store the one (1) node for the selected record "RTN","RMPR61PG",26,0) ; RMPRPNTR = Pointer to record IEN in Global RMPR(661.2 "RTN","RMPR61PG",27,0) ; RMPRREC = Store the zero Node of the RMPR(661.2 Record "RTN","RMPR61PG",28,0) ; RMPRDAT = Record Date used to identify records 2+ years from "RTN","RMPR61PG",29,0) ; today's date. "RTN","RMPR61PG",30,0) ; "RTN","RMPR61PG",31,0) F S RMPRIEN=$O(^RMPR(660,RMPRIEN)) G:RMPRIEN'>0 EXIT D "RTN","RMPR61PG",32,0) .S RMPRNODE=$G(^RMPR(660,RMPRIEN,1)) Q:RMPRNODE="" "RTN","RMPR61PG",33,0) .S RMPRPNTR=$P(RMPRNODE,"^",5) Q:RMPRPNTR="" "RTN","RMPR61PG",34,0) .S RMPRREC=$G(^RMPR(661.2,RMPRPNTR,0)),RMPRDAT=$P(RMPRREC,"^",1) Q:RMPRDAT'>0 "RTN","RMPR61PG",35,0) .I RMPRDAT0 "RTN","RMPR61PG",62,0) S RMPRDUZ=$$WHO^RMPREOU(DUZ) "RTN","RMPR61PG",63,0) S XMY(RMPRDUZ)="" "RTN","RMPR61PG",64,0) S XMDUZ=DUZ "RTN","RMPR61PG",65,0) S XMSUB="PATCH RMPR*3.0*107 HAS COMPLETED" "RTN","RMPR61PG",66,0) S RMPRMSG(1)="PATCH RMPR*3.0*107 HAS COMPLETED SUCCESSFULLY" "RTN","RMPR61PG",67,0) S XMTEXT="RMPRMSG(" "RTN","RMPR61PG",68,0) D ^XMD "RTN","RMPR61PG",69,0) ; End of Message "RTN","RMPR61PG",70,0) K RMPRIEN,RMPRNODE,RMPRPNTR,RMPRREC,RMPRDAT,RMPRYR,DIE,DIK,DA,DR "RTN","RMPR61PG",71,0) K RMPRDUZ,RMPRMSG,RMPRPGDT,RMPRTODT,RMPRORDT "RTN","RMPR61PG",72,0) Q "VER") 8.0^22.0 **END** **END**