Routine: AGSSINST

AGSSINST ; IHS/ASDS/EFG - Install for AGSS menues and routines to process SSA SSN Matching ;

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

 D DT^DICRW S IOP="HOME" D ^%ZIS

 W $$S^AGVDF("IOF")

S W !,"This is the install for the SSA SSN Matching software for ",!,"RPMS Registration Software",!

 K DIR S DIR(0)="E" D ^DIR

 Q:(+$G(DUOUT)+$G(DTOUT)+$G(DROUT)+$G(DIROUT))  Q:Y=""

 S AGI=0 F  S AGI=$O(^AUTTSSN(AGI)) Q:AGI=""  K ^AUTTSSN(AGI)

B W !!,"Loading the Patient SSN Notification Letter",!!

 D ^AGSSLETR

C W !!,"Please specify the offsets for the patient(s) address for printing",!,"   and edit the patient letter appropriately",!

 K DR S DA=$P(^AUTTSITE(1,0),U),DIE="^AGFAC(",DR="201//20:10;200" D ^DIE

 W !,"INSTALLATION completed",!

AGSSINST  ; IHS/ASDS/EFG - Install for AGSS menues and routines to process SSA SSN Matching ;

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

 +2       ;

 +3        DO DT^DICRW

           SET IOP="HOME"

           DO ^%ZIS

 +4        WRITE $$S^AGVDF("IOF")

S          WRITE !,"This is the install for the SSA SSN Matching software for ",!,"RPMS Registration Software",!

 +1        KILL DIR

           SET DIR(0)="E"

           DO ^DIR

 +2        IF (+$GET(DUOUT)+$GET(DTOUT)+$GET(DROUT)+$GET(DIROUT))

               QUIT

           IF Y=""

               QUIT

 +3        SET AGI=0

FOR

               SET AGI=$ORDER(^AUTTSSN(AGI))

               IF AGI=""

                   QUIT

               KILL ^AUTTSSN(AGI)

B          WRITE !!,"Loading the Patient SSN Notification Letter",!!

 +1        DO ^AGSSLETR

C          WRITE !!,"Please specify the offsets for the patient(s) address for printing",!,"   and edit the patient letter appropriately",!

 +1        KILL DR

           SET DA=$PIECE(^AUTTSITE(1,0),U)

           SET DIE="^AGFAC("

           SET DR="201//20:10;200"

           DO ^DIE

 +2        WRITE !,"INSTALLATION completed",!

AGSSINST.m