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 |