- 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 ---[H[J[2J[HONCOPA4 530 printed Jan 18, 2025@03:26:29 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