AGED7.m

AGED7 ; IHS/ASDS/EFG - EDIT - PAGE 7 (PRIVATE INSURANCE) ;  

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

VAR ;

 I $D(DIRUT) G END

 I AGOPT(5)'="Y" G END:$D(AGXTERN)!$D(DUOUT)!$D(DLOUT) G END

 S AG("PG")=7,AG("LINE")="=" K AG("EDIT"),AG("ALPHORD")

L1 ;

 I $D(AGSEENLY) S AGINSPTR=$P($P(AGINSREC,U,11),",",3) G L4DATA

 I '$D(AGSEENLY)&($G(AGADDINS)="E") S AGINSPTR=$P($P(AGINSREC,U,11),",",3) G L3

L11 ;

L1A S AG("EDIT")="",AG("DFLT")="NO" D ADDCOV^AG7 Q  ;agpatch set from PI Elig file fields

L3 W !

 S:$G(AGINSPTR)="" AGINSPTR=$G(AGEL("IN"))

 I $G(AGINSPTR)="" Q

 S DIC=9000006.11,AG("TOTAL")=0,DA=DFN

ALPHORD ;

L4 ;

L4DATA ;

 S AGELP("HRN")=$G(AGCHRT),AGELP("TYPE")="PI",AGELP("PDFN")=DFN

 S AGELP("PH")=$S('$D(^AUPNPRVT(DFN,11,AGINSPTR,0)):"",1:$P(^(0),U,8)),AGELP("INS")=$S(AGELP("PH")]"":$P(^(0),U),1:"")

 ;Q:$G(AGELP("PH"))=""

 I '$D(AGSEENLY),$D(AGELP("PH"))]"",$D(AGELP("INS"))]"" D DISP^AGEL Q:$G(Y)=AGOPT("ESCAPE")  G VAR

 I $D(AGSEENLY),(AGELP("PH")]""),(AGELP("INS")]"") D DISP^AGEL

 Q:$G(Y)=AGOPT("ESCAPE")

 G END:$D(AGSEENLY)

L4DATA1 ;

L4A ;

L5 ;

L6 ;

L7 ;

END I $D(DTOUT) S AGTOUT=""

 K AG,AGI,AGY,DUOUT,DFOUT,DQOUT,DTOUT,DLOUT,DA,DIC,DIE,DR,DRENT

 K AG("DRENT1"),AGL,AG("LKERR"),AG("LKPRINT"),Y

 Q:$D(AGXTERN)

 Q:$D(DIROUT)

 K DIR

 Q

UP Q:$D(AGXTERN)

 Q

EDIT S DIE="^AUPNPRVT("_DFN_",11,"

 S DA=AGINSPTR,DA(1)=DFN

 W !

 D ^DIE

 Q

DATA W !,AG("N"),".",?22-$L(AG("L")),AG("L"),":"

 D ^AGDICLK

 Q:$D(AG("LKERR"))

 W ?26,AG("LKPRINT")

 Q

PRVTKILL ;

 Q

AGED7     ; IHS/ASDS/EFG - EDIT - PAGE 7 (PRIVATE INSURANCE) ;  

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

VAR       ;

 +1        IF $DATA(DIRUT)

               GOTO END

 +2        IF AGOPT(5)'="Y"

               IF $DATA(AGXTERN)!$DATA(DUOUT)!$DATA(DLOUT)

                   GOTO END

               GOTO END

 +3        SET AG("PG")=7

           SET AG("LINE")="="

           KILL AG("EDIT"),AG("ALPHORD")

L1        ;

 +1        IF $DATA(AGSEENLY)

               SET AGINSPTR=$PIECE($PIECE(AGINSREC,U,11),",",3)

               GOTO L4DATA

 +2        IF '$DATA(AGSEENLY)&($GET(AGADDINS)="E")

               SET AGINSPTR=$PIECE($PIECE(AGINSREC,U,11),",",3)

               GOTO L3

L11       ;

L1A       ;agpatch set from PI Elig file fields

           SET AG("EDIT")=""

           SET AG("DFLT")="NO"

           DO ADDCOV^AG7

           QUIT 

L3         WRITE !

 +1        IF $GET(AGINSPTR)=""

               SET AGINSPTR=$GET(AGEL("IN"))

 +2        IF $GET(AGINSPTR)=""

               QUIT 

 +3        SET DIC=9000006.11

           SET AG("TOTAL")=0

           SET DA=DFN

ALPHORD   ;

L4        ;

L4DATA    ;

 +1        SET AGELP("HRN")=$GET(AGCHRT)

           SET AGELP("TYPE")="PI"

           SET AGELP("PDFN")=DFN

 +2        SET AGELP("PH")=$SELECT('$DATA(^AUPNPRVT(DFN,11,AGINSPTR,0)):"",1:$PIECE(^(0),U,8))

           SET AGELP("INS")=$SELECT(AGELP("PH")]"":$PIECE(^(0),U),1:"")

 +3       ;Q:$G(AGELP("PH"))=""

 +4        IF '$DATA(AGSEENLY)

               IF $DATA(AGELP("PH"))]""

                   IF $DATA(AGELP("INS"))]""

                       DO DISP^AGEL

                       IF $GET(Y)=AGOPT("ESCAPE")

                           QUIT 

                       GOTO VAR

 +5        IF $DATA(AGSEENLY)

               IF (AGELP("PH")]"")

                   IF (AGELP("INS")]"")

                       DO DISP^AGEL

 +6        IF $GET(Y)=AGOPT("ESCAPE")

               QUIT 

 +7        IF $DATA(AGSEENLY)

               GOTO END

L4DATA1   ;

L4A       ;

L5        ;

L6        ;

L7        ;

END        IF $DATA(DTOUT)

               SET AGTOUT=""

 +1        KILL AG,AGI,AGY,DUOUT,DFOUT,DQOUT,DTOUT,DLOUT,DA,DIC,DIE,DR,DRENT

 +2        KILL AG("DRENT1"),AGL,AG("LKERR"),AG("LKPRINT"),Y

 +3        IF $DATA(AGXTERN)

               QUIT 

 +4        IF $DATA(DIROUT)

               QUIT 

 +5        KILL DIR

 +6        QUIT 

UP         IF $DATA(AGXTERN)

               QUIT 

 +1        QUIT 

EDIT       SET DIE="^AUPNPRVT("_DFN_",11,"

 +1        SET DA=AGINSPTR

           SET DA(1)=DFN

 +2        WRITE !

 +3        DO ^DIE

 +4        QUIT 

DATA       WRITE !,AG("N"),".",?22-$LENGTH(AG("L")),AG("L"),":"

 +1        DO ^AGDICLK

 +2        IF $DATA(AG("LKERR"))

               QUIT 

 +3        WRITE ?26,AG("LKPRINT")

 +4        QUIT 

PRVTKILL  ;

 +1        QUIT