AGSEE7.m

AGSEE7 ; IHS/ASDS/EFG - ;  

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

 ;

 Q:AGOPT(5)'="Y"

VAR S AG("PG")=7,(AG("I"),AG("TOTAL"))=0,DA=DFN K AG("EDIT")

 I '$D(^AUPNPRVT(DFN,0)) D ^AGED Q

L3 W !

 S DIC=9000006.11

 S AG("TOTAL")=0

 F AG("I")=1:1 S AG("DRENT")=AG("I"),DR=.02 D ^AGDICLK Q:$D(AG("LKERR"))  S AG("TOTAL")=AG("TOTAL")+1,AG(AG("TOTAL"))=$P(AGL,",",3)

 S AG("I")=0

 I AG("TOTAL")=0 D ^AGED Q

L4 S AG("I")=AG("I")+1

 D ^AGED W !!,"Policy #",AG("I")," of ",AG("TOTAL"),!!

 S (AG("DRENT1"),AG("D1"))=AG(AG("I"))

 S DR=.01,DIC=9000006.11,AG("N")=1,AG("L")="INSURER" D DATA

 S DR=.02,AG("DRENT1")=AG("D1"),AG("N")=2,AG("L")="POLICY NUMBER" D DATA

 S DR=.03,AG("DRENT1")=AG("D1"),AG("N")=3,AG("L")="COVERAGE" D DATA

 S DR=.04,AG("DRENT1")=AG("D1"),AG("N")=4,AG("L")="NAME OF INSURED" D DATA

 S DR=.05,AG("DRENT1")=AG("D1"),AG("N")=5,AG("L")="RELATIONSHIP" D DATA

 S DR=.06,AG("DRENT1")=AG("D1"),AG("N")=6,AG("L")="ELIG. DATE" D DATA

 S DR=.07,AG("DRENT1")=AG("D1"),AG("N")=7,AG("L")="ELIG. END DATE" D DATA

 W !

 Q:AG("I")=AG("TOTAL")

 W !,AGLINE("EQ")

 W !?32,"Press RETURN  "

 D READ^AGED1

 G L4

DATA W !,AG("N"),".",?22-$L(AG("L")),AG("L"),":" D ^AGDICLK Q:$D(AG("LKERR"))  W ?26,AG("LKPRINT") Q

AGSEE7    ; IHS/ASDS/EFG - ;  

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

 +2       ;

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

               QUIT 

VAR        SET AG("PG")=7

           SET (AG("I"),AG("TOTAL"))=0

           SET DA=DFN

           KILL AG("EDIT")

 +1        IF '$DATA(^AUPNPRVT(DFN,0))

               DO ^AGED

               QUIT 

L3         WRITE !

 +1        SET DIC=9000006.11

 +2        SET AG("TOTAL")=0

 +3        FOR AG("I")=1:1

               SET AG("DRENT")=AG("I")

               SET DR=.02

               DO ^AGDICLK

               IF $DATA(AG("LKERR"))

                   QUIT 

               SET AG("TOTAL")=AG("TOTAL")+1

               SET AG(AG("TOTAL"))=$PIECE(AGL,",",3)

 +4        SET AG("I")=0

 +5        IF AG("TOTAL")=0

               DO ^AGED

               QUIT 

L4         SET AG("I")=AG("I")+1

 +1        DO ^AGED

           WRITE !!,"Policy #",AG("I")," of ",AG("TOTAL"),!!

 +2        SET (AG("DRENT1"),AG("D1"))=AG(AG("I"))

 +3        SET DR=.01

           SET DIC=9000006.11

           SET AG("N")=1

           SET AG("L")="INSURER"

           DO DATA

 +4        SET DR=.02

           SET AG("DRENT1")=AG("D1")

           SET AG("N")=2

           SET AG("L")="POLICY NUMBER"

           DO DATA

 +5        SET DR=.03

           SET AG("DRENT1")=AG("D1")

           SET AG("N")=3

           SET AG("L")="COVERAGE"

           DO DATA

 +6        SET DR=.04

           SET AG("DRENT1")=AG("D1")

           SET AG("N")=4

           SET AG("L")="NAME OF INSURED"

           DO DATA

 +7        SET DR=.05

           SET AG("DRENT1")=AG("D1")

           SET AG("N")=5

           SET AG("L")="RELATIONSHIP"

           DO DATA

 +8        SET DR=.06

           SET AG("DRENT1")=AG("D1")

           SET AG("N")=6

           SET AG("L")="ELIG. DATE"

           DO DATA

 +9        SET DR=.07

           SET AG("DRENT1")=AG("D1")

           SET AG("N")=7

           SET AG("L")="ELIG. END DATE"

           DO DATA

 +10       WRITE !

 +11       IF AG("I")=AG("TOTAL")

               QUIT 

 +12       WRITE !,AGLINE("EQ")

 +13       WRITE !?32,"Press RETURN  "

 +14       DO READ^AGED1

 +15       GOTO L4

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

           DO ^AGDICLK

           IF $DATA(AG("LKERR"))

               QUIT 

           WRITE ?26,AG("LKPRINT")

           QUIT