Released RMPR*3*166 SEQ #150 Extracted from mail message **KIDS**:RMPR*3.0*166^ **INSTALL NAME** RMPR*3.0*166 "BLD",9227,0) RMPR*3.0*166^PROSTHETICS^0^3130226^y "BLD",9227,1,0) ^^3^3^3130226^ "BLD",9227,1,1,0) This patch updates the Prosthetics Privacy Act Statements and fixes "BLD",9227,1,2,0) issues with Purchasing being unable to post Prosthetics Home Oxygen "BLD",9227,1,3,0) transactions. "BLD",9227,4,0) ^9.64PA^^ "BLD",9227,6.3) 2 "BLD",9227,"KRN",0) ^9.67PA^779.2^20 "BLD",9227,"KRN",.4,0) .4 "BLD",9227,"KRN",.401,0) .401 "BLD",9227,"KRN",.402,0) .402 "BLD",9227,"KRN",.403,0) .403 "BLD",9227,"KRN",.5,0) .5 "BLD",9227,"KRN",.84,0) .84 "BLD",9227,"KRN",3.6,0) 3.6 "BLD",9227,"KRN",3.8,0) 3.8 "BLD",9227,"KRN",9.2,0) 9.2 "BLD",9227,"KRN",9.8,0) 9.8 "BLD",9227,"KRN",9.8,"NM",0) ^9.68A^4^4 "BLD",9227,"KRN",9.8,"NM",1,0) RMPR9P23^^0^B303495 "BLD",9227,"KRN",9.8,"NM",2,0) RMPR4P23^^0^B10672593 "BLD",9227,"KRN",9.8,"NM",3,0) RMPRP23^^0^B10672100 "BLD",9227,"KRN",9.8,"NM",4,0) RMPOPST1^^0^B18943875 "BLD",9227,"KRN",9.8,"NM","B","RMPOPST1",4) "BLD",9227,"KRN",9.8,"NM","B","RMPR4P23",2) "BLD",9227,"KRN",9.8,"NM","B","RMPR9P23",1) "BLD",9227,"KRN",9.8,"NM","B","RMPRP23",3) "BLD",9227,"KRN",19,0) 19 "BLD",9227,"KRN",19,"NM",0) ^9.68A^^ "BLD",9227,"KRN",19.1,0) 19.1 "BLD",9227,"KRN",101,0) 101 "BLD",9227,"KRN",409.61,0) 409.61 "BLD",9227,"KRN",771,0) 771 "BLD",9227,"KRN",779.2,0) 779.2 "BLD",9227,"KRN",870,0) 870 "BLD",9227,"KRN",8989.51,0) 8989.51 "BLD",9227,"KRN",8989.52,0) 8989.52 "BLD",9227,"KRN",8994,0) 8994 "BLD",9227,"KRN","B",.4,.4) "BLD",9227,"KRN","B",.401,.401) "BLD",9227,"KRN","B",.402,.402) "BLD",9227,"KRN","B",.403,.403) "BLD",9227,"KRN","B",.5,.5) "BLD",9227,"KRN","B",.84,.84) "BLD",9227,"KRN","B",3.6,3.6) "BLD",9227,"KRN","B",3.8,3.8) "BLD",9227,"KRN","B",9.2,9.2) "BLD",9227,"KRN","B",9.8,9.8) "BLD",9227,"KRN","B",19,19) "BLD",9227,"KRN","B",19.1,19.1) "BLD",9227,"KRN","B",101,101) "BLD",9227,"KRN","B",409.61,409.61) "BLD",9227,"KRN","B",771,771) "BLD",9227,"KRN","B",779.2,779.2) "BLD",9227,"KRN","B",870,870) "BLD",9227,"KRN","B",8989.51,8989.51) "BLD",9227,"KRN","B",8989.52,8989.52) "BLD",9227,"KRN","B",8994,8994) "BLD",9227,"QDEF") ^^^^^^^^^^YES "BLD",9227,"QUES",0) ^9.62^^ "BLD",9227,"REQB",0) ^9.611^2^2 "BLD",9227,"REQB",1,0) RMPR*3.0*153^1 "BLD",9227,"REQB",2,0) RMPR*3.0*154^1 "BLD",9227,"REQB","B","RMPR*3.0*153",1) "BLD",9227,"REQB","B","RMPR*3.0*154",2) "MBREQ") 0 "PKG",280,-1) 1^1 "PKG",280,0) PROSTHETICS^RMPR^PROSTHETICS VERSION 3.0 ALPHA "PKG",280,20,0) ^9.402P^^0 "PKG",280,22,0) ^9.49I^1^1 "PKG",280,22,1,0) 3.0^2960209^2970624 "PKG",280,22,1,"PAH",1,0) 166^3130226 "PKG",280,22,1,"PAH",1,1,0) ^^3^3^3130226 "PKG",280,22,1,"PAH",1,1,1,0) This patch updates the Prosthetics Privacy Act Statements and fixes "PKG",280,22,1,"PAH",1,1,2,0) issues with Purchasing being unable to post Prosthetics Home Oxygen "PKG",280,22,1,"PAH",1,1,3,0) transactions. "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") NO "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") NO "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") 4 "RTN","RMPOPST1") 0^4^B18943875^B18233927 "RTN","RMPOPST1",1,0) RMPOPST1 ;EDS/JAM,RVD - HOME OXYGEN BILLING TRANSACTIONS/POSTING,Part 2 ;7/24/98 "RTN","RMPOPST1",2,0) ;;3.0;PROSTHETICS;**29,44,55,154,166**;Feb 09, 1996;Build 2 "RTN","RMPOPST1",3,0) ; RVD #55 - corrected the typo (missing '^' on TMP global). "RTN","RMPOPST1",4,0) ; "RTN","RMPOPST1",5,0) ;Processing of 1358 and Purchase Cards to IFCAP "RTN","RMPOPST1",6,0) Q "RTN","RMPOPST1",7,0) IFCAP ;process payment type - Purchase Card or 1358 "RTN","RMPOPST1",8,0) D @$S($P(PAYINF,U)="P":"PRHCARD",1:"1358") "RTN","RMPOPST1",9,0) I $P(^TMP($J,FCP),U,2) D "RTN","RMPOPST1",10,0) . W !!,FCP," ...Posted" D FCPUPD ;update global ^RMPO(665.72 "RTN","RMPOPST1",11,0) K A "RTN","RMPOPST1",12,0) Q ;IFCAP "RTN","RMPOPST1",13,0) ; "RTN","RMPOPST1",14,0) PRHCARD ;Processing IFCAP Purchase Card "RTN","RMPOPST1",15,0) N DFN,PRCA,PRCB,PRCC,INDVITM,ITMSTR,RMPOA,X,CNT,CURDT,CNTR,TOTD "RTN","RMPOPST1",16,0) S PRCA=PCTOT+FCPTOT,PRCB=IEN442,PRCC="RMPOA" "RTN","RMPOPST1",17,0) ;Store individual patient in array RMPOA for posting "RTN","RMPOPST1",18,0) S DFN="",TOTD=0,CNTR=0 F CNT=1:1 S DFN=$O(^TMP($J,FCP,DFN)) Q:DFN="" D "RTN","RMPOPST1",19,0) . S ITMSTR=^TMP($J,FCP,DFN),TOTD=TOTD+$P(ITMSTR,U),CNTR=CNTR+1 "RTN","RMPOPST1",20,0) I CNTR>0 S RMPOA(1)=$J(TOTD,10,2)_" TOTAL PATIENTS= "_CNTR "RTN","RMPOPST1",21,0) D EDITIC^PRCH7D(PRCA,PRCB,PRCC) "RTN","RMPOPST1",22,0) I X="^" D Q ;PRHCARD "RTN","RMPOPST1",23,0) . S $P(^TMP($J,FCP),U,2)=0,$P(^TMP($J,FCP),U,3)="Posting of PC aborted" "RTN","RMPOPST1",24,0) . ;W " ",$P(^TMP($J,FCP),U,3) "RTN","RMPOPST1",25,0) S $P(^TMP($J,FCP),U,2)=1,$P(^TMP($J,FCP),U,4)=PRCA "RTN","RMPOPST1",26,0) D NOW^%DTC S CURDT=% "RTN","RMPOPST1",27,0) ;Update file 660 and ^RMPO(665.72 "RTN","RMPOPST1",28,0) S DFN="" F S DFN=$O(^TMP($J,FCP,DFN)) Q:DFN="" D "RTN","RMPOPST1",29,0) . S $P(^TMP($J,FCP,DFN),U,3)=1 "RTN","RMPOPST1",30,0) . D GBLUPD "RTN","RMPOPST1",31,0) Q ;PRHCARD "RTN","RMPOPST1",32,0) ; "RTN","RMPOPST1",33,0) 1358 ;processing IFCAP 1358 "RTN","RMPOPST1",34,0) N DFN,IEN424,BAL,CURDT,Y,PATOT,PATINF,PSTFLG,PRCSX,PATINFW "RTN","RMPOPST1",35,0) ;Check balance on 1358 "RTN","RMPOPST1",36,0) S BAL=$$BAL(IEN442) I BAL