source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCOAIM2.m@ 1489

Last change on this file since 1489 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 989 bytes
Line 
1ONCOAIM2 ;Hines OIFO/GWB - SEQUENCE NUMBER HELP FRAME ;1/22/96
2 ;;2.11;ONCOLOGY;**1,36,44**;Mar 07, 1995
3 ;
4HLP ;Help Frame to display existing primaries
5 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:".")
6 S NUM=0 F S MAL=NUM,NUM=$O(^TMP($J,"MAL",NUM)) D Q:NUM'>0
7 .Q:NUM'>0
8 .W !?1,$P(^TMP($J,"MAL",NUM),U,2)," ",$P(^TMP($J,"MAL",NUM),U,3),?40,$P(^TMP($J,"MAL",NUM),U,5)
9 W !!,$S($O(^TMP($J,"BEN",""))'="":"Existing non-malignant primaries",1:"No non-malignant primaries")," for ",ONCONM,$S($O(^TMP($J,"BEN",""))'="":":",1:".")
10 S ALPHA=0 F S BEN=ALPHA,ALPHA=$O(^TMP($J,"BEN",ALPHA)) D Q:ALPHA'>0
11 .Q:ALPHA'>0
12 .W !?1,$P(^TMP($J,"BEN",ALPHA),U,2)," ",$P(^TMP($J,"BEN",ALPHA),U,3),?40,$P(^TMP($J,"BEN",ALPHA),U,5)
13 W !
14 W !,"Next available malignant or in situ SEQUENCE NUMBER: ",NEXTMAL
15 W !,"Next available non-malignant SEQUENCE NUMBER.......: ",NEXTBEN
16 W !
17 Q
Note: See TracBrowser for help on using the repository browser.