- BARUPCH2 ; IHS/SD/LSL - CHECK 3P UPLOAD ;
- ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
- ;
- ; Global changes for new indirect global ABMA - @ABMA@
- ;;
- BILL ; EP
- ; check bill
- K ^TMP("BAR",$J,"BARTMPBL",$J)
- S BARDSP=$G(^TMP("BAR",$J,"BARUPDSP",$J))
- S BARNULL=0
- D ENP^XBDIQ1(90050.01,BARUPDA,".01;.1;3;13;15;17;20;102;103;18:20;113;114;201:207;101;108;112","^TMP(""BAR"",$J,""BARTMPBL"",$J,","I")
- N A,B,C,X,Y,Z
- I '$L(^TMP("BAR",$J,"BARTMPBL",$J,101)) S BARNULL=1,BARDIF=1 G NULL
- ; resolve vp to insurer pointers
- F Z=3,205,206,207 D
- . S ^TMP("BAR",$J,"BARTMPBL",$J,Z,"V")=""
- . I ^TMP("BAR",$J,"BARTMPBL",$J,Z,"I") D
- . . K BARLSL
- . . S BARLSL=^TMP("BAR",$J,"BARTMPBL",$J,Z,"I")
- . . S ^TMP("BAR",$J,"BARTMPBL",$J,Z,"V")=$$GET1^DIQ(90050.02,BARLSL,1.001)
- . . K BARLSL
- F I=1:1 S X=$T(MAPBL+I),Y=$P(X,";;",2),X=$P(Y,";"),C=$P(Y,";",3),Y=$P(Y,";",2) Q:X="""END""" Q:BARNULL D
- .S A="@BAR3PUP@("_X_")"
- .S A=@A
- .S B="^TMP(""BAR"",$J,""BARTMPBL"",$J,"_Y_")"
- .S B=@B
- .I $L(B) S:C="+" B=+B
- .I X["PROV200" S X="""PROV"""
- .S BARBLDIF=0
- .; screen for odd items
- .I X["INS",A="",B=@BAR3PUP@("PTNM") Q
- .I X["INS",A="",B'=@BAR3PUP@("PTNM") D Q
- ..S BARBLDIF=1,BARDIF=1
- ..S ^TMP("BAR",$J,"BARUPCHK","DIF",BARUPDA,"BL",X)=A
- ..S ^TMP("BAR",$J,"BARUPCHK","DIF",BARUPDA,"BL",X,Y)=B
- .I X["DTBILL",A="" Q
- .I A'=B D
- ..S BARBLDIF=1,BARDIF=1
- ..S ^TMP("BAR",$J,"BARUPCHK","DIF",BARUPDA,"BL",X)=A
- ..S ^TMP("BAR",$J,"BARUPCHK","DIF",BARUPDA,"BL",X,Y)=B
- .I BARBLDIF,BARSHOW W !,X,?15,A,?30,B,?45,BARBLDIF,?50,Y
- ;
- NULL ;
- Q
- ; *********************************************************************
- ;
- IT ; EP
- ; check bill - to reload A/R items from 3P everytime
- D DELITM^BARUP1
- D SETITM^BARUP1
- Q
- ; *********************************************************************
- ;
- MAPBL ;; map between 3p and a/r bill
- ;;"BLNM";.01
- ;;"BLDA";17
- ;;"BLAMT";13
- ;;"PTNM";101,"I"
- ;;"CLNC";112,"I"
- ;;"INS";3,"V"
- ;;"PRIM";205,"V"
- ;;"SEC";206,"V"
- ;;"TERT";207,"V"
- ;;"PROV";113,"I"
- ;;"VSLC";108,"I"
- ;;"VSTP";114,"I"
- ;;"DOSB";102,"I"
- ;;"DOSE";103,"I"
- ;;"DTAP";18,"I"
- ;;"DTBILL";19,"I"
- ;;"CREDIT";20
- ;;"END";
- ;;"POHL";201
- ;;"POLN";201
- MAPIT ;; map between 3p and a/r item
- BARUPCH2 ; IHS/SD/LSL - CHECK 3P UPLOAD ;
- +1 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
- +2 ;
- +3 ; Global changes for new indirect global ABMA - @ABMA@
- +4 ;;
- BILL ; EP
- +1 ; check bill
- +2 KILL ^TMP("BAR",$JOB,"BARTMPBL",$JOB)
- +3 SET BARDSP=$GET(^TMP("BAR",$JOB,"BARUPDSP",$JOB))
- +4 SET BARNULL=0
- +5 DO ENP^XBDIQ1(90050.01,BARUPDA,".01;.1;3;13;15;17;20;102;103;18:20;113;114;201:207;101;108;112","^TMP(""BAR"",$J,""BARTMPBL"",$J,","I")
- +6 NEW A,B,C,X,Y,Z
- +7 IF '$LENGTH(^TMP("BAR",$JOB,"BARTMPBL",$JOB,101))
- SET BARNULL=1
- SET BARDIF=1
- GOTO NULL
- +8 ; resolve vp to insurer pointers
- +9 FOR Z=3,205,206,207
- Begin DoDot:1
- +10 SET ^TMP("BAR",$JOB,"BARTMPBL",$JOB,Z,"V")=""
- +11 IF ^TMP("BAR",$JOB,"BARTMPBL",$JOB,Z,"I")
- Begin DoDot:2
- +12 KILL BARLSL
- +13 SET BARLSL=^TMP("BAR",$JOB,"BARTMPBL",$JOB,Z,"I")
- +14 SET ^TMP("BAR",$JOB,"BARTMPBL",$JOB,Z,"V")=$$GET1^DIQ(90050.02,BARLSL,1.001)
- +15 KILL BARLSL
- End DoDot:2
- End DoDot:1
- +16 FOR I=1:1
- SET X=$TEXT(MAPBL+I)
- SET Y=$PIECE(X,";;",2)
- SET X=$PIECE(Y,";")
- SET C=$PIECE(Y,";",3)
- SET Y=$PIECE(Y,";",2)
- IF X="""END"""
- QUIT
- IF BARNULL
- QUIT
- Begin DoDot:1
- +17 SET A="@BAR3PUP@("_X_")"
- +18 SET A=@A
- +19 SET B="^TMP(""BAR"",$J,""BARTMPBL"",$J,"_Y_")"
- +20 SET B=@B
- +21 IF $LENGTH(B)
- IF C="+"
- SET B=+B
- +22 IF X["PROV200"
- SET X="""PROV"""
- +23 SET BARBLDIF=0
- +24 ; screen for odd items
- +25 IF X["INS"
- IF A=""
- IF B=@BAR3PUP@("PTNM")
- QUIT
- +26 IF X["INS"
- IF A=""
- IF B'=@BAR3PUP@("PTNM")
- Begin DoDot:2
- +27 SET BARBLDIF=1
- SET BARDIF=1
- +28 SET ^TMP("BAR",$JOB,"BARUPCHK","DIF",BARUPDA,"BL",X)=A
- +29 SET ^TMP("BAR",$JOB,"BARUPCHK","DIF",BARUPDA,"BL",X,Y)=B
- End DoDot:2
- QUIT
- +30 IF X["DTBILL"
- IF A=""
- QUIT
- +31 IF A'=B
- Begin DoDot:2
- +32 SET BARBLDIF=1
- SET BARDIF=1
- +33 SET ^TMP("BAR",$JOB,"BARUPCHK","DIF",BARUPDA,"BL",X)=A
- +34 SET ^TMP("BAR",$JOB,"BARUPCHK","DIF",BARUPDA,"BL",X,Y)=B
- End DoDot:2
- +35 IF BARBLDIF
- IF BARSHOW
- WRITE !,X,?15,A,?30,B,?45,BARBLDIF,?50,Y
- End DoDot:1
- +36 ;
- NULL ;
- +1 QUIT
- +2 ; *********************************************************************
- +3 ;
- IT ; EP
- +1 ; check bill - to reload A/R items from 3P everytime
- +2 DO DELITM^BARUP1
- +3 DO SETITM^BARUP1
- +4 QUIT
- +5 ; *********************************************************************
- +6 ;
- MAPBL ;; map between 3p and a/r bill
- +1 ;;"BLNM";.01
- +2 ;;"BLDA";17
- +3 ;;"BLAMT";13
- +4 ;;"PTNM";101,"I"
- +5 ;;"CLNC";112,"I"
- +6 ;;"INS";3,"V"
- +7 ;;"PRIM";205,"V"
- +8 ;;"SEC";206,"V"
- +9 ;;"TERT";207,"V"
- +10 ;;"PROV";113,"I"
- +11 ;;"VSLC";108,"I"
- +12 ;;"VSTP";114,"I"
- +13 ;;"DOSB";102,"I"
- +14 ;;"DOSE";103,"I"
- +15 ;;"DTAP";18,"I"
- +16 ;;"DTBILL";19,"I"
- +17 ;;"CREDIT";20
- +18 ;;"END";
- +19 ;;"POHL";201
- +20 ;;"POLN";201
- MAPIT ;; map between 3p and a/r item
