HLDIEDB2.m

HLDIEDB2 ;CIOFO-O/LJA - Debug $$STORESCR Code ;1/9/04 @ 09:01

 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995

 ;

STORESCR(RTN,LOC,STORE) ; Called by Xecutable M code to set or "unset" (don't

 ; collect) data...

 ;

 ; Steps to add SCREEN logic below

 ; -------------------------------

 ; (1) Add M code that evaluates environment and optionally sets STORE.

 ; (2) Update NEWs at top of STORESCR

 ;

 ; Error Handling

 ; --------------

 ; What if your M code errors out?  You don't want the call to 

 ; FILE^HLDIE failing.  But, you do want to be notified about the

 ; error.  For this reason, error trapping has been added to this

 ; $$STORESCR API.

 ;

 ; In order to set up error handling, you must define in your M code

 ; the users who should receive an "error notification email message."

 ; Do this by defining the SENDUZ(DUZ)="" array, with one entry for

 ; each recipient of the message.

 ;

 ;

 ; >>> Step #2 - Update NEWS After M Code Creations <<<

 N SENDUZ

 ;

 I ^%ZOSF("OS")["DSM" N $ETRAP S $ET=""

 S X="ERR^HLDIEDB1",@^%ZOSF("TRAP")

 ;

 ; RTN = RTN~SUBRTN

 ; LOC = 1 if at top of FILE^HLDIE call

 ;     = 2 if at bottom of FILE^HLDIE call

 ; STORE = "",1,2 (see below)

 ;

 ; STORE can be set to the following value...

 ;

 ; "" - Don't store anything

 ;  1 - Store "select" data

 ;  2 - Store all data

 ;

 ; Warning!  The only acceptable action by this API is to change the

 ;           value of STORE.

 ;

 ; >>> Step #1 - M Code Starts Here <<<

 ;

 ; Create list of recipients of error notification message now!

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ;

 ; >>> M Code Ends Here <<<

 ;

 Q STORE

 ;

EOR ;HLDIEDB2 - Debug $$STORESCR Code ;1/9/04 @ 09:01

HLDIEDB2  ;CIOFO-O/LJA - Debug $$STORESCR Code ;1/9/04 @ 09:01

 +1       ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995

 +2       ;

STORESCR(RTN,LOC,STORE) ; Called by Xecutable M code to set or "unset" (don't

 +1       ; collect) data...

 +2       ;

 +3       ; Steps to add SCREEN logic below

 +4       ; -------------------------------

 +5       ; (1) Add M code that evaluates environment and optionally sets STORE.

 +6       ; (2) Update NEWs at top of STORESCR

 +7       ;

 +8       ; Error Handling

 +9       ; --------------

 +10      ; What if your M code errors out?  You don't want the call to 

 +11      ; FILE^HLDIE failing.  But, you do want to be notified about the

 +12      ; error.  For this reason, error trapping has been added to this

 +13      ; $$STORESCR API.

 +14      ;

 +15      ; In order to set up error handling, you must define in your M code

 +16      ; the users who should receive an "error notification email message."

 +17      ; Do this by defining the SENDUZ(DUZ)="" array, with one entry for

 +18      ; each recipient of the message.

 +19      ;

 +20      ;

 +21      ; >>> Step #2 - Update NEWS After M Code Creations <<<

 +22       NEW SENDUZ

 +23      ;

 +24       IF ^%ZOSF("OS")["DSM"

               NEW $ETRAP

               SET $ETRAP=""

 +25       SET X="ERR^HLDIEDB1"

           SET @^%ZOSF("TRAP")

 +26      ;

 +27      ; RTN = RTN~SUBRTN

 +28      ; LOC = 1 if at top of FILE^HLDIE call

 +29      ;     = 2 if at bottom of FILE^HLDIE call

 +30      ; STORE = "",1,2 (see below)

 +31      ;

 +32      ; STORE can be set to the following value...

 +33      ;

 +34      ; "" - Don't store anything

 +35      ;  1 - Store "select" data

 +36      ;  2 - Store all data

 +37      ;

 +38      ; Warning!  The only acceptable action by this API is to change the

 +39      ;           value of STORE.

 +40      ;

 +41      ; >>> Step #1 - M Code Starts Here <<<

 +42      ;

 +43      ; Create list of recipients of error notification message now!

 +44      ;

 +45      ;

 +46      ;

 +47      ;

 +48      ;

 +49      ;

 +50      ;

 +51      ;

 +52      ; >>> M Code Ends Here <<<

 +53      ;

 +54       QUIT STORE

 +55      ;

EOR       ;HLDIEDB2 - Debug $$STORESCR Code ;1/9/04 @ 09:01