| [613] | 1 | MCESEDT2 ;WISC/DCB-ELECTRONIC SIGNATURE EDITS PART 2 ;6/26/96 12:51
|
|---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
|---|
| 3 | EDD ; Draft
|
|---|
| 4 | EDPD ; Problem Draft
|
|---|
| 5 | S TEMP=DUZ_U_U_$$NOW(1)_"^^^^"_$$NUMTOES^MCESSCR(LOOP)_"^^^^^^^"
|
|---|
| 6 | S:$P($G(^MCAR(MCFILE,REC,"ES")),U,14)="" TEMP=TEMP_"^"_$$NOW(1)
|
|---|
| 7 | Q
|
|---|
| 8 | EDRV ; Release On-line Verify
|
|---|
| 9 | D SIGN Q:ERROR=1
|
|---|
| 10 | S $P(TEMP,U,4)=DUZ,$P(TEMP,U,6)=$$NOW(1),$P(TEMP,U,8)=$$NOW(1),$P(TEMP,U,9)=$$NOW(1),$P(TEMP,U,2)="",$P(TEMP,U,3)="",$P(TEMP,U,5)=SCRAMBLE
|
|---|
| 11 | Q
|
|---|
| 12 | EDROV ; Release Off-Line Verify
|
|---|
| 13 | D SIGN Q:ERROR=1
|
|---|
| 14 | S DIR(0)="E",DIR("T")=30 D ^DIR K DIR,DIRUT,DTOUT,DIROUT
|
|---|
| 15 | I $D(DUOUT) S TEMP=ORG,EXIT=1 K DUOUT Q
|
|---|
| 16 | D HEADER^MCESEDT
|
|---|
| 17 | W !!,IOBON,"Please enter a provider that you are signing for",IOBOFF
|
|---|
| 18 | W !,"Note: This provider must have a key for ",IOUON,MCROUT,IOUOFF,!
|
|---|
| 19 | S DIC=200,DIC(0)="AEQMZ"
|
|---|
| 20 | S DIC("A")="Please select a Provider with a "_IOINHI_MCROUT_IOINORM_" key: "
|
|---|
| 21 | S DIC("S")="I $D(^XUSEC(MCESKEY,Y)),(Y'=DUZ)" D ^DIC K DIC
|
|---|
| 22 | S CDUZ=+Y
|
|---|
| 23 | I $D(DUOUT)!($D(DTOUT))!(CDUZ<0) S EXIT=1,TEMP=ORG D:$G(SUP)="S" DELSS^MCESEDT Q
|
|---|
| 24 | S $P(TEMP,U,1)=DUZ,$P(TEMP,U,3)=$$NOW(1),$P(TEMP,U,8)=$$NOW(1),$P(TEMP,U,9)=$$NOW(1),$P(TEMP,U,4)=CDUZ,$P(TEMP,U,2)=SCRAMBLE
|
|---|
| 25 | Q
|
|---|
| 26 | SIGN ; Display message, checks for elect. sign
|
|---|
| 27 | I $P($G(^VA(200,DUZ,20)),U,4)="" D ERROR S ERROR=1 Q
|
|---|
| 28 | W !!,"In order to "_IOUON_"release and verify"_IOUOFF_" procedure results",!,"you must type in your electronic signature code."
|
|---|
| 29 | D SIG^XUSESIG S:X1="" ERROR=1
|
|---|
| 30 | I ERROR=1 D HEADER^MCESEDT,ERROR Q
|
|---|
| 31 | S SCRAMBLE=$$ENCODE^MCESPRT(MCFILE,MCARGDA)
|
|---|
| 32 | Q
|
|---|
| 33 | EDRNV ; Release Not Verify
|
|---|
| 34 | I NCHANGE G EDRNV1
|
|---|
| 35 | W !!,IOINHI,IOBON,*7,"This option should be used with extreme CAUTION.",IOINORM,IOBOFF
|
|---|
| 36 | W !,"You can be held accountable for releasing unverified procedure results",!!
|
|---|
| 37 | S DIR(0)="Y",DIR("B")="N",DIR("A")="Do you "_IOUON_"still"_IOUOFF_" want to countinue" D ^DIR K DIR
|
|---|
| 38 | I Y=0!$D(DIRUT) S EXIT=1 Q
|
|---|
| 39 | EDRNV1 ;
|
|---|
| 40 | W !!
|
|---|
| 41 | S DIR("B")="NO",DIR(0)="Y"
|
|---|
| 42 | S DIR("A",1)="Since this record is "_IOUON_"Released Not Verified"_IOUOFF
|
|---|
| 43 | S DIR("A")="Do you want to mark this record for deletion"
|
|---|
| 44 | S DIR("?",1)="When you "_IOUON_"mark a record for deletion"_IOUOFF_","
|
|---|
| 45 | S DIR("?",2)="the record will be gone from your view and everyone else's"
|
|---|
| 46 | S DIR("?",3)="view with the exception of the manager of "_IOUON_MCROUT_IOUOFF_"."
|
|---|
| 47 | S DIR("?")="YES: Mark it for deletion NO: Don't mark it for deletion"
|
|---|
| 48 | D ^DIR K DIR I $D(DIRUT) S EXIT=1 Q
|
|---|
| 49 | I Y=1 S $P(TEMP,U,12)="1",$P(TEMP,U,13)=DUZ,$P(TEMP,U,3)=$$NOW(1)
|
|---|
| 50 | I NCHANGE=0 S $P(TEMP,U,8)=$$NOW(1),$P(TEMP,U,9)="",$P(TEMP,U,1)=DUZ,$P(TEMP,U,3)=$$NOW(1)
|
|---|
| 51 | Q
|
|---|
| 52 | EDS ; Superseded
|
|---|
| 53 | S MCESTEMP=ORG
|
|---|
| 54 | W !!!,"You must sign a Superseded record in order to complete the process"
|
|---|
| 55 | S DIR(0)="Y",DIR("B")="NO",DIR("A")="Do you "_IOUON_"still"_IOUOFF_" want to countinue" D ^DIR K DIR
|
|---|
| 56 | I Y=0!(Y=U)!(Y="") S EXIT=1 K MCBACK Q
|
|---|
| 57 | S (X,MX)=$P(^MCAR(MCFILE,REC,0),U,1)
|
|---|
| 58 | S NOW=$$NOW(X)
|
|---|
| 59 | S PDATE=+$P(TEMP,U,15)
|
|---|
| 60 | W !!,?14,IOBON,IODWL,IOUON,"Please Wait!",IOBOFF,IOUOFF
|
|---|
| 61 | K DD,DO,DIC S HOLD="^MCAR("_MCFILE_",",DIC=HOLD,X=$P(^MCAR(MCFILE,REC,0),U,1),DIC(0)=""
|
|---|
| 62 | D FILE^DICN S NEWREC=+Y
|
|---|
| 63 | I +Y=-1 W !!,IOINHI,"An ",IOBON,"error",IOBOFF," has occured",!,"in creating the new record" S EXIT=1 Q
|
|---|
| 64 | W !!,"Record "_REC_" copy to "_NEWREC_"."
|
|---|
| 65 | S %X=HOLD_REC_",",%Y=HOLD_NEWREC_"," D %XY^%RCR
|
|---|
| 66 | S ^MCAR(MCFILE,NEWREC,"ES")=DUZ_U_U_NOW_U_U_U_U_"D"_U_U_U_REC_U_U_U_U_PDATE_U_NOW
|
|---|
| 67 | W !,"Indexing "_NEWREC_"." S DIK=HOLD,DA=NEWREC D IX^DIK K DIK
|
|---|
| 68 | S $P(TEMP,U,11)=NEWREC,$P(TEMP,U,3)=NOW
|
|---|
| 69 | S $P(TEMP,U,1)=DUZ,$P(TEMP,U,3)=NOW,$P(TEMP,U,8)=NOW,$P(TEMP,U,9)=NOW
|
|---|
| 70 | W !!,"Your Procedure has been Copied",!,"You can now make changes to the copy."
|
|---|
| 71 | W !,"New Record:",!
|
|---|
| 72 | S DIC="^MCAR("_MCFILE_",",DIC(0)="EMQZ",X=" " D ^DIC K DIC
|
|---|
| 73 | S MCY=Y,MCY(0)=Y(0),MCY(0,0)=Y(0,0)
|
|---|
| 74 | S MCESPREV=REC,MCESCUR=NEWREC,MCBACK=1
|
|---|
| 75 | S $P(^MCAR(MCFILE,NEWREC,"ES"),U,16)=+$P(TEMP,U,16)+1
|
|---|
| 76 | K PDATE,NOW,TY,X,DTOUT,DUOUT,DIROUT
|
|---|
| 77 | Q
|
|---|
| 78 | EDSRV ; NO
|
|---|
| 79 | EDSROV ; OP
|
|---|
| 80 | Q
|
|---|
| 81 | ERROR ;
|
|---|
| 82 | K NEWST ;D HEADER^MCESEDT
|
|---|
| 83 | W !!,IOINHI,IOBON,*7,"Your electronic signature is invalid or not declared.",IOINORM,IOBOFF
|
|---|
| 84 | W !!,"You must declare an electronic signature or ask your IRM for help."
|
|---|
| 85 | W !,"===> No changes to release status can be done. <===="
|
|---|
| 86 | S TEMP=ORG,ERROR=1,EXIT=1
|
|---|
| 87 | Q
|
|---|
| 88 | ASK ;
|
|---|
| 89 | S DIR("A")=IOINHI_"Please Select a New Status"_IOINORM
|
|---|
| 90 | D ^DIR I $D(DIRUT) S EXIT=1
|
|---|
| 91 | I Y=DIR("B"),(PROV>2) S EXIT=1
|
|---|
| 92 | K DIR Q:EXIT=1
|
|---|
| 93 | S NEWST=Y(0) D HEADER^MCESEDT Q
|
|---|
| 94 | NOW(TA) ;
|
|---|
| 95 | D NOW^%DTC Q $E(%,1,12)
|
|---|
| 96 | Q
|
|---|
