PXTTEDE.m

PXTTEDE ;ISL/PKR - Edit an education topic ;6/11/96

 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

 ;

 ;=======================================================================

 N DA,DIC,Y

GETNAME ;

 S DIC="^AUTTEDT("

 S DIC(0)="AEMQ",DIC("A")="Select EDUCATION TOPIC: "

 S DIC("S")="S PXRMSNUM=+$P($$SITE^VASITE,U,3) I $S(PXRMSNUM=5000:1,+$G(Y)'<100000:1,1:0)"

 W !

 D ^DIC

 I Y=-1 G END

 S DA=$P(Y,U,1)

 D EDIT(DIC,DA)

 G GETNAME

 ;

END K DIC,PXY

 Q

 ;=======================================================================

 ;

EDIT(ROOT,DA) ;

 N DIE,DR

 S DIE=ROOT

 S DR="[PXTT EDIT PAT. EDUCATION]"

 D ^DIE

 Q

PXTTEDE   ;ISL/PKR - Edit an education topic ;6/11/96

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

 +2       ;

 +3       ;=======================================================================

 +4        NEW DA,DIC,Y

GETNAME   ;

 +1        SET DIC="^AUTTEDT("

 +2        SET DIC(0)="AEMQ"

           SET DIC("A")="Select EDUCATION TOPIC: "

 +3        SET DIC("S")="S PXRMSNUM=+$P($$SITE^VASITE,U,3) I $S(PXRMSNUM=5000:1,+$G(Y)'<100000:1,1:0)"

 +4        WRITE !

 +5        DO ^DIC

 +6        IF Y=-1

               GOTO END

 +7        SET DA=$PIECE(Y,U,1)

 +8        DO EDIT(DIC,DA)

 +9        GOTO GETNAME

 +10      ;

END        KILL DIC,PXY

 +1        QUIT 

 +2       ;=======================================================================

 +3       ;

EDIT(ROOT,DA) ;

 +1        NEW DIE,DR

 +2        SET DIE=ROOT

 +3        SET DR="[PXTT EDIT PAT. EDUCATION]"

 +4        DO ^DIE

 +5        QUIT