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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXTTEDE 639 printed Dec 13, 2024@02:31:29 Page 2
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
