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: PRSEEMP1

Package: PAID

Routine: PRSEEMP1


Information

PRSEEMP1 ;HISC/JH-INDIVIDUAL INSERVICE ATTENDANCE REPORT ;9/17/1998

Source Information

Source file <PRSEEMP1.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; INDIVIDUAL STUDENT TRAINING REPORT
START ;
QUIT ;
Q
NHDR
L
SORT ;
SERV

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !,"THERE IS NO DATA FOR THIS REPORT"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"EMPLOYEE: ",$P($G(^VA(200,PRDA,0)),U)
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"CLASS: ",PRSECLS
  • Condition for execution: $G(PRSECLS)]""
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: START+8
Function Call: WRITE
  • Prompt: ?$S(PRSE132:93,1:47),"Length: ",$S($P(PRDATA,U)>0:$J($P(PRDATA,U),4,2),1:"")
  • Line Location: START+10
Function Call: WRITE
  • Prompt: ?$S(PRSE132:114,1:67),$P(Y,"@"),!
  • Line Location: START+11
Function Call: WRITE
  • Prompt: ?1,"CEUs: ",+$P(PRDATA,U,2),?$S(PRSE132:88,1:42),"Contact HRS: ",$J($P(PRDATA,U,3),4,2)
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",$G(IOM))
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !,?1,"Total Classes: ",PCOUNT,?$S(PRSE132:78,1:35),"Total Length/Hours:",$J(PHRS,7,2)
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !,?4,"Total CEUs:",$J(PHRS("CEU"),6,2),?$S(PRSE132:77,1:34),"Total Contact Hours:",$J(PHRS("CON"),7,2),!
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !
  • Line Location: NHDR+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"!(NPC>1)
  • Line Location: NHDR+2
Function Call: WRITE
  • Prompt: !,"INDIVIDUAL "
  • Line Location: NHDR+2
Function Call: WRITE
  • Prompt: $S(PRSESEL="C":"C.E.",PRSESEL="M":"M.I.",PRSESEL="O":"OTHER",PRSESEL="W":"WARD",1:"COMPLETE")_" 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+11
Function Call: WRITE
  • Prompt: !
  • Line Location: NHDR+13
Function Call: WRITE
  • Prompt: !
  • Line Location: SERV+0
Function Call: WRITE
  • Prompt: "Sponsoring",!?2,"Service: "_$S(PRSELOC=" BLANK":"<Unknown>",1:$S(PRSE132:PRSELOC,1:$E(PRSELOC,1,16)))
  • Line Location: SERV+1
Function Call: WRITE
  • Prompt: ?$S(PRSE132:46,1:28),"Name: ",$S(PRSE132:N1,1:$E(N1,1,20)),?$S(PRSE132:92,1:52),"Title: ",$S(PRSETL=" BLANK":"<Unknown>",+PRSETL=PRSETL:"<Unknown>",1:$S(PRSE132:$E(PRSETL,1,40),1:$E(PRSETL,1,20)))
  • Line Location: SERV+2
Info |  Source |  Entry Points |  Interaction Calls