{"aaData": [["PSO NSC RX COPAY NEW", "NSC CO\n", "RX CO-PAYMENT/NSC VET\n", "", "NEW\n", "PSO NSC RX COPAY CANCEL\n", "PSO NSC RX COPAY UPDATE\n", "NSC PHARMACY COPAY\n", "PSO NSC RX COPAY NEW\n", "YES\n", "RX COPAY\n", "", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", "S X=0,X1=\"\",X2=\"\" G:'$D(VAEL) 1^IBAERR I VAEL(4),'+VAEL(3),'IBDOM,'$$RXEXMT^IBARXEU0(DFN,DT) S X=1,X2=$P(^IBE(350.1,DA,0),\"^\",4) D COST^IBAUTL\n"], ["IB OPT MEDICARE RATE 4", "RATE 4\n", "", "", "NEW\n", "", "", "HCFA AMB. SURG. RATE 4\n", "IB OPT MEDICARE RATE 4\n", "", "", "", "", "", "", ""], ["DG LTC FEE INPT CNH CANCEL", "FLTC CNH\n", "NURSING HOME CARE-LTC\n", "", "CANCEL\n", "DG LTC FEE INPT CNH CANCEL\n", "DG LTC FEE INPT CNH UPDATE\n", "", "DG LTC FEE INPT CNH NEW\n", "", "LTC INPT\n", "1\n", "", "", "", ""], ["DG LTC FEE INPT CNH UPDATE", "FLTC CNH\n", "NURSING HOME CARE-LTC\n", "", "UPDATE\n", "DG LTC FEE INPT CNH CANCEL\n", "DG LTC FEE INPT CNH UPDATE\n", "", "DG LTC FEE INPT CNH NEW\n", "YES\n", "LTC INPT\n", "1\n", "", "", "", ""], ["DG LTC FEE INPT RESPITE NEW", "FLTC IRS\n", "RESPITE CARE-INSTITUTIONAL\n", "", "NEW\n", "DG LTC FEE INPT RESPITE CANCEL\n", "DG LTC FEE INPT RESPITE UPDATE\n", "FEE LTC INPT RESPITE\n", "DG LTC FEE INPT RESPITE NEW\n", "YES\n", "LTC INPT\n", "1\n", "", "", "", ""], ["DG LTC FEE INPT RESPITE CANCEL", "FLTC IRS\n", "RESPITE CARE-INSTITUTIONAL\n", "", "CANCEL\n", "DG LTC FEE INPT RESPITE CANCEL\n", "DG LTC FEE INPT RESPITE UPDATE\n", "", "DG LTC FEE INPT RESPITE NEW\n", "", "LTC INPT\n", "1\n", "", "", "", ""], ["DG LTC FEE INPT RESPITE UPDATE", "FLTC IRS\n", "RESPITE CARE-INSTITUTIONAL\n", "", "UPDATE\n", "DG LTC FEE INPT RESPITE CANCEL\n", "DG LTC FEE INPT RESPITE UPDATE\n", "", "DG LTC FEE INPT RESPITE NEW\n", "YES\n", "LTC INPT\n", "1\n", "", "", "", ""], ["DG LTC FEE OPT ADHC NEW", "FLTC ADH\n", "ADULT DAY HEALTH CARE\n", "", "NEW\n", "DG LTC FEE OPT ADHC CANCEL\n", "DG LTC FEE OPT ADHC UPDATE\n", "FEE LTC OPT ADHC\n", "DG LTC FEE OPT ADHC NEW\n", "YES\n", "LTC OPT\n", "1\n", "", "", "", ""], ["DG LTC FEE OPT ADHC CANCEL", "FLTC ADH\n", "ADULT DAY HEALTH CARE\n", "", "CANCEL\n", "DG LTC FEE OPT ADHC CANCEL\n", "DG LTC FEE OPT ADHC UPDATE\n", "", "DG LTC FEE OPT ADHC NEW\n", "", "LTC OPT\n", "1\n", "", "", "", ""], ["DG LTC FEE OPT ADHC UPDATE", "FLTC ADH\n", "ADULT DAY HEALTH CARE\n", "", "UPDATE\n", "DG LTC FEE OPT ADHC CANCEL\n", "DG LTC FEE OPT ADHC UPDATE\n", "", "DG LTC FEE OPT ADHC NEW\n", "YES\n", "LTC OPT\n", "1\n", "", "", "", ""], ["DG LTC FEE OPT RESPITE NEW", "FLTC ORS\n", "RESPITE CARE-NON-INSTITUTIONAL\n", "", "NEW\n", "DG LTC FEE OPT RESPITE CANCEL\n", "DG LTC FEE OPT RESPITE UPDATE\n", "FEE LTC OPT RESPITE\n", "DG LTC FEE OPT RESPITE NEW\n", "YES\n", "LTC OPT\n", "1\n", "", "", "", ""], ["DG LTC FEE OPT RESPITE CANCEL", "FLTC ORS\n", "RESPITE CARE-NON-INSTITUTIONAL\n", "", "CANCEL\n", "DG LTC FEE OPT RESPITE CANCEL\n", "DG LTC FEE OPT RESPITE UPDATE\n", "", "DG LTC FEE OPT RESPITE NEW\n", "", "LTC OPT\n", "1\n", "", "", "", ""], ["IB OPT MEDICARE RATE 5", "RATE 5\n", "", "", "NEW\n", "", "", "HCFA AMB. SURG. RATE 5\n", "IB OPT MEDICARE RATE 5\n", "", "", "", "", "", "", ""], ["DG LTC FEE OPT RESPITE UPDATE", "FLTC ORS\n", "RESPITE CARE-NON-INSTITUTIONAL\n", "", "UPDATE\n", "DG LTC FEE OPT RESPITE CANCEL\n", "DG LTC FEE OPT RESPITE UPDATE\n", "", "DG LTC FEE OPT RESPITE NEW\n", "YES\n", "LTC OPT\n", "1\n", "", "", "", ""], ["FEE SERV INPT PER DIEM NEW", "FSINT PD\n", "HOSPITAL CARE PER DIEM\n", "", "NEW\n", "FEE SERV INPT PER DIEM CANCEL\n", "FEE SERV INPT PER DIEM UPDATE\n", "FEE SERV INPT PER DIEM\n", "FEE SERV INPT PER DIEM NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "1\n", "", "S IBDESC=\"INPT PER DIEM\"\n", "", ""], ["FEE SERV INPT PER DIEM CANCEL", "CAN FSPD\n", "HOSPITAL CARE PER DIEM\n", "", "CANCEL\n", "FEE SERV INPT PER DIEM CANCEL\n", "FEE SERV INPT PER DIEM UPDATE\n", "", "FEE SERV INPT PER DIEM NEW\n", "", "", "1\n", "", "", "", ""], ["FEE SERV INPT PER DIEM UPDATE", "UPD FSPD\n", "HOSPITAL CARE PER DIEM\n", "", "UPDATE\n", "FEE SERV INPT PER DIEM CANCEL\n", "FEE SERV INPT PER DIEM UPDATE\n", "", "FEE SERV INPT PER DIEM NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "1\n", "", "", "", ""], ["FEE SERV NSC RX COPAY NEW", "FSNSC CO\n", "RX CO-PAYMENT/NSC VET\n", "", "NEW\n", "FEE SERV NSC RX COPAY CANCEL\n", "FEE SERV NSC RX COPAY UPDATE\n", "FEE SERV NSC RX CO\n", "FEE SERV NSC RX COPAY NEW\n", "YES\n", "RX COPAY\n", "1\n", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", "S X=0,X1=\"\",X2=\"\" G:'$D(VAEL) 1^IBAERR I VAEL(4),'+VAEL(3),'IBDOM,'$$RXEXMT^IBARXEU0(DFN,DT) S X=1,X2=$P(^IBE(350.1,DA,0),\"^\",4) D COST^IBAUTL\n"], ["FEE SERV NSC RX COPAY CANCEL", "CAN FNSC\n", "RX CO-PAYMENT/NSC VET\n", "", "CANCEL\n", "FEE SERV NSC RX COPAY CANCEL\n", "FEE SERV NSC RX COPAY UPDATE\n", "", "FEE SERV NSC RX COPAY NEW\n", "", "", "1\n", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["FEE SERV NSC RX COPAY UPDATE", "UPD FNSC\n", "RX CO-PAYMENT/NSC VET\n", "", "UPDATE\n", "FEE SERV NSC RX COPAY CANCEL\n", "FEE SERV NSC RX COPAY UPDATE\n", "", "FEE SERV NSC RX COPAY NEW\n", "YES\n", "RX COPAY\n", "1\n", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["CHOICE (INPT) CANCEL", "CAN CCCI\n", "CHOICE INPT\n", "", "CANCEL\n", "CHOICE (INPT) CANCEL\n", "CHOICE (INPT) UPDATE\n", "", "CHOICE (INPT) NEW\n", "", "INPT/NHCU FEE SERVICE\n", "1\n", "", "", "", ""], ["CHOICE (INPT) NEW", "NEW CCCI\n", "CHOICE INPT\n", "", "NEW\n", "CHOICE (INPT) CANCEL\n", "CHOICE (INPT) UPDATE\n", "CHOICE INPATIENT\n", "CHOICE (INPT) NEW\n", "YES\n", "INPT/NHCU FEE SERVICE\n", "1\n", "", "", "", ""], ["CHOICE (INPT) UPDATE", "UPD CCCI\n", "CHOICE INPT\n", "", "UPDATE\n", "CHOICE (INPT) CANCEL\n", "CHOICE (INPT) UPDATE\n", "", "CHOICE (INPT) NEW\n", "YES\n", "INPT/NHCU FEE SERVICE\n", "1\n", "", "", "", ""], ["IB OPT MEDICARE RATE 6", "RATE 6\n", "", "", "NEW\n", "", "", "HCFA AMB. SURG. RATE 6\n", "IB OPT MEDICARE RATE 6\n", "", "", "", "", "", "", ""], ["CHOICE (PER DIEM) CANCEL", "CAN CCCP\n", "CHOICE INPT\n", "", "CANCEL\n", "CHOICE (PER DIEM) CANCEL\n", "CHOICE (PER DIEM) UPDATE\n", "", "CHOICE (PER DIEM) NEW\n", "", "INPT/NHCU PER DIEM\n", "1\n", "", "", "", ""], ["CHOICE (PER DIEM) NEW", "NEW CCCP\n", "CHOICE INPT\n", "", "NEW\n", "CHOICE (PER DIEM) CANCEL\n", "CHOICE (PER DIEM) UPDATE\n", "CHOICE PER DIEM\n", "CHOICE (PER DIEM) NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "1\n", "", "S IBDESC=\"INPT PER DIEM\"\n", "", ""], ["CHOICE (PER DIEM) UPDATE", "UPD CCCP\n", "CHOICE INPT\n", "", "UPDATE\n", "CHOICE (PER DIEM) CANCEL\n", "CHOICE (PER DIEM) UPDATE\n", "", "CHOICE (PER DIEM) NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "1\n", "", "", "", ""], ["CHOICE (OPT) CANCEL", "CAN CCCO\n", "CHOICE OPT\n", "", "CANCEL\n", "CHOICE (OPT) CANCEL\n", "CHOICE (OPT) UPDATE\n", "", "CHOICE (OPT) NEW\n", "", "OPT COPAY\n", "1\n", "", "", "", ""], ["CHOICE (OPT) NEW", "NEW CCCO\n", "CHOICE OPT\n", "", "NEW\n", "CHOICE (OPT) CANCEL\n", "CHOICE (OPT) UPDATE\n", "CHOICE OUTPATIENT\n", "CHOICE (OPT) NEW\n", "YES\n", "OPT COPAY\n", "1\n", "", "S IBDESC=\"CHOICE OPT COPAY\"\n", "", ""], ["CHOICE (OPT) UPDATE", "UPD CCCO\n", "CHOICE OPT\n", "", "UPDATE\n", "CHOICE (OPT) CANCEL\n", "CHOICE (OPT) UPDATE\n", "", "CHOICE (OPT) NEW\n", "YES\n", "OPT COPAY\n", "1\n", "", "", "", ""], ["CHOICE (RX) CANCEL", "CAN CCCR\n", "CHOICE RX CO-PAYMENT\n", "File: 49, IEN: 0\n", "CANCEL\n", "CHOICE (RX) CANCEL\n", "CHOICE (RX) UPDATE\n", "", "CHOICE (RX) NEW\n", "", "RX COPAY\n", "1\n", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["CHOICE (RX) NEW", "NEW CCCR\n", "CHOICE RX CO-PAYMENT\n", "File: 49, IEN: 0\n", "NEW\n", "CHOICE (RX) CANCEL\n", "CHOICE (RX) UPDATE\n", "CHOICE RX\n", "CHOICE (RX) NEW\n", "YES\n", "RX COPAY\n", "1\n", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", "S X=0,X1=\"\",X2=\"\" G:'$D(VAEL) 1^IBAERR I VAEL(4),'+VAEL(3),'IBDOM,'$$RXEXMT^IBARXEU0(DFN,DT) S X=1,X2=$P(^IBE(350.1,DA,0),\"^\",4) D COST^IBAUTL\n"], ["CHOICE (RX) UPDATE", "UPD CCCR\n", "CHOICE RX CO-PAYMENT\n", "File: 49, IEN: 0\n", "UPDATE\n", "CHOICE (RX) CANCEL\n", "CHOICE (RX) UPDATE\n", "", "CHOICE (RX) NEW\n", "YES\n", "RX COPAY\n", "1\n", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["CC (INPT) CANCEL", "CAN CCIP\n", "CC INPT\n", "", "CANCEL\n", "CC (INPT) CANCEL\n", "CC (INPT) UPDATE\n", "", "CC (INPT) NEW\n", "", "INPT/NHCU FEE SERVICE\n", "", "", "", "", ""], ["IB OPT MEDICARE RATE 7", "RATE 7\n", "", "", "NEW\n", "", "", "HCFA AMB. SURG. RATE 7\n", "IB OPT MEDICARE RATE 7\n", "", "", "", "", "", "", ""], ["CC (INPT) NEW", "NEW CCIP\n", "CC INPT\n", "", "NEW\n", "CC (INPT) CANCEL\n", "CC (INPT) UPDATE\n", "CC INPATIENT\n", "CC (INPT) NEW\n", "YES\n", "INPT/NHCU FEE SERVICE\n", "", "", "", "", ""], ["CC (INPT) UPDATE", "UPD CCIP\n", "CC INPT\n", "", "UPDATE\n", "CC (INPT) CANCEL\n", "CC (INPT) UPDATE\n", "", "CC (INPT) NEW\n", "YES\n", "INPT/NHCU FEE SERVICE\n", "", "", "", "", ""], ["CC (PER DIEM) CANCEL", "CAN CCPD\n", "CC INPT\n", "", "CANCEL\n", "CC (PER DIEM) CANCEL\n", "CC (PER DIEM) UPDATE\n", "", "CC (PER DIEM) NEW\n", "", "INPT/NHCU PER DIEM\n", "", "", "", "", ""], ["CC (PER DIEM) NEW", "NEW CCPD\n", "CC INPT\n", "", "NEW\n", "CC (PER DIEM) CANCEL\n", "CC (PER DIEM) UPDATE\n", "CC PER DIEM\n", "CC (PER DIEM) NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "", "", "S IBDESC=\"INPT PER DIEM\"\n", "", ""], ["CC (PER DIEM) UPDATE", "UPD CCPD\n", "CC INPT\n", "", "UPDATE\n", "CC (PER DIEM) CANCEL\n", "CC (PER DIEM) UPDATE\n", "", "CC (PER DIEM) NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "", "", "", "", ""], ["CC (OPT) CANCEL", "CAN CCO\n", "CC OPT\n", "", "CANCEL\n", "CC (OPT) CANCEL\n", "CC (OPT) UPDATE\n", "", "CC (OPT) NEW\n", "", "OPT COPAY\n", "", "", "", "", ""], ["CC (OPT) NEW", "NEW CCO\n", "CC OPT\n", "", "NEW\n", "CC (OPT) CANCEL\n", "CC (OPT) UPDATE\n", "CC OUTPATIENT\n", "CC (OPT) NEW\n", "YES\n", "OPT COPAY\n", "", "", "S IBDESC=\"CC OPT COPAY\"\n", "", ""], ["CC (OPT) UPDATE", "UPD CCO\n", "CC OPT\n", "", "UPDATE\n", "CC (OPT) CANCEL\n", "CC (OPT) UPDATE\n", "", "CC (OPT) NEW\n", "YES\n", "OPT COPAY\n", "", "", "", "", ""], ["CC (RX) CANCEL", "CAN CCRX\n", "CC RX CO-PAYMENT\n", "File: 49, IEN: 0\n", "CANCEL\n", "CC (RX) CANCEL\n", "CC (RX) UPDATE\n", "", "CC (RX) NEW\n", "", "RX COPAY\n", "", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["CC (RX) NEW", "NEW CCRX\n", "CC RX CO-PAYMENT\n", "File: 49, IEN: 0\n", "NEW\n", "CC (RX) CANCEL\n", "CC (RX) UPDATE\n", "CC RX COPAY\n", "CC (RX) NEW\n", "YES\n", "RX COPAY\n", "", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", "S X=0,X1=\"\",X2=\"\" G:'$D(VAEL) 1^IBAERR I VAEL(4),'+VAEL(3),'IBDOM,'$$RXEXMT^IBARXEU0(DFN,DT) S X=1,X2=$P(^IBE(350.1,DA,0),\"^\",4) D COST^IBAUTL\n"], ["IB OPT MEDICARE RATE 8", "RATE 8\n", "", "", "NEW\n", "", "", "HCFA AMB. SURG. RATE 8\n", "IB OPT MEDICARE RATE 8\n", "", "", "", "", "", "", ""], ["CC (RX) UPDATE", "UPD CCRX\n", "CC RX CO-PAYMENT\n", "File: 49, IEN: 0\n", "UPDATE\n", "CC (RX) CANCEL\n", "CC (RX) UPDATE\n", "", "CC (RX) NEW\n", "YES\n", "RX COPAY\n", "", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["CCN (INPT) CANCEL", "CAN CCNI\n", "CCN INPT\n", "", "CANCEL\n", "CCN (INPT) CANCEL\n", "CCN (INPT) UPDATE\n", "", "CCN (INPT) NEW\n", "", "INPT/NHCU FEE SERVICE\n", "", "", "", "", ""], ["CCN (INPT) NEW", "NEW CCNI\n", "CCN INPT\n", "", "NEW\n", "CCN (INPT) CANCEL\n", "CCN (INPT) UPDATE\n", "CCN INPATIENT\n", "CCN (INPT) NEW\n", "YES\n", "INPT/NHCU FEE SERVICE\n", "", "", "", "", ""], ["CCN (INPT) UPDATE", "UPD CCNI\n", "CCN INPT\n", "", "UPDATE\n", "CCN (INPT) CANCEL\n", "CCN (INPT) UPDATE\n", "", "CCN (INPT) NEW\n", "YES\n", "INPT/NHCU FEE SERVICE\n", "", "", "", "", ""], ["CCN (PER DIEM) CANCEL", "CAN CCNP\n", "CCN INPT\n", "", "CANCEL\n", "CCN (PER DIEM) CANCEL\n", "CCN (PER DIEM) UPDATE\n", "", "CCN (PER DIEM) NEW\n", "", "INPT/NHCU PER DIEM\n", "", "", "", "", ""], ["CCN (PER DIEM) NEW", "NEW CCNP\n", "CCN INPT\n", "", "NEW\n", "CCN (PER DIEM) CANCEL\n", "CCN (PER DIEM) UPDATE\n", "CCN PER DIEM\n", "CCN (PER DIEM) NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "", "", "S IBDESC=\"INPT PER DIEM\"\n", "", ""], ["CCN (PER DIEM) UPDATE", "UPD CCNP\n", "CCN INPT\n", "", "UPDATE\n", "CCN (PER DIEM) CANCEL\n", "CCN (PER DIEM) UPDATE\n", "", "CCN (PER DIEM) NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "", "", "", "", ""], ["CCN (OPT) CANCEL", "CAN CCNO\n", "CCN OPT\n", "", "CANCEL\n", "CCN (OPT) CANCEL\n", "CCN (OPT) UPDATE\n", "", "CCN (OPT) NEW\n", "", "OPT COPAY\n", "", "", "", "", ""], ["CCN (OPT) NEW", "NEW CCNO\n", "CCN OPT\n", "", "NEW\n", "CCN (OPT) CANCEL\n", "CCN (OPT) UPDATE\n", "CCN OUTPATIENT\n", "CCN (OPT) NEW\n", "YES\n", "OPT COPAY\n", "", "", "S IBDESC=\"CCN OPT COPAY\"\n", "", ""], ["CCN (OPT) UPDATE", "UPD CCNO\n", "CCN OPT\n", "", "UPDATE\n", "CCN (OPT) CANCEL\n", "CCN (OPT) UPDATE\n", "", "CCN (OPT) NEW\n", "YES\n", "OPT COPAY\n", "", "", "", "", ""], ["DG INPT COPAY (MED) NEW", "MED CO\n", "HOSPITAL CARE (NSC)\n", "", "NEW\n", "DG INPT COPAY (MED) CANCEL\n", "DG INPT COPAY (MED) UPDATE\n", "GEN MED INPT COPAY\n", "DG INPT COPAY (MED) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "S IBDESC=\"INPT CO-PAY (MED)\"\n", "", ""], ["CCN (RX) CANCEL", "CAN CCNR\n", "CCN RX CO-PAYMENT\n", "File: 49, IEN: 0\n", "CANCEL\n", "CCN (RX) CANCEL\n", "CCN (RX) UPDATE\n", "", "CCN (RX) NEW\n", "", "RX COPAY\n", "", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["CCN (RX) NEW", "NEW CCNR\n", "CCN RX CO-PAYMENT\n", "File: 49, IEN: 0\n", "NEW\n", "CCN (RX) CANCEL\n", "CCN (RX) UPDATE\n", "CCN RX COPAY\n", "CCN (RX) NEW\n", "YES\n", "RX COPAY\n", "", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", "S X=0,X1=\"\",X2=\"\" G:'$D(VAEL) 1^IBAERR I VAEL(4),'+VAEL(3),'IBDOM,'$$RXEXMT^IBARXEU0(DFN,DT) S X=1,X2=$P(^IBE(350.1,DA,0),\"^\",4) D COST^IBAUTL\n"], ["CCN (RX) UPDATE", "UPD CCNR\n", "CCN RX CO-PAYMENT\n", "File: 49, IEN: 0\n", "UPDATE\n", "CCN (RX) CANCEL\n", "CCN (RX) UPDATE\n", "", "CCN (RX) NEW\n", "YES\n", "RX COPAY\n", "", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["CC MTF (INPT) CANCEL", "CAN CCDI\n", "CC MTF INPT\n", "", "CANCEL\n", "CC MTF (INPT) CANCEL\n", "CC MTF (INPT) UPDATE\n", "", "CC MTF (INPT) NEW\n", "", "INPT/NHCU FEE SERVICE\n", "1\n", "", "", "", ""], ["CC MTF (INPT) NEW", "NEW CCDI\n", "CC MTF INPT\n", "", "NEW\n", "CC MTF (INPT) CANCEL\n", "CC MTF (INPT) UPDATE\n", "CC MTF INPATIENT\n", "CC MTF (INPT) NEW\n", "YES\n", "INPT/NHCU FEE SERVICE\n", "1\n", "", "", "", ""], ["CC MTF (INPT) UPDATE", "UPD CCDI\n", "CC MTF INPT\n", "", "UPDATE\n", "CC MTF (INPT) CANCEL\n", "CC MTF (INPT) UPDATE\n", "", "CC MTF (INPT) NEW\n", "YES\n", "INPT/NHCU FEE SERVICE\n", "1\n", "", "", "", ""], ["CC MTF (PER DIEM) CANCEL", "CAN CCDP\n", "CC MTF INPT\n", "", "CANCEL\n", "CC MTF (PER DIEM) CANCEL\n", "CC MTF (PER DIEM) UPDATE\n", "", "CC MTF (PER DIEM) NEW\n", "", "INPT/NHCU PER DIEM\n", "1\n", "", "", "", ""], ["CC MTF (PER DIEM) NEW", "NEW CCDP\n", "CC MTF INPT\n", "", "NEW\n", "CC MTF (PER DIEM) CANCEL\n", "CC MTF (PER DIEM) UPDATE\n", "CC MTF PER DIEM\n", "CC MTF (PER DIEM) NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "1\n", "", "S IBDESC=\"INPT PER DIEM\"\n", "", ""], ["CC MTF (PER DIEM) UPDATE", "UPD CCDP\n", "CC MTF INPT\n", "", "UPDATE\n", "CC MTF (PER DIEM) CANCEL\n", "CC MTF (PER DIEM) UPDATE\n", "", "CC MTF (PER DIEM) NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "1\n", "", "", "", ""], ["CC MTF (OPT) CANCEL", "CAN CCDO\n", "CC MTF OPT\n", "", "CANCEL\n", "CC MTF (OPT) CANCEL\n", "CC MTF (OPT) UPDATE\n", "", "CC MTF (OPT) NEW\n", "", "INPT/NHCU FEE SERVICE\n", "1\n", "", "", "", ""], ["DG INPT COPAY (SUR) NEW", "SUR CO\n", "HOSPITAL CARE (NSC)\n", "", "NEW\n", "DG INPT COPAY (SUR) CANCEL\n", "DG INPT COPAY (SUR) UPDATE\n", "SURGICAL INPT COPAY\n", "DG INPT COPAY (SUR) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "S IBDESC=\"INPT CO-PAY (SUR)\"\n", "", ""], ["CC MTF (OPT) NEW", "NEW CCDO\n", "CC MTF OPT\n", "", "NEW\n", "CC MTF (OPT) CANCEL\n", "CC MTF (OPT) UPDATE\n", "CC MTF OUTPATIENT\n", "CC MTF (OPT) NEW\n", "YES\n", "OPT COPAY\n", "1\n", "", "S IBDESC=\"CC MTF OPT COPAY\"\n", "", ""], ["CC MTF (OPT) UPDATE", "UPD CCDO\n", "CC MTF OPT\n", "", "UPDATE\n", "CC MTF (OPT) CANCEL\n", "CC MTF (OPT) UPDATE\n", "", "CC MTF (OPT) NEW\n", "YES\n", "OPT COPAY\n", "1\n", "", "", "", ""], ["CC MTF (RX) CANCEL", "CAN CCDR\n", "CC MTF RX CO-PAYMENT\n", "File: 49, IEN: 0\n", "CANCEL\n", "CC MTF (RX) CANCEL\n", "CC MTF (RX) UPDATE\n", "", "CC MTF (RX) NEW\n", "", "RX COPAY\n", "1\n", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["CC MTF (RX) NEW", "NEW CCDR\n", "CC MTF RX CO-PAYMENT\n", "File: 49, IEN: 0\n", "NEW\n", "CC MTF (RX) CANCEL\n", "CC MTF (RX) UPDATE\n", "CC MTF RX COPAY\n", "CC MTF (RX) NEW\n", "YES\n", "RX COPAY\n", "1\n", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", "S X=0,X1=\"\",X2=\"\" G:'$D(VAEL) 1^IBAERR I VAEL(4),'+VAEL(3),'IBDOM,'$$RXEXMT^IBARXEU0(DFN,DT) S X=1,X2=$P(^IBE(350.1,DA,0),\"^\",4) D COST^IBAUTL\n"], ["CC MTF (RX) UPDATE", "UPD CCDR\n", "CC MTF RX CO-PAYMENT\n", "File: 49, IEN: 0\n", "UPDATE\n", "CC MTF (RX) CANCEL\n", "CC MTF (RX) UPDATE\n", "", "CC MTF (RX) NEW\n", "YES\n", "RX COPAY\n", "1\n", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["LTC CC INPT CNH CANCEL", "C CCCNH\n", "CC NURSING HOME CARE - LTC\n", "", "CANCEL\n", "LTC CC INPT CNH CANCEL\n", "LTC CC INPT CNH UPDATE\n", "", "LTC CC INPT CNH NEW\n", "", "LTC INPT\n", "", "", "", "", ""], ["LTC CC INPT CNH NEW", "N CCCNH\n", "CC NURSING HOME CARE - LTC\n", "", "NEW\n", "LTC CC INPT CNH CANCEL\n", "LTC CC INPT CNH UPDATE\n", "CC LTC INPT CNH\n", "LTC CC INPT CNH NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["LTC CC INPT CNH UPDATE", "U CCCNH\n", "CC NURSING HOME CARE - LTC\n", "", "UPDATE\n", "LTC CC INPT CNH CANCEL\n", "LTC CC INPT CNH UPDATE\n", "", "LTC CC INPT CNH NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["LTC CC INPT RESPITE CANCEL", "C CCIRES\n", "CC RESPITE CARE\n", "", "CANCEL\n", "LTC CC INPT RESPITE CANCEL\n", "LTC CC INPT RESPITE UPDATE\n", "", "LTC CC INPT RESPITE NEW\n", "", "LTC INPT\n", "", "", "", "", ""], ["LTC CC INPT RESPITE NEW", "N CCIRES\n", "CC RESPITE CARE\n", "", "NEW\n", "LTC CC INPT RESPITE CANCEL\n", "LTC CC INPT RESPITE UPDATE\n", "CC LTC INPT RESPITE\n", "LTC CC INPT RESPITE NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["DG INPT COPAY (SPI) NEW", "SPI CO\n", "HOSPITAL CARE (NSC)\n", "", "NEW\n", "DG INPT COPAY (SPI) CANCEL\n", "DG INPT COPAY (SPI) UPDATE\n", "SPINAL CORD INPT COPAY\n", "DG INPT COPAY (SPI) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "S IBDESC=\"INPT CO-PAY (SPI)\"\n", "", ""], ["LTC CC INPT RESPITE UPDATE", "U CCIRES\n", "CC RESPITE CARE\n", "", "UPDATE\n", "LTC CC INPT RESPITE CANCEL\n", "LTC CC INPT RESPITE UPDATE\n", "", "LTC CC INPT RESPITE NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["LTC CC OPT ADHC CANCEL", "C CCADHC\n", "CC NURSING HOME CARE - LTC\n", "", "CANCEL\n", "LTC CC OPT ADHC CANCEL\n", "LTC CC OPT ADHC UPDATE\n", "", "LTC CC OPT ADHC NEW\n", "", "LTC OPT\n", "", "", "", "", ""], ["LTC CC OPT ADHC NEW", "N CCADHC\n", "CC NURSING HOME CARE - LTC\n", "", "NEW\n", "LTC CC OPT ADHC CANCEL\n", "LTC CC OPT ADHC UPDATE\n", "CC LTC OPT ADHC\n", "LTC CC OPT ADHC NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["LTC CC OPT ADHC UPDATE", "U CCADHC\n", "CC NURSING HOME CARE - LTC\n", "", "UPDATE\n", "LTC CC OPT ADHC CANCEL\n", "LTC CC OPT ADHC UPDATE\n", "", "LTC CC OPT ADHC NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["LTC CC OPT RESPITE CANCEL", "C CCORES\n", "CC RESPITE CARE\n", "", "CANCEL\n", "LTC CC OPT RESPITE CANCEL\n", "LTC CC OPT RESPITE UPDATE\n", "", "LTC CC OPT RESPITE NEW\n", "", "LTC OPT\n", "", "", "", "", ""], ["LTC CC OPT RESPITE NEW", "N CCORES\n", "CC RESPITE CARE\n", "", "NEW\n", "LTC CC OPT RESPITE CANCEL\n", "LTC CC OPT RESPITE UPDATE\n", "CC LTC OPT RESPITE\n", "LTC CC OPT RESPITE NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["LTC CC OPT RESPITE UPDATE", "U CCORES\n", "CC RESPITE CARE\n", "", "UPDATE\n", "LTC CC OPT RESPITE CANCEL\n", "LTC CC OPT RESPITE UPDATE\n", "", "LTC CC OPT RESPITE NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["LTC CCN INPT CNH CANCEL", "C CCNCNH\n", "CCN NURSING HOME CARE - LTC\n", "", "CANCEL\n", "LTC CCN INPT CNH CANCEL\n", "LTC CCN INPT CNH UPDATE\n", "", "LTC CCN INPT CNH NEW\n", "", "LTC INPT\n", "", "", "", "", ""], ["LTC CCN INPT CNH NEW", "N CCNCNH\n", "CCN NURSING HOME CARE - LTC\n", "", "NEW\n", "LTC CCN INPT CNH CANCEL\n", "LTC CCN INPT CNH UPDATE\n", "CCN LTC INPT CNH\n", "LTC CCN INPT CNH NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["LTC CCN INPT CNH UPDATE", "U CCNCNH\n", "CCN NURSING HOME CARE - LTC\n", "", "UPDATE\n", "LTC CCN INPT CNH CANCEL\n", "LTC CCN INPT CNH UPDATE\n", "", "LTC CCN INPT CNH NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["DG INPT COPAY (PSY) NEW", "PSY CO\n", "HOSPITAL CARE (NSC)\n", "", "NEW\n", "DG INPT COPAY (PSY) CANCEL\n", "DG INPT COPAY (PSY) UPDATE\n", "PSYCHIATRIC INPT COPAY\n", "DG INPT COPAY (PSY) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "S IBDESC=\"INPT CO-PAY (PSY)\"\n", "", ""], ["LTC CCN INPT RESPITE CANCEL", "C CCNIRS\n", "CCN RESPITE CARE\n", "", "CANCEL\n", "LTC CCN INPT RESPITE CANCEL\n", "LTC CCN INPT RESPITE UPDATE\n", "", "LTC CCN INPT RESPITE NEW\n", "", "LTC INPT\n", "", "", "", "", ""], ["LTC CCN INPT RESPITE NEW", "N CCNIRS\n", "CCN RESPITE CARE\n", "", "NEW\n", "LTC CCN INPT RESPITE CANCEL\n", "LTC CCN INPT RESPITE UPDATE\n", "CCN LTC INPT RESPITE\n", "LTC CCN INPT RESPITE NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["LTC CCN INPT RESPITE UPDATE", "U CCNIRS\n", "CCN RESPITE CARE\n", "", "UPDATE\n", "LTC CCN INPT RESPITE CANCEL\n", "LTC CCN INPT RESPITE UPDATE\n", "", "LTC CCN INPT RESPITE NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["LTC CCN OPT ADHC CANCEL", "C CCNOAD\n", "CCN NURSING HOME CARE - LTC\n", "", "CANCEL\n", "LTC CCN OPT ADHC CANCEL\n", "LTC CCN OPT ADHC UPDATE\n", "", "LTC CCN OPT ADHC NEW\n", "", "LTC OPT\n", "", "", "", "", ""], ["LTC CCN OPT ADHC NEW", "N CCNOAD\n", "CCN NURSING HOME CARE - LTC\n", "", "NEW\n", "LTC CCN OPT ADHC CANCEL\n", "LTC CCN OPT ADHC UPDATE\n", "CCN LTC OPT ADHC\n", "LTC CCN OPT ADHC NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["LTC CCN OPT ADHC UPDATE", "U CCNOAD\n", "CCN NURSING HOME CARE - LTC\n", "", "UPDATE\n", "LTC CCN OPT ADHC CANCEL\n", "LTC CCN OPT ADHC UPDATE\n", "", "LTC CCN OPT ADHC NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["LTC CCN OPT RESPITE CANCEL", "C CCNORS\n", "CCN RESPITE CARE\n", "", "CANCEL\n", "LTC CCN OPT RESPITE CANCEL\n", "LTC CCN OPT RESPITE UPDATE\n", "", "LTC CCN OPT RESPITE NEW\n", "", "LTC OPT\n", "", "", "", "", ""], ["LTC CCN OPT RESPITE NEW", "N CCNORS\n", "CCN RESPITE CARE\n", "", "NEW\n", "LTC CCN OPT RESPITE CANCEL\n", "LTC CCN OPT RESPITE UPDATE\n", "CCN LTC OPT RESPITE\n", "LTC CCN OPT RESPITE NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["LTC CCN OPT RESPITE UPDATE", "U CCNORS\n", "CCN RESPITE CARE\n", "", "UPDATE\n", "LTC CCN OPT RESPITE CANCEL\n", "LTC CCN OPT RESPITE UPDATE\n", "", "LTC CCN OPT RESPITE NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["LTC CHOICE INPT CNH CANCEL", "C CCCCNH\n", "CHOICE NURSING HOME CARE - LTC\n", "", "CANCEL\n", "LTC CHOICE INPT CNH CANCEL\n", "LTC CHOICE INPT CNH UPDATE\n", "", "LTC CHOICE INPT CNH NEW\n", "", "LTC INPT\n", "1\n", "", "", "", ""], ["DG INPT COPAY (INT) NEW", "INT CO\n", "HOSPITAL CARE (NSC)\n", "", "NEW\n", "DG INPT COPAY (INT) CANCEL\n", "DG INPT COPAY (INT) UPDATE\n", "INTER CARE INPT COPAY\n", "DG INPT COPAY (INT) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "S IBDESC=\"INPT CO-PAY (INT)\"\n", "", ""], ["LTC CHOICE INPT CNH NEW", "N CCCCNH\n", "CHOICE NURSING HOME CARE - LTC\n", "", "NEW\n", "LTC CHOICE INPT CNH CANCEL\n", "LTC CHOICE INPT CNH UPDATE\n", "CHOICE LTC INPT CNH\n", "LTC CHOICE INPT CNH NEW\n", "YES\n", "LTC INPT\n", "1\n", "", "", "", ""], ["LTC CHOICE INPT CNH UPDATE", "U CCCCNH\n", "CHOICE NURSING HOME CARE - LTC\n", "", "UPDATE\n", "LTC CHOICE INPT CNH CANCEL\n", "LTC CHOICE INPT CNH UPDATE\n", "", "LTC CHOICE INPT CNH NEW\n", "YES\n", "LTC INPT\n", "1\n", "", "", "", ""], ["LTC CHOICE INPT RESPITE CANCEL", "C CCCIRS\n", "CHOICE RESPITE CARE\n", "", "CANCEL\n", "LTC CHOICE INPT RESPITE CANCEL\n", "LTC CHOICE INPT RESPITE UPDATE\n", "", "LTC CHOICE INPT RESPITE NEW\n", "", "LTC INPT\n", "1\n", "", "", "", ""], ["LTC CHOICE INPT RESPITE NEW", "N CCCIRS\n", "CHOICE RESPITE CARE\n", "", "NEW\n", "LTC CHOICE INPT RESPITE CANCEL\n", "LTC CHOICE INPT RESPITE UPDATE\n", "CHOICE LTC INP RESPITE\n", "LTC CHOICE INPT RESPITE NEW\n", "YES\n", "LTC INPT\n", "1\n", "", "", "", ""], ["LTC CHOICE INPT RESPITE UPDATE", "U CCCIRS\n", "CHOICE RESPITE CARE\n", "", "UPDATE\n", "LTC CHOICE INPT RESPITE CANCEL\n", "LTC CHOICE INPT RESPITE UPDATE\n", "", "LTC CHOICE INPT RESPITE NEW\n", "YES\n", "LTC INPT\n", "1\n", "", "", "", ""], ["LTC CHOICE OPT ADHC CANCEL", "C CCCOAD\n", "CHOICE NURSING HOME CARE - LTC\n", "", "CANCEL\n", "LTC CHOICE OPT ADHC CANCEL\n", "LTC CHOICE OPT ADHC UPDATE\n", "", "LTC CHOICE OPT ADHC NEW\n", "", "LTC OPT\n", "1\n", "", "", "", ""], ["LTC CHOICE OPT ADHC NEW", "N CCCOAD\n", "CHOICE NURSING HOME CARE - LTC\n", "", "NEW\n", "LTC CHOICE OPT ADHC CANCEL\n", "LTC CHOICE OPT ADHC UPDATE\n", "CHOICE LTC OPT ADHC\n", "LTC CHOICE OPT ADHC NEW\n", "YES\n", "LTC OPT\n", "1\n", "", "", "", ""], ["LTC CHOICE OPT ADHC UPDATE", "U CCCOAD\n", "CHOICE NURSING HOME CARE - LTC\n", "", "UPDATE\n", "LTC CHOICE OPT ADHC CANCEL\n", "LTC CHOICE OPT ADHC UPDATE\n", "", "LTC CHOICE OPT ADHC NEW\n", "YES\n", "LTC OPT\n", "1\n", "", "", "", ""], ["LTC CHOICE OPT RESPITE CANCEL", "C CCCORS\n", "CHOICE RESPITE CARE\n", "", "CANCEL\n", "LTC CHOICE OPT RESPITE CANCEL\n", "LTC CHOICE OPT RESPITE UPDATE\n", "", "LTC CHOICE OPT RESPITE NEW\n", "", "LTC OPT\n", "1\n", "", "", "", ""], ["LTC CHOICE OPT RESPITE NEW", "N CCCORS\n", "CHOICE RESPITE CARE\n", "", "NEW\n", "LTC CHOICE OPT RESPITE CANCEL\n", "LTC CHOICE OPT RESPITE UPDATE\n", "CHOICE LTC OPT RESPITE\n", "LTC CHOICE OPT RESPITE NEW\n", "YES\n", "LTC OPT\n", "1\n", "", "", "", ""], ["PSO SC RX COPAY NEW", "SC COPAY\n", "RX CO-PAYMENT/SC VET\n", "", "NEW\n", "PSO SC RX COPAY CANCEL\n", "PSO SC RX COPAY UPDATE\n", "SC PHARMACY COPAY\n", "PSO SC RX COPAY NEW\n", "YES\n", "RX COPAY\n", "", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", "S X=0,X1=\"\",X2=\"\" G:'$D(VAEL) 1^IBAERR I VAEL(4),+VAEL(3),'IBDOM S X=$S($P(VAEL(3),\"^\",2)<50:2,1:0) I X S:$$RXEXMT^IBARXEU0(DFN,DT) X=0 I X S X2=$P(^IBE(350.1,DA,0),\"^\",4) D COST^IBAUTL\n"], ["DG INPT COPAY (REH) NEW", "REH CO\n", "HOSPITAL CARE (NSC)\n", "", "NEW\n", "DG INPT COPAY (REH) CANCEL\n", "DG INPT COPAY (REH) UPDATE\n", "REHAB MED INPT COPAY\n", "DG INPT COPAY (REH) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "S IBDESC=\"INPT CO-PAY (REH)\"\n", "", ""], ["LTC CHOICE OPT RESPITE UPDATE", "U CCCORS\n", "CHOICE RESPITE CARE\n", "", "UPDATE\n", "LTC CHOICE OPT RESPITE CANCEL\n", "LTC CHOICE OPT RESPITE UPDATE\n", "", "LTC CHOICE OPT RESPITE NEW\n", "YES\n", "LTC OPT\n", "1\n", "", "", "", ""], ["CC URGENT CARE (OPT) CANCEL", "CAN CCUC\n", "CC URGENT CARE\n", "", "CANCEL\n", "CC URGENT CARE (OPT) CANCEL\n", "CC URGENT CARE (OPT) UPDATE\n", "", "CC URGENT CARE (OPT) NEW\n", "", "OPT COPAY\n", "", "", "", "", ""], ["CC URGENT CARE (OPT) UPDATE", "UPD CCUC\n", "CC URGENT CARE\n", "", "UPDATE\n", "CC URGENT CARE (OPT) CANCEL\n", "CC URGENT CARE (OPT) UPDATE\n", "", "CC URGENT CARE (OPT) NEW\n", "", "OPT COPAY\n", "", "", "", "", ""], ["CC URGENT CARE (OPT) NEW", "CCUC CO\n", "CC URGENT CARE\n", "", "NEW\n", "CC URGENT CARE (OPT) CANCEL\n", "CC URGENT CARE (OPT) UPDATE\n", "CC URGENT CARE\n", "CC URGENT CARE (OPT) NEW\n", "YES\n", "OPT COPAY\n", "", "", "S IBDESC=\"CC URGENT OPT COPAY\"\n", "", ""], ["CC MH (OPT) NEW", "N CCMH\n", "CC OPT\n", "", "NEW\n", "CC MH (OPT) CANCEL\n", "CC MH (OPT) UPDATE\n", "CC MH OPT\n", "CC MH (OPT) NEW\n", "YES\n", "OPT COPAY\n", "0\n", "", "S IBDESC=\"CC MH OPT COPAY\"\n", "", ""], ["CC MH (OPT) UPDATE", "UPD CCMH\n", "CC OPT\n", "", "UPDATE\n", "CC MH (OPT) CANCEL\n", "CC MH (OPT) UPDATE\n", "", "CC MH (OPT) NEW\n", "", "", "0\n", "", "", "", ""], ["CC MH (OPT) CANCEL", "CAN CCMH\n", "CC OPT\n", "", "CANCEL\n", "CC MH (OPT) CANCEL\n", "CC MH (OPT) UPDATE\n", "", "CC MH (OPT) NEW\n", "", "", "0\n", "", "", "", ""], ["DG INPT COPAY (BLI) NEW", "BLI CO\n", "HOSPITAL CARE (NSC)\n", "", "NEW\n", "DG INPT COPAY (BLI) CANCEL\n", "DG INPT COPAY (BLI) UPDATE\n", "BLIND REHAB INPT COPAY\n", "DG INPT COPAY (BLI) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "S IBDESC=\"INPT CO-PAY (BLI)\"\n", "", ""], ["DG INPT COPAY (NEU) NEW", "NEU CO\n", "HOSPITAL CARE (NSC)\n", "", "NEW\n", "DG INPT COPAY (NEU) CANCEL\n", "DG INPT COPAY (NEU) UPDATE\n", "NEUROLOGY INPT COPAY\n", "DG INPT COPAY (NEU) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "S IBDESC=\"INPT CO-PAY (NEU)\"\n", "", ""], ["DG INPT COPAY (ALC) NEW", "ALC CO\n", "HOSPITAL CARE (NSC)\n", "", "NEW\n", "DG INPT COPAY (ALC) CANCEL\n", "DG INPT COPAY (ALC) UPDATE\n", "ALC & DRUG INPT COPAY\n", "DG INPT COPAY (ALC) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "S IBDESC=\"INPT CO-PAY (ALC)\"\n", "", ""], ["DG NHCU COPAY NEW", "NHC CO\n", "NURSING HOME CARE(NSC)\n", "", "NEW\n", "DG NHCU COPAY CANCEL\n", "DG NHCU COPAY UPDATE\n", "NHCU COPAY\n", "DG NHCU COPAY NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "S IBDESC=\"NHCU CO-PAYMENT\"\n", "", ""], ["DG INPT COPAY (MED) CANCEL", "CAN MED\n", "HOSPITAL CARE (NSC)\n", "", "CANCEL\n", "DG INPT COPAY (MED) CANCEL\n", "DG INPT COPAY (MED) UPDATE\n", "", "DG INPT COPAY (MED) NEW\n", "", "", "", "", "", "", ""], ["DG INPT COPAY (SUR) CANCEL", "CAN SUR\n", "HOSPITAL CARE (NSC)\n", "", "CANCEL\n", "DG INPT COPAY (SUR) CANCEL\n", "DG INPT COPAY (SUR) UPDATE\n", "", "DG INPT COPAY (SUR) NEW\n", "", "", "", "", "", "", ""], ["DG INPT COPAY (SPI) CANCEL", "CAN SPI\n", "HOSPITAL CARE (NSC)\n", "", "CANCEL\n", "DG INPT COPAY (SPI) CANCEL\n", "DG INPT COPAY (SPI) UPDATE\n", "", "DG INPT COPAY (SPI) NEW\n", "", "", "", "", "", "", ""], ["DG INPT COPAY (PSY) CANCEL", "CAN PSY\n", "HOSPITAL CARE (NSC)\n", "", "CANCEL\n", "DG INPT COPAY (PSY) CANCEL\n", "DG INPT COPAY (PSY) UPDATE\n", "", "DG INPT COPAY (PSY) NEW\n", "", "", "", "", "", "", ""], ["DG INPT COPAY (INT) CANCEL", "CAN INT\n", "HOSPITAL CARE (NSC)\n", "", "CANCEL\n", "DG INPT COPAY (INT) CANCEL\n", "DG INPT COPAY (INT) UPDATE\n", "", "DG INPT COPAY (INT) NEW\n", "", "", "", "", "", "", ""], ["PSO NSC RX COPAY CANCEL", "CAN NSC\n", "RX CO-PAYMENT/NSC VET\n", "", "CANCEL\n", "PSO NSC RX COPAY CANCEL\n", "PSO NSC RX COPAY UPDATE\n", "", "PSO NSC RX COPAY NEW\n", "", "", "", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["DG INPT COPAY (REH) CANCEL", "CAN REH\n", "HOSPITAL CARE (NSC)\n", "", "CANCEL\n", "DG INPT COPAY (REH) CANCEL\n", "DG INPT COPAY (REH) UPDATE\n", "", "DG INPT COPAY (REH) NEW\n", "", "", "", "", "", "", ""], ["DG INPT COPAY (BLI) CANCEL", "CAN BLI\n", "HOSPITAL CARE (NSC)\n", "", "CANCEL\n", "DG INPT COPAY (BLI) CANCEL\n", "DG INPT COPAY (BLI) UPDATE\n", "", "DG INPT COPAY (BLI) NEW\n", "", "", "", "", "", "", ""], ["DG INPT COPAY (NEU) CANCEL", "CAN NEU\n", "HOSPITAL CARE (NSC)\n", "", "CANCEL\n", "DG INPT COPAY (NEU) CANCEL\n", "DG INPT COPAY (NEU) UPDATE\n", "", "DG INPT COPAY (NEU) NEW\n", "", "", "", "", "", "", ""], ["DG INPT COPAY (ALC) CANCEL", "CAN ALC\n", "HOSPITAL CARE (NSC)\n", "", "CANCEL\n", "DG INPT COPAY (ALC) CANCEL\n", "DG INPT COPAY (ALC) UPDATE\n", "", "DG INPT COPAY (ALC) NEW\n", "", "", "", "", "", "", ""], ["DG NHCU COPAY CANCEL", "CAN NHC\n", "NURSING HOME CARE(NSC)\n", "", "CANCEL\n", "DG NHCU COPAY CANCEL\n", "DG NHCU COPAY UPDATE\n", "", "DG NHCU COPAY NEW\n", "", "", "", "", "", "", ""], ["DG INPT COPAY (MED) UPDATE", "UPD MED\n", "HOSPITAL CARE (NSC)\n", "", "UPDATE\n", "DG INPT COPAY (MED) CANCEL\n", "DG INPT COPAY (MED) UPDATE\n", "", "DG INPT COPAY (MED) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "", "", ""], ["DG INPT COPAY (SUR) UPDATE", "UPD SUR\n", "HOSPITAL CARE (NSC)\n", "", "UPDATE\n", "DG INPT COPAY (SUR) CANCEL\n", "DG INPT COPAY (SUR) UPDATE\n", "", "DG INPT COPAY (SUR) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "", "", ""], ["DG INPT COPAY (SPI) UPDATE", "UPD SPI\n", "HOSPITAL CARE (NSC)\n", "", "UPDATE\n", "DG INPT COPAY (SPI) CANCEL\n", "DG INPT COPAY (SPI) UPDATE\n", "", "DG INPT COPAY (SPI) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "", "", ""], ["DG INPT COPAY (PSY) UPDATE", "UPD PSY\n", "HOSPITAL CARE (NSC)\n", "", "UPDATE\n", "DG INPT COPAY (PSY) CANCEL\n", "DG INPT COPAY (PSY) UPDATE\n", "", "DG INPT COPAY (PSY) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "", "", ""], ["DG INPT COPAY (INT) UPDATE", "UPD INT\n", "HOSPITAL CARE (NSC)\n", "", "UPDATE\n", "DG INPT COPAY (INT) CANCEL\n", "DG INPT COPAY (INT) UPDATE\n", "", "DG INPT COPAY (INT) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "", "", ""], ["PSO NSC RX COPAY UPDATE", "UPDAT NS\n", "RX CO-PAYMENT/NSC VET\n", "", "UPDATE\n", "PSO NSC RX COPAY CANCEL\n", "PSO NSC RX COPAY UPDATE\n", "", "PSO NSC RX COPAY NEW\n", "YES\n", "RX COPAY\n", "", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["DG INPT COPAY (REH) UPDATE", "UPD REH\n", "HOSPITAL CARE (NSC)\n", "", "UPDATE\n", "DG INPT COPAY (REH) CANCEL\n", "DG INPT COPAY (REH) UPDATE\n", "", "DG INPT COPAY (REH) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "", "", ""], ["DG INPT COPAY (BLI) UPDATE", "UPD BLI\n", "HOSPITAL CARE (NSC)\n", "", "UPDATE\n", "DG INPT COPAY (BLI) CANCEL\n", "DG INPT COPAY (BLI) UPDATE\n", "", "DG INPT COPAY (BLI) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "", "", ""], ["DG INPT COPAY (NEU) UPDATE", "UPD NEU\n", "HOSPITAL CARE (NSC)\n", "", "UPDATE\n", "DG INPT COPAY (NEU) CANCEL\n", "DG INPT COPAY (NEU) UPDATE\n", "", "DG INPT COPAY (NEU) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "", "", ""], ["DG INPT COPAY (ALC) UPDATE", "UPD ALC\n", "HOSPITAL CARE (NSC)\n", "", "UPDATE\n", "DG INPT COPAY (ALC) CANCEL\n", "DG INPT COPAY (ALC) UPDATE\n", "", "DG INPT COPAY (ALC) NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "", "", ""], ["DG NHCU COPAY UPDATE", "UPD NHC\n", "NURSING HOME CARE(NSC)\n", "", "UPDATE\n", "DG NHCU COPAY CANCEL\n", "DG NHCU COPAY UPDATE\n", "", "DG NHCU COPAY NEW\n", "YES\n", "INPT/NHCU COPAY\n", "", "", "", "", ""], ["DG INPT PER DIEM NEW", "INP PD\n", "HOSPITAL CARE PER DIEM\n", "", "NEW\n", "DG INPT PER DIEM CANCEL\n", "DG INPT PER DIEM UPDATE\n", "INPATIENT PER DIEM\n", "DG INPT PER DIEM NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "", "", "S IBDESC=\"INPT PER DIEM\"\n", "", ""], ["DG INPT PER DIEM CANCEL", "CAN IPD\n", "HOSPITAL CARE PER DIEM\n", "", "CANCEL\n", "DG INPT PER DIEM CANCEL\n", "DG INPT PER DIEM UPDATE\n", "", "DG INPT PER DIEM NEW\n", "", "", "", "", "", "", ""], ["DG INPT PER DIEM UPDATE", "UPD IPD\n", "HOSPITAL CARE PER DIEM\n", "", "UPDATE\n", "DG INPT PER DIEM CANCEL\n", "DG INPT PER DIEM UPDATE\n", "", "DG INPT PER DIEM NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "", "", "", "", ""], ["DG NHCU PER DIEM NEW", "NHC PD\n", "NURSING HOME CARE PER DIEM\n", "", "NEW\n", "DG NHCU PER DIEM CANCEL\n", "DG NHCU PER DIEM UPDATE\n", "NHCU PER DIEM\n", "DG NHCU PER DIEM NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "", "", "S IBDESC=\"NHCU PER DIEM\"\n", "", ""], ["DG NHCU PER DIEM CANCEL", "CAN NPD\n", "NURSING HOME CARE PER DIEM\n", "", "CANCEL\n", "DG NHCU PER DIEM CANCEL\n", "DG NHCU PER DIEM UPDATE\n", "", "DG NHCU PER DIEM NEW\n", "", "", "", "", "", "", ""], ["PSO SC RX COPAY CANCEL", "CAN SC\n", "RX CO-PAYMENT/SC VET\n", "", "CANCEL\n", "PSO SC RX COPAY CANCEL\n", "PSO SC RX COPAY UPDATE\n", "", "PSO SC RX COPAY NEW\n", "", "", "", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["DG NHCU PER DIEM UPDATE", "UPD NPD\n", "NURSING HOME CARE PER DIEM\n", "", "UPDATE\n", "DG NHCU PER DIEM CANCEL\n", "DG NHCU PER DIEM UPDATE\n", "", "DG NHCU PER DIEM NEW\n", "YES\n", "INPT/NHCU PER DIEM\n", "", "", "", "", ""], ["DG OPT COPAY NEW", "OPT CO\n", "OUTPATIENT CARE(NSC)\n", "", "NEW\n", "DG OPT COPAY CANCEL\n", "DG OPT COPAY UPDATE\n", "OUTPATIENT COPAY\n", "DG OPT COPAY NEW\n", "YES\n", "OPT COPAY\n", "", "", "S IBDESC=\"OPT COPAYMENT\"\n", "", ""], ["DG OPT COPAY CANCEL", "CAN OPT\n", "OUTPATIENT CARE(NSC)\n", "", "CANCEL\n", "DG OPT COPAY CANCEL\n", "DG OPT COPAY UPDATE\n", "", "DG OPT COPAY NEW\n", "", "", "", "", "", "", ""], ["DG OPT COPAY UPDATE", "UPD OPT\n", "OUTPATIENT CARE(NSC)\n", "", "UPDATE\n", "DG OPT COPAY CANCEL\n", "DG OPT COPAY UPDATE\n", "", "DG OPT COPAY NEW\n", "YES\n", "OPT COPAY\n", "", "", "", "", ""], ["MEDICARE DEDUCTIBLE", "MCR DED\n", "", "", "MEDICARE DEDUCTIBLE\n", "", "", "MEDICARE DEDUCTIBLE\n", "MEDICARE DEDUCTIBLE\n", "", "", "", "", "", "", ""], ["HOSPITAL ADMISSION", "HOSP ADM\n", "", "", "HOSPITAL ADMISSION\n", "", "", "", "HOSPITAL ADMISSION\n", "", "", "", "", "", "", ""], ["NHCU ADMISSION", "NHCU ADM\n", "", "", "NHCU ADMISSION\n", "", "", "", "NHCU ADMISSION\n", "", "", "", "", "", "", ""], ["DG FEE SERVICE (OPT) NEW", "FEE CO\n", "OUTPATIENT CARE(NSC)\n", "", "NEW\n", "DG FEE SERVICE (OPT) CANCEL\n", "DG FEE SERVICE (OPT) UPDATE\n", "FEE SERVICE/OUTPATIENT\n", "DG FEE SERVICE (OPT) NEW\n", "YES\n", "OPT COPAY\n", "1\n", "", "S IBDESC=\"FEE OPT COPAYMENT\"\n", "", ""], ["DG FEE SERVICE (OPT) CANCEL", "CAN FEE\n", "OUTPATIENT CARE(NSC)\n", "", "CANCEL\n", "DG FEE SERVICE (OPT) CANCEL\n", "DG FEE SERVICE (OPT) UPDATE\n", "", "DG FEE SERVICE (OPT) NEW\n", "", "", "1\n", "", "", "", ""], ["DG FEE SERVICE (OPT) UPDATE", "UPD FEE\n", "OUTPATIENT CARE(NSC)\n", "", "UPDATE\n", "DG FEE SERVICE (OPT) CANCEL\n", "DG FEE SERVICE (OPT) UPDATE\n", "", "DG FEE SERVICE (OPT) NEW\n", "YES\n", "OPT COPAY\n", "1\n", "", "", "", ""], ["PSO SC RX COPAY UPDATE", "UPDA SC\n", "RX CO-PAYMENT/SC VET\n", "", "UPDATE\n", "PSO SC RX COPAY CANCEL\n", "PSO SC RX COPAY UPDATE\n", "", "PSO SC RX COPAY NEW\n", "YES\n", "RX COPAY\n", "", "D PTL^IBAUTL\n", "S:'$D(^(10)) X=\"\" I $D(^(10)) X ^(10) S X=$S($D(Y(0)):$P(Y(0),U),1:\"UNK\") I $D(Y(0)) S X=X_\"-\"_$S($$DRUG^IBRXUTL1(+$P(Y(0),U,6))'=\"\":$$DRUG^IBRXUTL1(+$P(Y(0),U,6)),1:\"UNK DRUG\"),X=$E(X,1,18)_\"-\"_$S($D(IBUNIT):IBUNIT,$D(IBX):$P(IBX,U,2),1:\"\")\n", "I $D(X) D EN^PSOCPVW\n", ""], ["DG FEE SERVICE (INPT) NEW", "FEI CO\n", "HOSPITAL CARE (NSC)\n", "", "NEW\n", "DG FEE SERVICE (INPT) CANCEL\n", "DG FEE SERVICE (INPT) UPDATE\n", "FEE SERVICE/INPATIENT\n", "DG FEE SERVICE (INPT) NEW\n", "YES\n", "INPT/NHCU FEE SERVICE\n", "1\n", "", "", "", ""], ["DG FEE SERVICE (INPT) CANCEL", "CAN FEI\n", "HOSPITAL CARE (NSC)\n", "", "CANCEL\n", "DG FEE SERVICE (INPT) CANCEL\n", "DG FEE SERVICE (INPT) UPDATE\n", "", "DG FEE SERVICE (INPT) NEW\n", "", "", "1\n", "", "", "", ""], ["DG FEE SERVICE (INPT) UPDATE", "UPD FEI\n", "HOSPITAL CARE (NSC)\n", "", "UPDATE\n", "DG FEE SERVICE (INPT) CANCEL\n", "DG FEE SERVICE (INPT) UPDATE\n", "", "DG FEE SERVICE (INPT) NEW\n", "YES\n", "INPT/NHCU FEE SERVICE\n", "1\n", "", "", "", ""], ["IB OPT MEDICARE RATE 9", "RATE 9\n", "", "", "NEW\n", "", "", "HCFA AMB. SURG. RATE 9\n", "IB OPT MEDICARE RATE 9\n", "", "", "", "", "", "", ""], ["CHAMPVA SUBSISTENCE LIMIT", "CVA LIM\n", "", "", "CHAMPVA LIMIT\n", "", "", "CHAMPVA LIMIT\n", "CHAMPVA SUBSISTENCE LIMIT\n", "", "", "", "", "", "", ""], ["DG CHAMPVA PER DIEM NEW", "CVA PD\n", "", "", "NEW\n", "DG CHAMPVA PER DIEM CANCEL\n", "DG CHAMPVA PER DIEM UPDATE\n", "CHAMPVA SUBSISTENCE\n", "DG CHAMPVA PER DIEM NEW\n", "", "CHAMPVA\n", "", "", "", "", ""], ["DG CHAMPVA PER DIEM CANCEL", "CAN CPD\n", "CHAMPVA SUBSISTENCE\n", "", "CANCEL\n", "DG CHAMPVA PER DIEM CANCEL\n", "DG CHAMPVA PER DIEM UPDATE\n", "", "DG CHAMPVA PER DIEM NEW\n", "", "", "", "", "", "", ""], ["DG CHAMPVA PER DIEM UPDATE", "UPD CPD\n", "CHAMPVA SUBSISTENCE\n", "", "UPDATE\n", "DG CHAMPVA PER DIEM CANCEL\n", "DG CHAMPVA PER DIEM UPDATE\n", "", "DG CHAMPVA PER DIEM NEW\n", "", "", "", "", "", "", ""], ["DG TRICARE RX COPAY NEW", "TRI RX\n", "TRICARE PATIENT\n", "", "NEW\n", "DG TRICARE RX COPAY CANCEL\n", "", "TRICARE RX COPAY\n", "DG TRICARE RX COPAY NEW\n", "", "TRICARE\n", "", "", "", "", ""], ["DG TRICARE OPT COPAY NEW", "TRI OPT\n", "TRICARE PATIENT\n", "", "NEW\n", "DG TRICARE OPT COPAY CANCEL\n", "", "TRICARE OPT COPAY\n", "DG TRICARE OPT COPAY NEW\n", "", "TRICARE\n", "", "", "", "", ""], ["IB OPT MEDICARE RATE 1", "RATE 1\n", "", "", "NEW\n", "", "", "HCFA AMB. SURG. RATE 1\n", "IB OPT MEDICARE RATE 1\n", "", "", "", "", "", "", ""], ["DG TRICARE INPT COPAY NEW", "TRI INPT\n", "TRICARE PATIENT\n", "", "NEW\n", "DG TRICARE INPT COPAY CANCEL\n", "", "TRICARE INPT COPAY\n", "DG TRICARE INPT COPAY NEW\n", "", "TRICARE\n", "", "", "", "", ""], ["DG TRICARE RX COPAY CANCEL", "CAN TRX\n", "TRICARE PATIENT\n", "", "CANCEL\n", "DG TRICARE RX COPAY CANCEL\n", "", "", "DG TRICARE RX COPAY NEW\n", "", "", "", "", "", "", ""], ["DG TRICARE OPT COPAY CANCEL", "CAN TOPT\n", "TRICARE PATIENT\n", "", "CANCEL\n", "DG TRICARE OPT COPAY CANCEL\n", "", "", "DG TRICARE OPT COPAY NEW\n", "", "", "", "", "", "", ""], ["DG TRICARE INPT COPAY CANCEL", "CAN TINP\n", "TRICARE PATIENT\n", "", "CANCEL\n", "DG TRICARE INPT COPAY CANCEL\n", "", "", "DG TRICARE INPT COPAY NEW\n", "", "", "", "", "", "", ""], ["DG OBSERVATION COPAY NEW", "OBS CO\n", "", "", "NEW\n", "DG OBSERVATION COPAY CANCEL\n", "DG OBSERVATION COPAY UPDATE\n", "OBSERVATION CARE COPAY\n", "DG OBSERVATION COPAY NEW\n", "YES\n", "OPT COPAY\n", "", "", "S IBDESC=\"OBS DISCHARGE COPAY\"\n", "", ""], ["DG OBSERVATION COPAY CANCEL", "CAN OBS\n", "", "", "CANCEL\n", "DG OBSERVATION COPAY CANCEL\n", "DG OBSERVATION COPAY UPDATE\n", "", "DG OBSERVATION COPAY NEW\n", "", "", "", "", "", "", ""], ["DG OBSERVATION COPAY UPDATE", "UPD OBS\n", "", "", "UPDATE\n", "DG OBSERVATION COPAY CANCEL\n", "DG OBSERVATION COPAY UPDATE\n", "", "DG OBSERVATION COPAY NEW\n", "YES\n", "OPT COPAY\n", "", "", "", "", ""], ["DG LTC INPT NHCU NEW", "LTC INH\n", "NURSING HOME CARE-LTC\n", "", "NEW\n", "DG LTC INPT NHCU CANCEL\n", "DG LTC INPT NHCU UPDATE\n", "LTC INPATIENT NURSING HOME\n", "DG LTC INPT NHCU NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["DG LTC INPT NHCU CANCEL", "LTC INH\n", "NURSING HOME CARE-LTC\n", "", "CANCEL\n", "DG LTC INPT NHCU CANCEL\n", "DG LTC INPT NHCU UPDATE\n", "", "DG LTC INPT NHCU NEW\n", "", "LTC INPT\n", "", "", "", "", ""], ["DG LTC INPT NHCU UPDATE", "LTC INH\n", "NURSING HOME CARE-LTC\n", "", "UPDATE\n", "DG LTC INPT NHCU CANCEL\n", "DG LTC INPT NHCU UPDATE\n", "", "DG LTC INPT NHCU NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["IB OPT MEDICARE RATE 2", "RATE 2\n", "", "", "NEW\n", "", "", "HCFA AMB. SURG. RATE 2\n", "IB OPT MEDICARE RATE 2\n", "", "", "", "", "", "", ""], ["DG LTC INPT GEM NEW", "LTC IGEM\n", "GERIATRIC EVAL-INSTITUTIONAL\n", "", "NEW\n", "DG LTC INPT GEM CANCEL\n", "DG LTC INPT GEM UPDATE\n", "LTC INPATIENT GEM\n", "DG LTC INPT GEM NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["DG LTC INPT GEM CANCEL", "LTC IGEM\n", "GERIATRIC EVAL-INSTITUTIONAL\n", "", "CANCEL\n", "DG LTC INPT GEM CANCEL\n", "DG LTC INPT GEM UPDATE\n", "", "DG LTC INPT GEM NEW\n", "", "LTC INPT\n", "", "", "", "", ""], ["DG LTC INPT GEM UPDATE", "LTC IGEM\n", "GERIATRIC EVAL-INSTITUTIONAL\n", "", "UPDATE\n", "DG LTC INPT GEM CANCEL\n", "DG LTC INPT GEM UPDATE\n", "", "DG LTC INPT GEM NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["DG LTC INPT RESPITE NEW", "LTC IRES\n", "RESPITE CARE-INSTITUTIONAL\n", "", "NEW\n", "DG LTC INPT RESPITE CANCEL\n", "DG LTC INPT RESPITE UPDATE\n", "LTC INPATIENT RESPITE\n", "DG LTC INPT RESPITE NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["DG LTC INPT RESPITE CANCEL", "LTC IRES\n", "RESPITE CARE-INSTITUTIONAL\n", "", "CANCEL\n", "DG LTC INPT RESPITE CANCEL\n", "DG LTC INPT RESPITE UPDATE\n", "", "DG LTC INPT RESPITE NEW\n", "", "LTC INPT\n", "", "", "", "", ""], ["DG LTC INPT RESPITE UPDATE", "LTC IRES\n", "RESPITE CARE-INSTITUTIONAL\n", "", "UPDATE\n", "DG LTC INPT RESPITE CANCEL\n", "DG LTC INPT RESPITE UPDATE\n", "", "DG LTC INPT RESPITE NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["DG LTC INPT DOM NEW", "LTC IDOM\n", "DOMICILIARY\n", "", "NEW\n", "DG LTC INPT DOM CANCEL\n", "DG LTC INPT DOM UPDATE\n", "LTC INPATIENT DOMICILARY\n", "DG LTC INPT DOM NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["DG LTC INPT DOM CANCEL", "LTC IDOM\n", "DOMICILIARY\n", "", "CANCEL\n", "DG LTC INPT DOM CANCEL\n", "DG LTC INPT DOM UPDATE\n", "", "DG LTC INPT DOM NEW\n", "", "LTC INPT\n", "", "", "", "", ""], ["DG LTC INPT DOM UPDATE", "LTC IDOM\n", "DOMICILIARY\n", "", "UPDATE\n", "DG LTC INPT DOM CANCEL\n", "DG LTC INPT DOM UPDATE\n", "", "DG LTC INPT DOM NEW\n", "YES\n", "LTC INPT\n", "", "", "", "", ""], ["DG LTC OPT ADHC NEW", "LTC OADH\n", "ADULT DAY HEALTH CARE\n", "", "NEW\n", "DG LTC OPT ADHC CANCEL\n", "DG LTC OPT ADHC UPDATE\n", "LTC OUTPATIENT ADHC\n", "DG LTC OPT ADHC NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["IB OPT MEDICARE RATE 3", "RATE 3\n", "", "", "NEW\n", "", "", "HCFA AMB. SURG. RATE 3\n", "IB OPT MEDICARE RATE 3\n", "", "", "", "", "", "", ""], ["DG LTC OPT ADHC CANCEL", "LTC OADH\n", "ADULT DAY HEALTH CARE\n", "", "CANCEL\n", "DG LTC OPT ADHC CANCEL\n", "DG LTC OPT ADHC UPDATE\n", "", "DG LTC OPT ADHC NEW\n", "", "LTC OPT\n", "", "", "", "", ""], ["DG LTC OPT ADHC UPDATE", "LTC OADH\n", "ADULT DAY HEALTH CARE\n", "", "UPDATE\n", "DG LTC OPT ADHC CANCEL\n", "DG LTC OPT ADHC UPDATE\n", "", "DG LTC OPT ADHC NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["DG LTC OPT GEM NEW", "LTC OGEM\n", "GERIATRIC EVAL-NON-INSTITUTION\n", "", "NEW\n", "DG LTC OPT GEM CANCEL\n", "DG LTC OPT GEM UPDATE\n", "LTC OUTPATIENT GEM\n", "DG LTC OPT GEM NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["DG LTC OPT GEM CANCEL", "LTC OGEM\n", "GERIATRIC EVAL-NON-INSTITUTION\n", "", "CANCEL\n", "DG LTC OPT GEM CANCEL\n", "DG LTC OPT GEM UPDATE\n", "", "DG LTC OPT GEM NEW\n", "", "LTC OPT\n", "", "", "", "", ""], ["DG LTC OPT GEM UPDATE", "LTC OGEM\n", "GERIATRIC EVAL-NON-INSTITUTION\n", "", "UPDATE\n", "DG LTC OPT GEM CANCEL\n", "DG LTC OPT GEM UPDATE\n", "", "DG LTC OPT GEM NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["DG LTC OPT RESPITE NEW", "LTC ORES\n", "RESPITE CARE-NON-INSTITUTIONAL\n", "", "NEW\n", "DG LTC OPT RESPITE CANCEL\n", "DG LTC OPT RESPITE UPDATE\n", "LTC OUTPATIENT RESPITE\n", "DG LTC OPT RESPITE NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["DG LTC OPT RESPITE CANCEL", "LTC ORES\n", "RESPITE CARE-NON-INSTITUTIONAL\n", "", "CANCEL\n", "DG LTC OPT RESPITE CANCEL\n", "DG LTC OPT RESPITE UPDATE\n", "", "DG LTC OPT RESPITE NEW\n", "", "LTC OPT\n", "", "", "", "", ""], ["DG LTC OPT RESPITE UPDATE", "LTC ORES\n", "RESPITE CARE-NON-INSTITUTIONAL\n", "", "UPDATE\n", "DG LTC OPT RESPITE CANCEL\n", "DG LTC OPT RESPITE UPDATE\n", "", "DG LTC OPT RESPITE NEW\n", "YES\n", "LTC OPT\n", "", "", "", "", ""], ["LTC ADMISSION", "LTC ADM\n", "", "", "LTC ADMISSION\n", "", "", "", "LTC ADMISSION\n", "", "", "", "", "", "", ""], ["DG LTC FEE INPT CNH NEW", "FLTC CNH\n", "NURSING HOME CARE-LTC\n", "", "NEW\n", "DG LTC FEE INPT CNH CANCEL\n", "DG LTC FEE INPT CNH UPDATE\n", "FEE LTC INPT CNH\n", "DG LTC FEE INPT CNH NEW\n", "YES\n", "LTC INPT\n", "1\n", "", "", "", ""]]}