| 1 | MCESHLP ;WISC/DCB-Release Control Help ;3/9/93
|
|---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
|---|
| 3 | HELP ;
|
|---|
| 4 | N HOLD2,PY,ESCAPE,RTN,NEW
|
|---|
| 5 | S HOLD2=IOUON_MCROUT_IOUOFF,PY=0,ESCAPE=0
|
|---|
| 6 | I '$D(^MCAR(MCFILE,REC,"ES")),(PROV<3) S NEW=1,MCESNEW=1
|
|---|
| 7 | E S NEW=0,MCESNEW=0
|
|---|
| 8 | D HELP2,HEADER^MCESEDT Q
|
|---|
| 9 | HELP2 ;
|
|---|
| 10 | W @IOF
|
|---|
| 11 | I (PROV=1)!(PROV=2) D
|
|---|
| 12 | .W IORVON,IODWL,"DRAFT",IORVOFF
|
|---|
| 13 | .W !!,"Is used to enter procedure results into the database."
|
|---|
| 14 | .D COMMON
|
|---|
| 15 | .W !!,IORVON,IODWL,"PROBLEM DRAFT",IORVOFF
|
|---|
| 16 | .W !!,"Is used to flag procedure results when the results"
|
|---|
| 17 | .W !,"are questionable or missing."
|
|---|
| 18 | .D COMMON,PRTC
|
|---|
| 19 | Q:ESCAPE=1
|
|---|
| 20 | I MCESNEW=0 D
|
|---|
| 21 | .W !,IORVON,IODWL,"RELEASED ON-LINE VERIFY",IORVOFF
|
|---|
| 22 | .W !!,"Is used by a ",HOLD2," key holder to review"
|
|---|
| 23 | .W !,"and sign the information on the screen by entering"
|
|---|
| 24 | .W !,"the electronic signiture code."
|
|---|
| 25 | .D OTHER S PY=PY+10 D CHECK
|
|---|
| 26 | Q:ESCAPE=1
|
|---|
| 27 | I (NEW)!(PROV=4)!(PROV=5) D
|
|---|
| 28 | .W !,IORVON,IODWL,"RELEASED OFF-LINE VERIFY",IORVOFF
|
|---|
| 29 | .W !!,"If the primary provider reviews the information and signed"
|
|---|
| 30 | .W !,"a paper copy of the report, a clerk holding the ",HOLD2
|
|---|
| 31 | .W !,"key may sign the report for the primary provider."
|
|---|
| 32 | .D OTHER S PY=PY+11 D CHECK
|
|---|
| 33 | Q:ESCAPE=1
|
|---|
| 34 | I (RNV=1),(NEW)!(PROV=5) D
|
|---|
| 35 | .W !,IORVON,IODWL,"RELEASED NOT VERIFY",IORVOFF
|
|---|
| 36 | .W !!,"Is used for when the authorized user who holds the"
|
|---|
| 37 | .W !,HOLD2," key, releases the information"
|
|---|
| 38 | .W !,"without checking the results."
|
|---|
| 39 | .W !!,"This option should be used with ",IOUON,"extreme caution",IOUOFF," since"
|
|---|
| 40 | .W !,"the information may not be ",IOBON,"accurate",IOBOFF," or ",IOUON,"complete",IOUOFF,"."
|
|---|
| 41 | .W !!,IOBON,"==>",IOBOFF," You can be held liable for releasing unverified reports. ",IOBON,"<==",IOBOFF
|
|---|
| 42 | .D OTHER S PY=PY+13 D CHECK
|
|---|
| 43 | Q:ESCAPE=1
|
|---|
| 44 | I PROV>2 D
|
|---|
| 45 | .W !,IORVON,IODWL,"SUPERSED",IORVOFF
|
|---|
| 46 | .W !!,"Is used when the procedure results are released."
|
|---|
| 47 | .W !,"This will copy the procedure to a new record and will allow you to make"
|
|---|
| 48 | .W !,"changes to the copy of the procedure.",!!!
|
|---|
| 49 | .D PRTC
|
|---|
| 50 | Q:ESCAPE=1
|
|---|
| 51 | W !,IOUON,"Electronic Signature",IOUOFF," is the unique set of key strokes entered"
|
|---|
| 52 | W !,"by a user of an information system in order to document approval"
|
|---|
| 53 | W !,"or concurrence."
|
|---|
| 54 | W !!,IOUON,"RELEASE CONTROL",IOUOFF," allows you to enter, research, and review"
|
|---|
| 55 | W !,"a set of results prior to making them available to other users."
|
|---|
| 56 | W !!,IOUON,"Edit/Deletion Control",IOUOFF," allows the user to control the"
|
|---|
| 57 | W !,"permanence of information entered into the information system."
|
|---|
| 58 | W !!,IOUON,"SUPERSEDED",IOUOFF," refers to the process of replacing a record with another"
|
|---|
| 59 | W !,"record by copying it.",!!!!
|
|---|
| 60 | D PRTC Q
|
|---|
| 61 | OTHER ;
|
|---|
| 62 | W !!,"Once signed the record will become locked against edit or deletionand the"
|
|---|
| 63 | W !,"non-key holders will be able to view the data.",! Q
|
|---|
| 64 | COMMON ;
|
|---|
| 65 | W !!,"Only ",HOLD2," Key holders can see or make"
|
|---|
| 66 | W !,"changes to the information.",! Q
|
|---|
| 67 | CHECK ;
|
|---|
| 68 | I PY>(24-12) S PY=0 D PRTC
|
|---|
| 69 | Q
|
|---|
| 70 | PRTC ;
|
|---|
| 71 | R !,"Press RETURN to continue or '^' to exit",RET:DTIME
|
|---|
| 72 | I '$T!(RET="^") S ESCAPE=1
|
|---|
| 73 | W @IOF Q
|
|---|
