| 1 | SROCMPL ;B'HAM ISC/MAM - ENTER NON-OPERATIVE OCCURRENCES; [ 01/08/98 9:54 AM ]
|
|---|
| 2 | ;;3.0; Surgery ;**38,77**;24 Jun 93
|
|---|
| 3 | W @IOF,!,"NOTE: You are about to enter an occurrence for a patient that has not had an",!,"operation during this admission. If this patient has a surgical procedure"
|
|---|
| 4 | W !,"during the current admission, use the option to enter or edit intraoperative",!,"and postoperative occurrences.",!!
|
|---|
| 5 | W !! K Y,DIC S DIC=2,DIC(0)="QEAM" D ^DIC G:Y<0 END S DFN=+Y,SRNM=$P(Y,"^",2)
|
|---|
| 6 | W @IOF,!,?3,SRNM,!
|
|---|
| 7 | S (SROP,CNT)=0 F I=0:0 S SROP=$O(^SRF("ANON",DFN,SROP)) Q:'SROP S CNT=CNT+1,SRSDATE=$P(^SRF(SROP,0),"^",9) D LIST
|
|---|
| 8 | S CNT=CNT+1,SRCASE(CNT)="" W !!,CNT_".",?14,"ENTER A NEW NON-OPERATIVE OCCURRENCE"
|
|---|
| 9 | OPT R !!!!,"Select Number: ",OPT:DTIME I '$T!("^"[OPT) K SRTN G END
|
|---|
| 10 | I OPT["?"!('$D(SRCASE(OPT))) W !!,"Enter the number of the desired occurrence, or '"_CNT_"' to enter a new occurrence." G OPT
|
|---|
| 11 | G:OPT=CNT NEW
|
|---|
| 12 | ENTER S SRTN=SRCASE(OPT) R !!!,"Enter or Delete Data ? E// ",Z:DTIME G:'$T!(Z="^") END S Z=$E(Z) S:Z="" Z="E"
|
|---|
| 13 | I "ED"'[Z D HELP G ENTER
|
|---|
| 14 | I "Dd"[Z D ^SROCMPD G END
|
|---|
| 15 | S SRSDATE=$P(^SRF(SRTN,0),"^",9) W @IOF D COMP
|
|---|
| 16 | G END
|
|---|
| 17 | LIST ; list case
|
|---|
| 18 | W !,CNT_". "_$E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3),?14,"OCCURRENCE IN WHICH THERE WAS NO SURGICAL PROCEDURE",!,?14,"DURING THE CURRENT ADMISSION" S SRCASE(CNT)=SROP
|
|---|
| 19 | Q
|
|---|
| 20 | HELP ; help text
|
|---|
| 21 | W !!,"Enter RETURN to select an option used to enter or edit information for this",!,"case. If you would like a two screen overview of this operation, enter"
|
|---|
| 22 | W !,"'Review'. To delete this surgical case from your records, Enter 'Delete'.",!,"Please note that choosing to delete a case will remove EVERYTHING pertaining",!,"to this operative procedure.",!
|
|---|
| 23 | Q
|
|---|
| 24 | KEY S NOKEY=0 I '$D(^XUSEC("SROEDIT",DUZ)) S NOKEY=1 W !!,"You do not have the access necessary to delete a case from the file.",!!,"Press RETURN to continue " R X:DTIME Q
|
|---|
| 25 | Q
|
|---|
| 26 | END W @IOF D ^SRSKILL K SRTN
|
|---|
| 27 | Q
|
|---|
| 28 | PROMPT ;
|
|---|
| 29 | D KEY Q:NOKEY W !!,"By deleting this case, all information stored for this operative procedure",!,"will be removed from the computer."
|
|---|
| 30 | Q
|
|---|
| 31 | NEW ; enter new occurrence
|
|---|
| 32 | W @IOF,! S %DT("A")="Select the Date of Occurrence: ",%DT="AEXP" D ^%DT I Y<0 W !!,"When entering a new non-operative occurrence, a date MUST be entered.",!! G SROCMPL
|
|---|
| 33 | G:Y'>0 END S SRSDATE=Y
|
|---|
| 34 | S SRPRIN="OCCURRENCE IN WHICH THERE WAS NO SURGICAL PROCEDURE DURING THE CURRENT ADMISSION"
|
|---|
| 35 | K DA,DIC,DO,DD,DINUM,SRTN S X=DFN,DIC="^SRF(",DIC(0)="L",DLAYGO=130 D FILE^DICN K DIC,DLAYGO S SRTN=+Y
|
|---|
| 36 | K DIE,DR S DA=SRTN,DIE=130,DR=".09///"_SRSDATE_";26///"_SRPRIN D ^DIE K DR S ^SRF(SRTN,37)=1
|
|---|
| 37 | COMP ; enter occurrence information
|
|---|
| 38 | K DIE,DR S DR="[SROCOMP]",DIE=130,DA=SRTN D ^DIE K DR W !!,"Press RETURN to continue " R X:DTIME
|
|---|
| 39 | D END
|
|---|
| 40 | Q
|
|---|
