| 1 | HLDIEDB2 ;CIOFO-O/LJA - Debug $$STORESCR Code ;1/9/04 @ 09:01
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
|
|---|
| 3 | ;
|
|---|
| 4 | STORESCR(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 | ;
|
|---|
| 60 | EOR ;HLDIEDB2 - Debug $$STORESCR Code ;1/9/04 @ 09:01
|
|---|
