source: FOIAVistA/tag/r/MEDICINE-MC/MCESHLP.m@ 1154

Last change on this file since 1154 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.9 KB
Line 
1MCESHLP ;WISC/DCB-Release Control Help ;3/9/93
2 ;;2.3;Medicine;;09/13/1996
3HELP ;
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
9HELP2 ;
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
61OTHER ;
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
64COMMON ;
65 W !!,"Only ",HOLD2," Key holders can see or make"
66 W !,"changes to the information.",! Q
67CHECK ;
68 I PY>(24-12) S PY=0 D PRTC
69 Q
70PRTC ;
71 R !,"Press RETURN to continue or '^' to exit",RET:DTIME
72 I '$T!(RET="^") S ESCAPE=1
73 W @IOF Q
Note: See TracBrowser for help on using the repository browser.