ABPAOP4.m

ABPAOP4 ;POST FACILITY DATA TO AREA DATABASE;[ 03/17/91  7:15 AM ]

 ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991

A0 W !,"NOT AN ENTRY POINT" Q

AZEND ;

 S $P(^ABPAPOST(1,"F",LOCCD,0),"^",5)=NVCNT

 S $P(^ABPAPOST(1,"F",LOCCD,0),"^",6)=NPCNT

 S $P(^ABPAPOST(1,"F",LOCCD,0),"^",7)=NCCNT

 D UPDATE G A5^ABPAOP0

ZEND ;

 S $P(^ABPAPOST(1,0),"^",2)=ZVCNT

 S $P(^ABPAPOST(1,0),"^",3)=ZPCNT

 S $P(^ABPAPOST(1,0),"^",4)=ZCCNT

 D UPDATE I ZCCNT>0 K ^ABPVGLOB("COUNT")

XIT ;

 L

KILL K ABPV2DFN,ABPVDFN,DOS,FAC,FACDFN,FACNAME,FINIT,HDRAFLG,HRN,I,INSDFN

 K INSNAME,INSNFLG,INSZIP,L2,LNAME,LOC,LOCCD,NAME,NCCNT,NPCNT,NVCNT

 K P3,PGNO,R,RCT,RR,X,XX,Y,ZCCNT,ZFINIT,ZLNAME,ZNAME,ZPCNT,ZVCNT

 K ABPAMLBL

 Q

 ;

WAIT W ! D WAIT^DICD W !!,"Compiling totals for new records added: "

UPDATE S DX=0,DY=15 X XY W ! D EOP^ABPAMAIN W !

 W "NEW INSURERS: ",ZVCNT,?22,"NEW PATIENTS: ",ZPCNT,?44

 W "NEW BILLS: ",ZCCNT,"   "

 Q

ABPAOP4   ;POST FACILITY DATA TO AREA DATABASE;[ 03/17/91  7:15 AM ]

 +1       ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991

A0         WRITE !,"NOT AN ENTRY POINT"

           QUIT 

AZEND     ;

 +1        SET $PIECE(^ABPAPOST(1,"F",LOCCD,0),"^",5)=NVCNT

 +2        SET $PIECE(^ABPAPOST(1,"F",LOCCD,0),"^",6)=NPCNT

 +3        SET $PIECE(^ABPAPOST(1,"F",LOCCD,0),"^",7)=NCCNT

 +4        DO UPDATE

           GOTO A5^ABPAOP0

ZEND      ;

 +1        SET $PIECE(^ABPAPOST(1,0),"^",2)=ZVCNT

 +2        SET $PIECE(^ABPAPOST(1,0),"^",3)=ZPCNT

 +3        SET $PIECE(^ABPAPOST(1,0),"^",4)=ZCCNT

 +4        DO UPDATE

           IF ZCCNT>0

               KILL ^ABPVGLOB("COUNT")

XIT       ;

 +1        LOCK 

KILL       KILL ABPV2DFN,ABPVDFN,DOS,FAC,FACDFN,FACNAME,FINIT,HDRAFLG,HRN,I,INSDFN

 +1        KILL INSNAME,INSNFLG,INSZIP,L2,LNAME,LOC,LOCCD,NAME,NCCNT,NPCNT,NVCNT

 +2        KILL P3,PGNO,R,RCT,RR,X,XX,Y,ZCCNT,ZFINIT,ZLNAME,ZNAME,ZPCNT,ZVCNT

 +3        KILL ABPAMLBL

 +4        QUIT 

 +5       ;

WAIT       WRITE !

           DO WAIT^DICD

           WRITE !!,"Compiling totals for new records added: "

UPDATE     SET DX=0

           SET DY=15

           XECUTE XY

           WRITE !

           DO EOP^ABPAMAIN

           WRITE !

 +1        WRITE "NEW INSURERS: ",ZVCNT,?22,"NEW PATIENTS: ",ZPCNT,?44

 +2        WRITE "NEW BILLS: ",ZCCNT,"   "

 +3        QUIT