- 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 Apr 23, 2025@18:11:49 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
