RELATIONAL CODE: S I(0,0)=$G(D0) X DPP(2,"OVF0",9.3) S X="" S D0=I(0,0)
OVERFLOW DATA:
FIRST SUBSCRIPT FOR OVERFLOW: OVF0
SECOND SUBSCRIPT FOR OVERFLOW: 9.2
OVERFLOW CODE: S (D,D0)=$QS(DIMQ,$QL(DIMQ)) I D,$D(^ONCO(165.5,D,0)) S X=$P(^(0),U) S:$D(^ONCO(164.2,+X,0)) X=$P(^(0),U) D M
FIRST SUBSCRIPT FOR OVERFLOW: OVF0
SECOND SUBSCRIPT FOR OVERFLOW: 9.3
OVERFLOW CODE: N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^ONCO(165.5,"C",I(0,0))),DIMSCNT=$QL(DIMQ) F S DIMQ=$Q(@DIMQ) Q:DIMQ="" Q:$NA(@DIMQ,DIMSCNT)'=DIMSTRT X DPP(2,"OVF0",9.2) Q:'$D(D) S D=D0
FIELD NO.: .043
FIELD NAME: ANALYTIC PRIMARY REQ FOLLOWUP
SORT QUALIFIERS BEFORE FIELD: "@'
FROM VALUE INTERNAL: .999999
FROM VALUE EXTERNAL: 1
TO VALUE INTERNAL: 1
TO VALUE EXTERNAL: 1
FILE OR SUBFILE NO.: 160
GET CODE: S Y(160,36,1)=$S($D(^ONCO(160,D0,1)):^(1),1:""),X1=DT,X2=$P(Y(160,36,1),U,2) D:X2 ^%DTC:X1 S X=X>91.25 S:X $P(^ONCO(160,D0,1),U,7)=8 S DISX(3)=X S:DISX(3)]"" DISX(3)=+DISX(3)