source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLDIEDB2.m@ 701

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1HLDIEDB2 ;CIOFO-O/LJA - Debug $$STORESCR Code ;1/9/04 @ 09:01
2 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
3 ;
4STORESCR(RTN,LOC,STORE) ; Called by Xecutable M code to set or "unset" (don't
5 ; collect) data...
6 ;
7 ; Steps to add SCREEN logic below
8 ; -------------------------------
9 ; (1) Add M code that evaluates environment and optionally sets STORE.
10 ; (2) Update NEWs at top of STORESCR
11 ;
12 ; Error Handling
13 ; --------------
14 ; What if your M code errors out? You don't want the call to
15 ; FILE^HLDIE failing. But, you do want to be notified about the
16 ; error. For this reason, error trapping has been added to this
17 ; $$STORESCR API.
18 ;
19 ; In order to set up error handling, you must define in your M code
20 ; the users who should receive an "error notification email message."
21 ; Do this by defining the SENDUZ(DUZ)="" array, with one entry for
22 ; each recipient of the message.
23 ;
24 ;
25 ; >>> Step #2 - Update NEWS After M Code Creations <<<
26 N SENDUZ
27 ;
28 I ^%ZOSF("OS")["DSM" N $ETRAP S $ET=""
29 S X="ERR^HLDIEDB1",@^%ZOSF("TRAP")
30 ;
31 ; RTN = RTN~SUBRTN
32 ; LOC = 1 if at top of FILE^HLDIE call
33 ; = 2 if at bottom of FILE^HLDIE call
34 ; STORE = "",1,2 (see below)
35 ;
36 ; STORE can be set to the following value...
37 ;
38 ; "" - Don't store anything
39 ; 1 - Store "select" data
40 ; 2 - Store all data
41 ;
42 ; Warning! The only acceptable action by this API is to change the
43 ; value of STORE.
44 ;
45 ; >>> Step #1 - M Code Starts Here <<<
46 ;
47 ; Create list of recipients of error notification message now!
48 ;
49 ;
50 ;
51 ;
52 ;
53 ;
54 ;
55 ;
56 ; >>> M Code Ends Here <<<
57 ;
58 Q STORE
59 ;
60EOR ;HLDIEDB2 - Debug $$STORESCR Code ;1/9/04 @ 09:01
Note: See TracBrowser for help on using the repository browser.