source: FOIAVistA/trunk/r/AUTHORIZATION_SUBSCRIPTION-USR/USRPROV.m@ 1314

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

initial load of FOIAVistA 6/30/08 version

File size: 673 bytes
Line 
1USRPROV ; SLC/DJP - Auto-populate PROVIDER CLASS ;05/05/98
2 ;;1.0;AUTHORIZATION/SUBSCRIPTION;**7**;Jun 20, 1997
3MAIN ; Main loop
4 N USRDFN,USRNOW
5 S USRDFN=0
6 I +$G(^USR(8930.3,"USRPROV")) D Q
7 . W !!,"This option has already been run...Aborting option.",!
8 W !!,"Initializing the PROVIDER Class"
9 F S USRDFN=$O(^XUSEC("PROVIDER",USRDFN)) Q:+USRDFN'>0 D
10 . S USRNOW=$$NOW^XLFDT
11 . ; Exclude terminated users
12 . I +$P($G(^VA(200,USRDFN,0)),U,11)>0,(+$P($G(^(0)),U,11)<USRNOW) Q
13 . S USRNM=$P($G(^VA(200,USRDFN,0)),U)
14 . ; Exclude users w/o names or "ZZ" users
15 . I (USRNM']"")!($E(USRNM,1,2)="ZZ") Q
16 . D PUT^USRLM(USRDFN,"PROVIDER") W "."
17 S ^USR(8930.3,"USRPROV")=1
18 Q
Note: See TracBrowser for help on using the repository browser.