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