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 ---[H[J[2J[HONCOAIM2 1007 printed Dec 13, 2024@02:24:13 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
