ONCOPA4.m

ONCOPA4 ;HINES OIFO/RTK - PA PRINT COMPLETE ABSTRACT CONTINUED ;06/04/20

 ;;2.2;ONCOLOGY;**12,13**;Jul 31, 2013;Build 7

 ;

SSDI ;

 W ! S FDNAME="" F FDNUM=3800:1:3950  D

 .I '$D(^DD(165.5,FDNUM)) Q

 .I $$GET1^DIQ(165.5,IEN,FDNUM,"I")'="" D DISPL

 K FDNAME,FDNUM Q

DISPL ;

 ;I FDNUM=3859 Q  ; don't display HIV STATUS field

 S FDNAME=$P($G(^DD(165.5,FDNUM,0)),U,1) D SENTNC W !?2,FDNAME,": "

 W $$GET1^DIQ(165.5,IEN,FDNUM,"E")

 Q

SENTNC ;

 I FDNAME["HIV" S FDNAME="HIV Status" Q

 S FDNAME=$$LCASE^ONCOU(FDNAME)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCOPA4   530     printed  Dec 13, 2024@02:25:19                                                                                                                                                                                                      Page 2

ONCOPA4   ;HINES OIFO/RTK - PA PRINT COMPLETE ABSTRACT CONTINUED ;06/04/20

 +1       ;;2.2;ONCOLOGY;**12,13**;Jul 31, 2013;Build 7

 +2       ;

SSDI      ;

 +1        WRITE !

           SET FDNAME=""

           FOR FDNUM=3800:1:3950

               Begin DoDot:1

 +2                IF '$DATA(^DD(165.5,FDNUM))

                       QUIT 

 +3                IF $$GET1^DIQ(165.5,IEN,FDNUM,"I")'=""

                       DO DISPL

               End DoDot:1

 +4        KILL FDNAME,FDNUM

           QUIT 

DISPL     ;

 +1       ;I FDNUM=3859 Q  ; don't display HIV STATUS field

 +2        SET FDNAME=$PIECE($GET(^DD(165.5,FDNUM,0)),U,1)

           DO SENTNC

           WRITE !?2,FDNAME,": "

 +3        WRITE $$GET1^DIQ(165.5,IEN,FDNUM,"E")

 +4        QUIT 

SENTNC    ;

 +1        IF FDNAME["HIV"

               SET FDNAME="HIV Status"

               QUIT 

 +2        SET FDNAME=$$LCASE^ONCOU(FDNAME)

 +3        QUIT