| 1 | DENTCPM ;ISC2/HCD,JEC-DENTAL CRITICAL PATH APPT. SCHED. AID (CON'T) ; 12/5/88 10:43 AM ;
|
|---|
| 2 | ;;VERSION 1.2;;**11**;
|
|---|
| 3 | ENTER W !!,"Would you like instructions" S %=2 D YN^DICN D:%=0 Q G ENTER:%=0,EXIT:%<0 I %=1 D INST
|
|---|
| 4 | S DIC="^DENT(220,",DIC(0)="AELQM",DIC("DR")="" D ^DIC G EXIT:Y<1 S DIE=DIC,DA=+Y,DR="[DENTCPMEDT]" D ^DIE K DIC("DR") G DENTAN:'$D(D1)
|
|---|
| 5 | I $D(^DENT(220,DA,9,D1,0)) W:$P(^(0),U,2)="Y" !!!,?5,"***** MAKE SURE PATIENT HAS Rx *****"
|
|---|
| 6 | DENTAN W !!,"Enter another appointment" S %=1 D YN^DICN D:%=0 Q1 G DENTAN:%=0,ENTER:%=1,EXIT
|
|---|
| 7 | PRINT S DIC="^DENT(220,",DIC(0)="AEQM" D ^DIC G EXIT:Y<0 S D0=+Y
|
|---|
| 8 | I '$D(^DENT(220,D0,9,0)) W !,"Sorry, no appointments have been entered for this patient.",! G DENTPA
|
|---|
| 9 | S DIC="^DENT(220,D0,9,",DIC(0)="AEMQ" D ^DIC G DENTPA:Y<0 S D1=+Y
|
|---|
| 10 | S %ZIS="MQ" K IO("Q") D ^%ZIS G DENTPA:IO=""
|
|---|
| 11 | I $D(IO("Q")) S ZTRTN="QUE^DENTCPM",ZTSAVE("U")="",ZTSAVE("D0")="",ZTSAVE("D1")="" D ^%ZTLOAD K ZTSK,ZTRTN,ZTSAVE G DENTPA
|
|---|
| 12 | QUE U IO
|
|---|
| 13 | W @IOF,!,?26,"DENTAL APPOINTMENT SCHEDULE"
|
|---|
| 14 | S DFN=D0 D DEM^VADPT I VAERR=0 S DENTNM=VADM(1),DENTSSN=$P(VADM(2),"^")
|
|---|
| 15 | I $D(^DENT(220,D0,9,D1,0)) S L=^(0),Y=$P(L,U,17),DENTRX=$P(L,U,2),L=$P(L,U,3,16)
|
|---|
| 16 | F I=1:1:14 S L(I)=$P(L,U,I)
|
|---|
| 17 | W !!,"PATIENT: " W:$D(DENTNM) DENTNM W ?39,"SSN: " W:$D(DENTSSN) DENTSSN X ^DD("DD") W ?55,"DATE ENTERED: ",Y,! F I=1:1:80 W "_"
|
|---|
| 18 | W !,"APPOINTMENTS",?30,1,?40,1,?50,2,?60,2,?70,3,?76,3
|
|---|
| 19 | W !,?11 F I=1:1:33 W ?($X+1),$S(I>9:$E(I,2),1:I)
|
|---|
| 20 | W ! F I=1:1:80 W "-"
|
|---|
| 21 | W !,"ITEM PROV",!
|
|---|
| 22 | S DENTX="PROPH^^PERIO^^ENDO^^REST^^SURG^^C&B^^PROS"
|
|---|
| 23 | F I=5,7,9,1,3,11,13 I L(I) W !,$P(DENTX,U,I) W:L(I+1) ?7,$P(^DENT(220.5,L(I+1),0),U,2) S I1=$S(I=3:12+(2*L(1)),I=11:12+((L(1)+L(3))*2),I=13:12+((L(1)+L(3)+L(11))*2),1:12),DENTL=$S(I=5!(I=7)!(I=9):"+ ",1:"* ") F A=1:1:L(I) W ?I1,DENTL
|
|---|
| 24 | S DENTRX=$S(DENTRX="Y":"will",DENTRX="N":"won't",1:"may") W !!!,"The patient "_DENTRX_" be receiving MEDICATION prior to treatment.",! G:$D(ZTSK) EXIT
|
|---|
| 25 | DENTPA W !!,"Print another Appointment Schedule" S %=2 D YN^DICN D:%=0 Q2 G DENTPA:%=0 I %=1 G PRINT
|
|---|
| 26 | EXIT X ^%ZIS("C") K %,A,DA,DENTDTE,DENTL,DENTNM,D0,DENTRX,DENTSSN,DENTX,DIC,DIE,DR,G,H,I,I1,L,X,Y,Z K:$D(ZTSK) ^%ZTSK(ZTSK),ZTSK Q
|
|---|
| 27 | INST W !!!,"This module provides an optimized appointment schedule for individual",!,"patients, based on indicated procedures."
|
|---|
| 28 | W !,"General questions such as the patient's name and appointment date are asked",!,"first, then the number of appointments necessary for each procedure and"
|
|---|
| 29 | W !,"the provider's ID are asked. Additional help is available by entering",!,"a question mark during any entry.",! Q
|
|---|
| 30 | Q W !!,"Enter a 'Y' for 'Yes' if you wish to see additional instructions on how to use",!,"this scheduling aid. Press return if you do not want additional instructions.",!,"Enter an uparrow (^) to exit this option entirely." Q
|
|---|
| 31 | Q1 W !!,"Press return if you want to enter another appointment for a patient.",!,"Enter 'N' for 'No' if you do not want to enter another appointment",!,"and wish to exit this option." Q
|
|---|
| 32 | Q2 W !!,"Enter a 'Y' for 'Yes' if you wish to print an appointment schedule",!,"for another patient or press return to exit this option." Q
|
|---|
