- NURSEPL1 ;HIRMFO/MD,FT-TRAINING REPORT BY LOCATION/SVC POSITION ;8/19/97
- ;;4.0;NURSING SERVICE;**3,10,13**;Apr 25, 1997
- NPRINT ;
- S NURFAC="" F S NURFAC=$O(^TMP("NURE",$J,"L",NURFAC)) Q:NURFAC="" D NM Q:$G(NUROUT)
- Q
- NM S NURPROG="" F S NURPROG=$O(^TMP("NURE",$J,"L",NURFAC,NURPROG)) Q:NURPROG=""!$G(NUROUT) D NN
- Q
- NN S NURSPEC="" F S NURSPEC=$O(^TMP("NURE",$J,"L",NURFAC,NURPROG,NURSPEC)) Q:NURSPEC=""!$G(NUROUT) D NHDR D NO
- Q
- NO S NIC="" F S NIC=$O(^TMP("NURE",$J,"L",NURFAC,NURPROG,NURSPEC,NIC)) Q:NIC=""!$G(NUROUT) S NURSORT=$G(^(NIC)) D:NURSORT NP Q:$G(NUROUT) D BRK1
- Q
- NP D:$Y>(IOSL-6) NHDR Q:$G(NUROUT) W " "_NIC,!! S (NMHOLD,N1)="",NATTEND=0 F S N1=$O(^TMP("NURE",$J,"L1",NURSORT,N1)) Q:N1=""!$G(NUROUT) D NQ
- Q
- NQ I $Y>(IOSL-6) D NHDR Q:$G(NUROUT) W " "_NIC_" (continued)",!!
- W " "_$E(N1,1,30) S NATTEND=NATTEND+1,NURSEPC(1)="" F S NURSEPC(1)=$O(^TMP("NURE",$J,"L1",NURSORT,N1,NURSEPC(1))) Q:NURSEPC(1)=""!$G(NUROUT) D NR
- Q
- NR W:$G(NURSEL(1))'=2 " "_$$CAT^NURSUT2(NURSEPC(1)) I $G(NURSEL(1))=2 W " "_NURSEPC(1)
- S NCD="",NCD(1)=0 F S NCD=$O(^TMP("NURE",$J,"L1",NURSORT,N1,NURSEPC(1),NCD)) Q:NCD=""!$G(NUROUT) S NLDTPR=$E(NCD,1,7) D NS
- Q
- NS S NDA=0 F S NDA=$O(^TMP("NURE",$J,"L1",NURSORT,N1,NURSEPC(1),NCD,NDA)) Q:NDA=""!$G(NUROUT) S DATA=^(NDA) D NPPRINT
- Q
- NPPRINT ;
- D:NCD(1)&($Y>(IOSL-6)) NHDR W:NLDTPR'=" BLANK" ?35,$E(NLDTPR,4,5)_"/"_$E(NLDTPR,6,7)_"/"_$E(NLDTPR,2,3),?45,$J(+DATA,2,2),?52,$E($P($G(DATA),U,2),1,28),!
- S NCD(1)=1
- Q
- BRK1 ;
- D:$Y>(IOSL-6) NHDR W !,?4,"Total Attendees: ",NATTEND,!!
- Q
- BRK ;
- I NURSEL="C"!(NURSEL="A") D
- .Q:+SHRS("CEU")'>0&(+SHRS("CON")'>0) W ?5,"Location CEUs: ",$J(SHRS("CEU"),4,2)
- .W ?$S(NURS132:93,1:38),"Location Contact Hours: ",$J(SHRS("CON"),4,2) S RHRS("CEU")=(RHRS("CEU")+SHRS("CEU")),RHRS("CON")=(RHRS("CON")+SHRS("CON")),(SHRS("CEU"),SHRS("CON"))=0
- .Q
- Q
- NHDR I '$G(NUROUT),'NURQUEUE,NURSW1,$E(IOST)="C" D ENDPG^NURSUT1 Q:$G(NUROUT)
- S NURPAGE=NURPAGE+1,NURSW1=1
- W:$E(IOST)="C"!(NURPAGE>1) @IOF
- I NURMDSW,$L(NURFAC)>1 W !,?$$CNTR^NURSUT2(NURFAC),$$FACL^NURSUT2(NURFAC)
- I TYP="S" S X="T" D ^%DT D:+Y D^DIQ W ?$X+2,Y
- I $G(NURSEL(1))=2 D
- .W !,$S(NURSEL="M":"MANDATORY ",NURSEL="O":"OTHER ",NURSEL="W":"WARD ",NURSEL="C":"C.E. ",1:"")_"TRAINING REPORT BY SVC. CATEGORY/CLASS FOR "_$S(TYP="C":"CY ",TYP="F":"FY ",1:"")_$S(TYP="C"!(TYP="F"):$G(NYR),1:$G(YRST(1))_"-"_$G(YREND(1)))
- E W !,$S(NURSEL="M":"MANDATORY ",NURSEL="O":"OTHER ",NURSEL="W":"WARD ",NURSEL="C":"C.E. ",1:"")_"TRAINING REPORT BY UNIT/CLASS FOR "_$S(TYP="C":"CY ",TYP="F":"FY ",1:"")_$S(TYP="C"!(TYP="F"):$G(NYR),1:$G(YRST(1))_"-"_$G(YREND(1)))
- I TYP'="S" S X="T" D ^%DT D:+Y D^DIQ W ?55,Y
- W " Page: ",NURPAGE
- W !,?35,"Date",?45,"Class",!,"Class/Employee",?35,"Attended",?45,"Hours",?52,"Presenter"
- W !,$$REPEAT^XLFSTR("-",$S(NURS132:132,1:80)),!
- I $G(NURPLSW),$L(NURPROG)>1 N Z S Z=$$PROD^NURSUT2(NURPROG) W !?$$CNTR^NURSUT2(NURPROG),$G(Z),!,?$$CNTR^NURSUT2(NURPROG),$$REPEAT^XLFSTR("-",$L(Z)+1)
- Q:$G(NUROUT)
- W !
- I NURSPEC'="" W $S($G(NURSEL(1))'=2:"Unit: ",1:"Service Category: ")_NURSPEC,!!
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURSEPL1 3118 printed Apr 23, 2025@18:36:42 Page 2
- NURSEPL1 ;HIRMFO/MD,FT-TRAINING REPORT BY LOCATION/SVC POSITION ;8/19/97
- +1 ;;4.0;NURSING SERVICE;**3,10,13**;Apr 25, 1997
- NPRINT ;
- +1 SET NURFAC=""
- FOR
- SET NURFAC=$ORDER(^TMP("NURE",$JOB,"L",NURFAC))
- if NURFAC=""
- QUIT
- DO NM
- if $GET(NUROUT)
- QUIT
- +2 QUIT
- NM SET NURPROG=""
- FOR
- SET NURPROG=$ORDER(^TMP("NURE",$JOB,"L",NURFAC,NURPROG))
- if NURPROG=""!$GET(NUROUT)
- QUIT
- DO NN
- +1 QUIT
- NN SET NURSPEC=""
- FOR
- SET NURSPEC=$ORDER(^TMP("NURE",$JOB,"L",NURFAC,NURPROG,NURSPEC))
- if NURSPEC=""!$GET(NUROUT)
- QUIT
- DO NHDR
- DO NO
- +1 QUIT
- NO SET NIC=""
- FOR
- SET NIC=$ORDER(^TMP("NURE",$JOB,"L",NURFAC,NURPROG,NURSPEC,NIC))
- if NIC=""!$GET(NUROUT)
- QUIT
- SET NURSORT=$GET(^(NIC))
- if NURSORT
- DO NP
- if $GET(NUROUT)
- QUIT
- DO BRK1
- +1 QUIT
- NP if $Y>(IOSL-6)
- DO NHDR
- if $GET(NUROUT)
- QUIT
- WRITE " "_NIC,!!
- SET (NMHOLD,N1)=""
- SET NATTEND=0
- FOR
- SET N1=$ORDER(^TMP("NURE",$JOB,"L1",NURSORT,N1))
- if N1=""!$GET(NUROUT)
- QUIT
- DO NQ
- +1 QUIT
- NQ IF $Y>(IOSL-6)
- DO NHDR
- if $GET(NUROUT)
- QUIT
- WRITE " "_NIC_" (continued)",!!
- +1 WRITE " "_$EXTRACT(N1,1,30)
- SET NATTEND=NATTEND+1
- SET NURSEPC(1)=""
- FOR
- SET NURSEPC(1)=$ORDER(^TMP("NURE",$JOB,"L1",NURSORT,N1,NURSEPC(1)))
- if NURSEPC(1)=""!$GET(NUROUT)
- QUIT
- DO NR
- +2 QUIT
- NR if $GET(NURSEL(1))'=2
- WRITE " "_$$CAT^NURSUT2(NURSEPC(1))
- IF $GET(NURSEL(1))=2
- WRITE " "_NURSEPC(1)
- +1 SET NCD=""
- SET NCD(1)=0
- FOR
- SET NCD=$ORDER(^TMP("NURE",$JOB,"L1",NURSORT,N1,NURSEPC(1),NCD))
- if NCD=""!$GET(NUROUT)
- QUIT
- SET NLDTPR=$EXTRACT(NCD,1,7)
- DO NS
- +2 QUIT
- NS SET NDA=0
- FOR
- SET NDA=$ORDER(^TMP("NURE",$JOB,"L1",NURSORT,N1,NURSEPC(1),NCD,NDA))
- if NDA=""!$GET(NUROUT)
- QUIT
- SET DATA=^(NDA)
- DO NPPRINT
- +1 QUIT
- NPPRINT ;
- +1 if NCD(1)&($Y>(IOSL-6))
- DO NHDR
- if NLDTPR'=" BLANK"
- WRITE ?35,$EXTRACT(NLDTPR,4,5)_"/"_$EXTRACT(NLDTPR,6,7)_"/"_$EXTRACT(NLDTPR,2,3),?45,$JUSTIFY(+DATA,2,2),?52,$EXTRACT($PIECE($GET(DATA),U,2),1,28),!
- +2 SET NCD(1)=1
- +3 QUIT
- BRK1 ;
- +1 if $Y>(IOSL-6)
- DO NHDR
- WRITE !,?4,"Total Attendees: ",NATTEND,!!
- +2 QUIT
- BRK ;
- +1 IF NURSEL="C"!(NURSEL="A")
- Begin DoDot:1
- +2 if +SHRS("CEU")'>0&(+SHRS("CON")'>0)
- QUIT
- WRITE ?5,"Location CEUs: ",$JUSTIFY(SHRS("CEU"),4,2)
- +3 WRITE ?$SELECT(NURS132:93,1:38),"Location Contact Hours: ",$JUSTIFY(SHRS("CON"),4,2)
- SET RHRS("CEU")=(RHRS("CEU")+SHRS("CEU"))
- SET RHRS("CON")=(RHRS("CON")+SHRS("CON"))
- SET (SHRS("CEU"),SHRS("CON"))=0
- +4 QUIT
- End DoDot:1
- +5 QUIT
- NHDR IF '$GET(NUROUT)
- IF 'NURQUEUE
- IF NURSW1
- IF $EXTRACT(IOST)="C"
- DO ENDPG^NURSUT1
- if $GET(NUROUT)
- QUIT
- +1 SET NURPAGE=NURPAGE+1
- SET NURSW1=1
- +2 if $EXTRACT(IOST)="C"!(NURPAGE>1)
- WRITE @IOF
- +3 IF NURMDSW
- IF $LENGTH(NURFAC)>1
- WRITE !,?$$CNTR^NURSUT2(NURFAC),$$FACL^NURSUT2(NURFAC)
- +4 IF TYP="S"
- SET X="T"
- DO ^%DT
- if +Y
- DO D^DIQ
- WRITE ?$X+2,Y
- +5 IF $GET(NURSEL(1))=2
- Begin DoDot:1
- +6 WRITE !,$SELECT(NURSEL="M":"MANDATORY ",NURSEL="O":"OTHER ",NURSEL="W":"WARD ",NURSEL="C":"C.E. ",1:"")_"TRAINING REPORT BY SVC. CATEGORY/CLASS FOR "_$SELECT(TYP="C":"CY ",TYP="F":"FY ",1:"")_...
- ... $SELECT(TYP="C"!(TYP="F"):$GET(NYR),1:$GET(YRST(1))_"-"_$GET(YREND(1)))
- End DoDot:1
- +7 IF '$TEST
- WRITE !,$SELECT(NURSEL="M":"MANDATORY ",NURSEL="O":"OTHER ",NURSEL="W":"WARD ",NURSEL="C":"C.E. ",1:"")_"TRAINING REPORT BY UNIT/CLASS FOR "_$SELECT(TYP="C":"CY ",TYP="F":"FY ",1:"")_$SELECT(TYP="C"!(TYP="F"):$GET(NYR),1:$GET(YRST(1))_"-"_..
- .
- ... $GET(YREND(1)))
- +8 IF TYP'="S"
- SET X="T"
- DO ^%DT
- if +Y
- DO D^DIQ
- WRITE ?55,Y
- +9 WRITE " Page: ",NURPAGE
- +10 WRITE !,?35,"Date",?45,"Class",!,"Class/Employee",?35,"Attended",?45,"Hours",?52,"Presenter"
- +11 WRITE !,$$REPEAT^XLFSTR("-",$SELECT(NURS132:132,1:80)),!
- +12 IF $GET(NURPLSW)
- IF $LENGTH(NURPROG)>1
- NEW Z
- SET Z=$$PROD^NURSUT2(NURPROG)
- WRITE !?$$CNTR^NURSUT2(NURPROG),$GET(Z),!,?$$CNTR^NURSUT2(NURPROG),$$REPEAT^XLFSTR("-",$LENGTH(Z)+1)
- +13 if $GET(NUROUT)
- QUIT
- +14 WRITE !
- +15 IF NURSPEC'=""
- WRITE $SELECT($GET(NURSEL(1))'=2:"Unit: ",1:"Service Category: ")_NURSPEC,!!
- +16 QUIT
