Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCOST

ONCOST.m

Go to the documentation of this file.
  1. ONCOST ;Hines OIFO/GWB Select ACCESSION YEAR time frame ;9/28/93
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;
  1. TF ;Select time frame
  1. N DIRUT K DIR
  1. S DIR("A")=" Select ACCESSION YEAR time frame"
  1. S DIR(0)="SO^1:All years;2:Range of years;3:One year"
  1. D ^DIR K DIR Q:$D(DIRUT)
  1. Y S TF=Y
  1. S BYR=$O(^ONCO(165.5,"AY",0))
  1. S EYR=$O(^ONCO(165.5,"AY",""),-1)
  1. D AL:TF=1,RG:TF=2,AN:TF=3 G:(Y[U)!(Y="") EXIT
  1. I $D(ONCOT) S ONCOS("AF")=1
  1. EXIT K DIR,BYR,EYR,TF,Y1,Y2,YR
  1. Q
  1. ;
  1. AL ;All years
  1. S ONCOS("YR")="ALL"
  1. Q
  1. ;
  1. RG ;Range of years
  1. N DIRUT,LY
  1. W !!?5,"Select range of years in format (YYYY-YYYY) e.g. 2006-2007",!
  1. ST K DIR
  1. S DIR(0)="L^"_BYR_":"_EYR
  1. S DIR("A")=" Select range of years"
  1. D ^DIR Q:$D(DIRUT)
  1. S LY=$L(Y,","),Y1=$P(Y,","),Y2=$P(Y,",",LY-1)
  1. S ONCOS("YR")=Y1_U_Y2
  1. Q
  1. ;
  1. AN ;One year
  1. N DIRUT
  1. W !
  1. S YR=$E(DT,1)+17_$E(DT,2,3)
  1. K DIR
  1. S DIR("A")=" Select ACCESSION YEAR"
  1. S DIR("B")=$S(YR=BYR:YR,1:YR-1)
  1. S DIR(0)="N^"_BYR_":"_EYR
  1. D ^DIR Q:$D(DIRUT)
  1. G AN:Y>YR,AN:Y'?1.N S ONCOS("YR")=Y_U_Y
  1. Q