source: FOIAVistA/trunk/r/INTERIM_MANAGEMENT_SUPPORT-ECT/ECTFCPO.m@ 1328

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

initial load of FOIAVistA 6/30/08 version

File size: 806 bytes
Line 
1ECTFCPO ;B'ham ISC/PTD-Fund Control Point Officials ;01/29/91 08:00
2V ;;1.05;INTERIM MANAGEMENT SUPPORT;**15**;
3 I '$D(^PRC(420)) W *7,!!?29,"OPTION IS UNAVAILABLE!",!,"The 'Fund Control Point' File - #420 is not loaded on your system.",!! S XQUIT="" Q
4 I '$O(^PRC(420,0)) W *7,!!,"'Fund Control Point' File - #420 has not been populated on your system.",!! S XQUIT="" Q
5 S CNT=0 F J=0:0 S J=$O(^PRC(420,J)) Q:'J S CNT=CNT+1
6DIC I CNT>1 W !! S DIC="^PRC(420,",DIC(0)="QEANM",DIC("A")="Select STATION number: " D ^DIC G:Y<0 EXIT S STNUM=+Y
7 I CNT=1 S STNUM=$O(^PRC(420,0))
8DIP S DIC="^PRC(420,",BY=".01,1,.01,1,6,@1",(FR,TO)=STNUM_",,"_1,FLDS="1,.01,.5;C25,6,.01;C50;""CONTROL POINT OFFICIAL""",L=0
9 S DHD="FUND CONTROL POINT OFFICIAL LIST" D EN1^DIP
10EXIT K B,BY,CNT,DHD,DIC,FLDS,FR,J,L,STNUM,TO,X,Y
11 Q
12 ;
Note: See TracBrowser for help on using the repository browser.