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 ---[H[J[2J[HPXTTEDQ 364 printed Dec 13, 2024@02:31:31 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
