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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLDIEDB2 1702 printed Dec 13, 2024@01:57:20 Page 2
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
