Routine: MCESHLP

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

PRTC ;

 R !,"Press RETURN to continue or '^' to exit",RET:DTIME

 I '$T!(RET="^") S ESCAPE=1

 W @IOF Q

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

MCESHLP.m