IB20P207 ;BP/TJH; ENVIRONMENT CHECK WITH PRE-INIT CODE ; 01/03/2003
Source file <IB20P207.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENV | ; environment check
; No special environment check at this time. |
|
| PRE | ; set up check points for pre-init
|
|
| R28 | ; set new value into record 28 of file 364.7, re: WAS-0902-20562
; change the Format Code |
|
| R900 | ; set new values into record 900 of file 364.7, re: CTX-1002-70456
; change the Data Element from 234 to 236 |
|
| COMPLETE | ; display message that step has completed successfully
|
|
| END | ; display message that pre-init has completed successfully
|
|
| TEXT | ;Storage area for long strings of text
|
|
| TEXT1 | ;;S IBXDATA=$G(IBXSAVE("DISDT")) D:$S(IBXDATA="":'$$INPAT^IBCEF(IBXIEN,1),1:0) F^IBCEF("N-STATEMENT COVERS TO DATE",,,IBXIEN) I IBXDATA S IBXDATA=$$DT^IBCEFG1(IBXDATA\1,"","D8")
|
|
| TEXT2 | ;;N A,Z,Q S Q=IBXDATA K IBXDATA F Z=1,2 S A=$P(Q,U,Z) I $D(^DGCR(399,IBXIEN,"I"_(Z+1))) S IBXDATA(Z)=$S(A="":"G2","MAMB16"[A:"1C",A="TV"!(A="MC"):"1D",A="CH":"1H",A="BL":$S($$FT^IBCEF(IBXIEN)=2:"1B",1:"1A"),1:"G2")
|
| FileNo | Call Tags |
|---|---|
| ^IBA(364.7 - [#364.7] | Classic Fileman Calls |
