| 1 | NURA6G ;HIRMFO/MD,RM,FT-LICENSE PROFILE BY SERVICE CATEGORY ;8/23/96 09:34
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | S X=$G(^DIC(213.9,1,"OFF")) Q:X=""!(X=1)
|
|---|
| 4 | S (NURPAGE,NURSW1,NURPLSW,NURMDSW,NURQUIT,NURQUEUE,NUROUT)=0,NRNLP=1
|
|---|
| 5 | D EN1^NURSAUTL G QUIT:NUROUT
|
|---|
| 6 | D EN9^NURSAGSP
|
|---|
| 7 | I NURMDSW S DIC(0)="AEMQZ",NURPLSCR=0 D EN5^NURSAGSP K NURPLSCR I $G(NUROUT) G QUIT
|
|---|
| 8 | I NURMDSW=0,NURPLSW=1 S NURPLSCR=0 D PRD^NURSAGSP K NURPLSCR I $G(NUROUT) G QUIT
|
|---|
| 9 | D EN3^NURSAGSP G:NUROUT QUIT
|
|---|
| 10 | D EN7^NURSAGP0 G QUIT:NUROUT
|
|---|
| 11 | W ! D EN10^NURSAGSP G QUIT:NUROUT
|
|---|
| 12 | W ! S ZTDESC="License Profile by Service Category",ZTRTN="START^NURA6G" D EN7^NURSUT0 G:POP!($D(ZTSK)) QUIT
|
|---|
| 13 | START ;
|
|---|
| 14 | K ^TMP($J) U IO
|
|---|
| 15 | D SORT G:NUROUT QUIT D NPRINT
|
|---|
| 16 | QUIT K ^TMP($J) D CLOSE^NURSUT1,^NURAKILL
|
|---|
| 17 | Q
|
|---|
| 18 | NPRINT S NURFAC(2)="" F S NURFAC(2)=$O(^TMP($J,"L",NURFAC(2))) Q:NURFAC(2)="" D NM Q:NURQUIT
|
|---|
| 19 | Q
|
|---|
| 20 | NM S NURPROG(4)="" F S NURPROG(4)=$O(^TMP($J,"L",NURFAC(2),NURPROG(4))) Q:NURPROG(4)=""!NURQUIT D NHDR Q:NURQUIT D NN Q:NURQUIT
|
|---|
| 21 | Q
|
|---|
| 22 | NN S NURCAT="" F S NURCAT=$O(^TMP($J,"L",NURFAC(2),NURPROG(4),NURCAT)) Q:NURCAT="" D BRK,NO Q:NURQUIT
|
|---|
| 23 | Q
|
|---|
| 24 | NO S NLDT="" F S NLDT=$O(^TMP($J,"L",NURFAC(2),NURPROG(4),NURCAT,NLDT)) Q:NLDT="" D NP Q:NURQUIT
|
|---|
| 25 | Q
|
|---|
| 26 | NP S N1="" F S N1=$O(^TMP($J,"L",NURFAC(2),NURPROG(4),NURCAT,NLDT,N1)) Q:N1="" S NURSORT=$G(^(N1)) I NURSORT S D0=$E(NLDT,8),NLDTPR=$E(NLDT,1,7),DA=$O(^TMP($J,"L1",NURSORT,"")) D NPPRINT Q:NURQUIT
|
|---|
| 27 | Q
|
|---|
| 28 | NPPRINT I ($Y>(IOSL-6)) D NHDR Q:NURQUIT
|
|---|
| 29 | W !
|
|---|
| 30 | S:'NURSW1 NURSW1=1
|
|---|
| 31 | W:N1'=" BLANK" ?2,$E(N1,1,20)
|
|---|
| 32 | I $D(^VA(200,+^NURSF(210,DA,0),1)),$P(^(1),"^",9)'="" S NURSSN=$P(^(1),"^",9) W ?28,$E(NURSSN,1,3),"-",$E(NURSSN,4,5),"-",$E(NURSSN,6,9)
|
|---|
| 33 | S Y=NLDTPR D:+Y D^DIQ W:Y'=" BLANK" ?46,Y
|
|---|
| 34 | I D0'="",$D(^NURSF(210,+DA,4,D0,0)),$P(^(0),"^",1)'="",$D(^DIC(5,$P(^NURSF(210,DA,4,D0,0),"^",1),0)),$P(^(0),"^",2)'="" W ?60,$P(^(0),"^",2)
|
|---|
| 35 | I D0'="",$D(^NURSF(210,DA,4,D0,0)),$P(^(0),"^",2)'="" W ?68,$P(^(0),"^",2)
|
|---|
| 36 | Q
|
|---|
| 37 | NHDR I 'NURQUEUE,NURSW1,$E(IOST)="C" D ENDPG^NURSUT1 S:NUROUT NURQUIT=+NUROUT Q:NURQUIT
|
|---|
| 38 | S NURPAGE=NURPAGE+1 W:$E(IOST)="C"!(NURPAGE>1) @IOF
|
|---|
| 39 | I $G(NURMDSW) W !,?$$CNTR^NURSUT2(NURFAC(2)),$S(NURFAC(2)=" BLANK":"NO FACILITY",1:NURFAC(2)),!
|
|---|
| 40 | W !,"LICENSE PROFILE" S X="T" D ^%DT D:+Y D^DIQ W ?56,Y,?72,"PAGE: ",NURPAGE
|
|---|
| 41 | W !!,?46,"EXPIRATION",?60,"STATE",?68,"PROFESSIONAL"
|
|---|
| 42 | W !,?46,"DATE OF",?60,"ISS.",?68,"LICENSE"
|
|---|
| 43 | W !,?2,"NAME",?28,"SSN",?46,"LICENSE",?60,"LIC.",?68,"NUMBER"
|
|---|
| 44 | W !,$$REPEAT^XLFSTR("-",80)
|
|---|
| 45 | D:$G(NURPLSW) BRK1 D BRK
|
|---|
| 46 | Q
|
|---|
| 47 | SORT W ! S NRPT=8 D EN1^NURAAGS0
|
|---|
| 48 | S X=$O(^TMP($J,"")) I X="" S NURPROG(4)=$S($G(NURPROG)=0:NURPROG(1),1:""),NURFAC(2)=$S($G(NURFAC)=0:NURFAC(1),1:"") D NHDR W !,"THERE IS NO DATA FOR THIS REPORT" S NUROUT=1
|
|---|
| 49 | Q
|
|---|
| 50 | BRK Q:$G(NURCAT)="" W !,?10,"SERVICE CATEGORY: " W:NURCAT'=" BLANK" $$CAT^NURSUT2(NURCAT)
|
|---|
| 51 | Q
|
|---|
| 52 | BRK1 I $G(NURPROG(4))'="" W !?$$CNTR^NURSUT2(NURPROG(4)),$S(NURPROG(4)=" NURSING":$E(NURPROG(4),2,99),$G(NURPROG(4))=" BLANK":"NO PRODUCT LINE",1:$G(NURPROG(4))) W !?$$CNTR^NURSUT2(NURPROG(4)),$$REPEAT^XLFSTR("-",$L(NURPROG(4))+1),!
|
|---|
| 53 | Q
|
|---|
