Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PRSEEMP

Package: PAID

Routine: PRSEEMP


Information

PRSEEMP ;HISC/JH-ATTENDANCE RPT BY SERVICE ;9/17/1998

Source Information

Source file <PRSEEMP.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;TRAINING REPORT
AR
START ;
Q ;
BRK1 ;
BRK ;
NHDR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: AR+1
Function Call: WRITE
  • Prompt: !,"THERE IS NO DATA FOR THIS REPORT"
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"SERVICE: ",PSPC
  • Condition for execution: $G(PSPC)]""
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"CLASS: ",PRSECLS
  • Condition for execution: $G(PRSECLS)]""
  • Line Location: START+5
Function Call: WRITE
  • Prompt: "Service: "_$S(PRSELOC=" BLNK":"",1:PRSELOC),!
  • Line Location: START+13
Function Call: WRITE
  • Prompt: ?$S(PRSE132:90,1:54),"Length: ",$S($P(PRDATA,U)>0:$J($P(PRDATA,U),4,2),1:"")
  • Line Location: START+14
Function Call: WRITE
  • Prompt: ?$S(PRSE132:60,1:35),$S(PRSETL=" BLNK":"",1:$S(PRSE132:PRSETL,1:$E(PRSETL,1,29)))
  • Line Location: START+16
Function Call: WRITE
  • Prompt: ?$S(PRSE132:106,1:67),$P(Y,"@"),!
  • Line Location: START+17
Function Call: WRITE
  • Prompt: ?5,"CEUs: ",+$P(PRDATA,U,2),?$S(PRSE132:88,1:49),"Contact HRS: ",$J($P(PRDATA,U,3),4,2),!
  • Line Location: START+18
Function Call: WRITE
  • Prompt: !!,?2,"Report Classes: ",RCNT,?$S(PRSE132:96,1:41),"Report Length Hours: ",$J(RHRS,4,2),!
  • Line Location: START+25
Function Call: WRITE
  • Prompt: ?5,"Report CEUs: ",$J(RHRS("CEU"),4,2),?$S(PRSE132:95,1:40),"Report Contact Hours: ",$J(RHRS("CON"),4,2)
  • Line Location: START+26
Function Call: WRITE
  • Prompt: ?3,"Total Attendees: ",PCNT,?$S(PRSE132:95,1:42),"Total Length Hours: ",$J(PHRS,4,2),!
  • Line Location: BRK1+2
Function Call: WRITE
  • Prompt: !,?1,"Service Attendees: ",SCNT,?$S(PRSE132:95,1:40),"Service Length Hours: ",$J(SHRS,4,2),!
  • Line Location: BRK+1
Function Call: WRITE
  • Prompt: ?4,"Service CEUs: ",$J(SHRS("CEU"),4,2),?$S(PRSE132:94,1:39),"Service Contact Hours: ",$J(SHRS("CON"),4,2)
  • Line Location: BRK+2
Function Call: WRITE
  • Prompt: !,$S(PRSESEL="C":"C.E.",PRSESEL="M":"M.I.",PRSESEL="O":"OTHER",PRSESEL="W":"WARD",1:"COMPLETE")_" SERVICE TRAINING REPORT FOR "_$S(TYP="C":"CY ",TYP="F":"FY ",1:" ")_$S(TYP="C"!(TYP="F"):$G(PYR),1:$G(YRST(1))_" - "_$G(YREND(1)))
  • Line Location: NHDR+3
Function Call: WRITE
  • Prompt: !,NI
  • Line Location: NHDR+13
Function Call: WRITE
  • Prompt: !
  • Line Location: NHDR+15
Info |  Source |  Entry Points |  Interaction Calls