PXTTEDQ.m

PXTTEDQ ;ISL/DLT - PCE Reminder/Maintenance Inquiry ;11/21/95  14:55

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

 S U="^",DIC="^AUTTEDT(",DIC(0)="AEMQ",DIC("A")="Select PCE Education Topic: " D ^DIC K DIC("A") G:Y=-1 END S (FR,TO)=$P(Y,U,2),PXY=+Y

 S BY=.01,DHD="PCE EDUCATION TOPIC INQUIRY",FLDS="[PXTT EDUCATION TOPIC DETAIL]",L=0 D EN1^DIP K PXY

END Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXTTEDQ   364     printed  Apr 09, 2024@21:34:06                                                                                                                                                                                                      Page 2

PXTTEDQ   ;ISL/DLT - PCE Reminder/Maintenance Inquiry ;11/21/95  14:55

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

 +2        SET U="^"

           SET DIC="^AUTTEDT("

           SET DIC(0)="AEMQ"

           SET DIC("A")="Select PCE Education Topic: "

           DO ^DIC

           KILL DIC("A")

           if Y=-1

               GOTO END

           SET (FR,TO)=$PIECE(Y,U,2)

           SET PXY=+Y

 +3        SET BY=.01

           SET DHD="PCE EDUCATION TOPIC INQUIRY"

           SET FLDS="[PXTT EDUCATION TOPIC DETAIL]"

           SET L=0

           DO EN1^DIP

           KILL PXY

END        QUIT