AGADDREG.m

AGADDREG ; IHS/ASDS/EFG - ADDITIONAL REGISTRATION INFO ;   

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

 ;

 I AGOPT(9)'="Y" G END

VAR D DRAW

 I $D(AGSEENLY) K DIR S DIR("A")="Press RETURN " D READ^AGED1

 Q:$D(AGSEENLY)

 K DIR

 W !

 S DIR("A")="Do you wish to "_$S($Y<8:"enter",1:"edit")_" ADDITIONAL REGISTRATION INFORMATION? (Y/N) "

 S DIR("B")="N"

 D READ^AGED1

 Q:$D(DTOUT)!(Y="/.,")!(Y="^^")

 G END:Y=""!(Y="N")!(Y="^")

 G EDIT:Y="Y"!(Y="y")

 G:$D(AG("ED"))&'$D(AGXTERN) @("^AGED"_AG("ED"))

DRAW ;EP

 S AG("PG")=8 D ^AGED Q:'$O(^AUPNPAT(DFN,13,0))

 W !,$$CJ^XLFSTR("ADDITIONAL REGISTRATION INFO",IOM),!

 W ! F I=0:0 S I=$O(^AUPNPAT(DFN,13,I)) Q:'I  W ^(I,0),!

 Q

EDIT S DIE="^AUPNPAT(",DR=1301,DA=DFN D ^DIE,UPDATE1^AGED(DUZ(2),DFN,11,"")

END K AG,DTOUT,DQOUT,DFOUT,DLOUT,DA,DR,Y

 Q

ADD ;Add a Patient.

 I AGOPT(9)="Y" W ! S DIE="^AUPNPAT(",DA=DFN,DR=1301 D ^DIE

AGADDREG  ; IHS/ASDS/EFG - ADDITIONAL REGISTRATION INFO ;   

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

 +2       ;

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

               GOTO END

VAR        DO DRAW

 +1        IF $DATA(AGSEENLY)

               KILL DIR

               SET DIR("A")="Press RETURN "

               DO READ^AGED1

 +2        IF $DATA(AGSEENLY)

               QUIT 

 +3        KILL DIR

 +4        WRITE !

 +5        SET DIR("A")="Do you wish to "_$SELECT($Y<8:"enter",1:"edit")_" ADDITIONAL REGISTRATION INFORMATION? (Y/N) "

 +6        SET DIR("B")="N"

 +7        DO READ^AGED1

 +8        IF $DATA(DTOUT)!(Y="/.,")!(Y="^^")

               QUIT 

 +9        IF Y=""!(Y="N")!(Y="^")

               GOTO END

 +10       IF Y="Y"!(Y="y")

               GOTO EDIT

 +11       IF $DATA(AG("ED"))&'$DATA(AGXTERN)

               GOTO @("^AGED"_AG("ED"))

DRAW      ;EP

 +1        SET AG("PG")=8

           DO ^AGED

           IF '$ORDER(^AUPNPAT(DFN,13,0))

               QUIT 

 +2        WRITE !,$$CJ^XLFSTR("ADDITIONAL REGISTRATION INFO",IOM),!

 +3        WRITE !

           FOR I=0:0

               SET I=$ORDER(^AUPNPAT(DFN,13,I))

               IF 'I

                   QUIT 

               WRITE ^(I,0),!

 +4        QUIT 

EDIT       SET DIE="^AUPNPAT("

           SET DR=1301

           SET DA=DFN

           DO ^DIE

           DO UPDATE1^AGED(DUZ(2),DFN,11,"")

END        KILL AG,DTOUT,DQOUT,DFOUT,DLOUT,DA,DR,Y

 +1        QUIT 

ADD       ;Add a Patient.

 +1        IF AGOPT(9)="Y"

               WRITE !

               SET DIE="^AUPNPAT("

               SET DA=DFN

               SET DR=1301

               DO ^DIE