ONCOAIM2.m

ONCOAIM2 ;Hines OIFO/GWB - SEQUENCE NUMBER HELP FRAME ;1/22/96

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 ;

HLP ;Help Frame to display existing primaries

 W !,$S($O(^TMP($J,"MAL",""))'="":"Existing malignant or in situ primaries",1:"No malignant or in situ primaries.")," for ",ONCONM,$S($O(^TMP($J,"MAL",""))'="":":",1:".")

 S NUM=0 F  S MAL=NUM,NUM=$O(^TMP($J,"MAL",NUM)) D  Q:NUM'>0

 .Q:NUM'>0

 .W !?1,$P(^TMP($J,"MAL",NUM),U,2)," ",$P(^TMP($J,"MAL",NUM),U,3),?40,$P(^TMP($J,"MAL",NUM),U,5)

 W !!,$S($O(^TMP($J,"BEN",""))'="":"Existing non-malignant primaries",1:"No non-malignant primaries")," for ",ONCONM,$S($O(^TMP($J,"BEN",""))'="":":",1:".")

 S ALPHA=0 F  S BEN=ALPHA,ALPHA=$O(^TMP($J,"BEN",ALPHA)) D  Q:ALPHA'>0

 .Q:ALPHA'>0

 .W !?1,$P(^TMP($J,"BEN",ALPHA),U,2)," ",$P(^TMP($J,"BEN",ALPHA),U,3),?40,$P(^TMP($J,"BEN",ALPHA),U,5)

 W !

 W !,"Next available malignant or in situ SEQUENCE NUMBER: ",NEXTMAL

 W !,"Next available non-malignant SEQUENCE NUMBER.......: ",NEXTBEN

 W !

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCOAIM2   1007     printed  Apr 09, 2024@21:27:52                                                                                                                                                                                                    Page 2

ONCOAIM2  ;Hines OIFO/GWB - SEQUENCE NUMBER HELP FRAME ;1/22/96

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2       ;

HLP       ;Help Frame to display existing primaries

 +1        WRITE !,$SELECT($ORDER(^TMP($JOB,"MAL",""))'="":"Existing malignant or in situ primaries",1:"No malignant or in situ primaries.")," for ",ONCONM,$SELECT($ORDER(^TMP($JOB,"MAL",""))'="":":",1:".")

 +2        SET NUM=0

           FOR 

               SET MAL=NUM

               SET NUM=$ORDER(^TMP($JOB,"MAL",NUM))

               Begin DoDot:1

 +3                if NUM'>0

                       QUIT 

 +4                WRITE !?1,$PIECE(^TMP($JOB,"MAL",NUM),U,2)," ",$PIECE(^TMP($JOB,"MAL",NUM),U,3),?40,$PIECE(^TMP($JOB,"MAL",NUM),U,5)

               End DoDot:1

               if NUM'>0

                   QUIT 

 +5        WRITE !!,$SELECT($ORDER(^TMP($JOB,"BEN",""))'="":"Existing non-malignant primaries",1:"No non-malignant primaries")," for ",ONCONM,$SELECT($ORDER(^TMP($JOB,"BEN",""))'="":":",1:".")

 +6        SET ALPHA=0

           FOR 

               SET BEN=ALPHA

               SET ALPHA=$ORDER(^TMP($JOB,"BEN",ALPHA))

               Begin DoDot:1

 +7                if ALPHA'>0

                       QUIT 

 +8                WRITE !?1,$PIECE(^TMP($JOB,"BEN",ALPHA),U,2)," ",$PIECE(^TMP($JOB,"BEN",ALPHA),U,3),?40,$PIECE(^TMP($JOB,"BEN",ALPHA),U,5)

               End DoDot:1

               if ALPHA'>0

                   QUIT 

 +9        WRITE !

 +10       WRITE !,"Next available malignant or in situ SEQUENCE NUMBER: ",NEXTMAL

 +11       WRITE !,"Next available non-malignant SEQUENCE NUMBER.......: ",NEXTBEN

 +12       WRITE !

 +13       QUIT