- 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/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCNSU1.m
r628 r636 1 IBCNSU1 ;ALB/AAS - INSURANCE UTILITY ROUTINE ; 19-MAY-932 ;;2.0;INTEGRATED BILLING;**103,133,244 ,371**;21-MAR-94;Build 573 ;;Per VHA Directive 2004-038, this routine should not be modified.1 IBCNSU1 ;ALB/AAS - INSURANCE UTILITY ROUTINE ; 19-MAY-93 2 ;;2.0;INTEGRATED BILLING;**103,133,244**;21-MAR-94 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 RCHK(X) ; -- Input transform for different revenue codes in file 36 … … 70 70 ; 71 71 N IBY,IB0 S IBY=0 72 G VETQ ; IB*2*371 - Allow edits to the patient name in all cases73 72 S IB0=$G(^DPT(+$G(DA(1)),.312,+$G(DA),0)) 74 73 I $P(IB0,"^",6)'="v" G VETQ … … 95 94 S X1=$TR(X,CHAR,"") I X1?9N,X1=L S X=X1 96 95 ; 96 ; - if "SS" is entered, and the policy belongs to the patient, 97 ; convert that string to the patient's SSN 98 I R=1,X="SS" W " ",L S X=L 99 ; 97 100 K:$L(X)>20!($L(X)<3) X 98 101 Q … … 113 116 S:IBY="" IBY=-1 114 117 HICNQ Q IBY 115 ;116 CHKQUAL(DFN,IEN,QUAL,PC1,PC2) ; check for duplicate qualifiers for patient117 ; and subscriber secondary ID's. All parameters required.118 ;119 ; DFN - internal patient#120 ; IEN - ien of 2.312 subfile121 ; QUAL - passed in response of the user (this is what is being122 ; checked to see if it is valid)123 ; PC1 - this is the piece# for one of the other qualifiers124 ; PC2 - this is the piece# for one of the other qualifiers125 ;126 ; Function returns 1 if the entered qualifier is OK.127 ; Function returns 0 if the entered qualifier is not OK. It is either128 ; a duplicate or is otherwise invalid.129 ;130 NEW OK,DATA,INS131 S OK=1132 I $G(QUAL)="" G CHKQUALX133 S DATA=$G(^DPT(+$G(DFN),.312,+$G(IEN),5))134 I $G(QUAL)=$P(DATA,U,+$G(PC1)) D CQ1 G CHKQUALX ; duplicate135 I $G(QUAL)=$P(DATA,U,+$G(PC2)) D CQ1 G CHKQUALX ; duplicate136 ;137 ; prevent the SSN qualifier when Medicare is the payer138 S INS=+$G(^DPT(+$G(DFN),.312,+$G(IEN),0))139 I $G(QUAL)="SY",$$MCRWNR^IBEFUNC(INS) D CQ2 G CHKQUALX140 ;141 CHKQUALX ;142 Q OK143 ;144 CQ1 ; specific error message#1145 S OK=0146 D EN^DDIOL("You cannot use the same qualifier more than once.",,"!!")147 D EN^DDIOL("",,"!!?5")148 Q149 ;150 CQ2 ; specific error message#2151 S OK=0152 D EN^DDIOL("You cannot use qualifier 'SY' for Medicare.",,"!!")153 D EN^DDIOL("",,"!!?5")154 Q155 ;
Note:
See TracChangeset
for help on using the changeset viewer.