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

Package: PAID

Routine: PRSEEMP4


Information

PRSEEMP4 ;WIRMFO/JAH-STUDENT TRAINING REPORT BY SERVICE ;7/2/97

Source Information

Source file <PRSEEMP4.m>

Entry Points

Name Comments DBIA/ICR reference
SORT(PRDA) ;
HWLIST ;build list of classes that are hospital wide
HASHLIST ;Reverse array list 4 faster hashing in sort routine.
; i.e. change HWIDE(3)="DIVERSITY IN WP"... HWIDE("DIVERSITY IN WP")=3
SORT1(PRSE) ;Loop thru training data in AA x-ref & sort in2 ^TMP
OUTPUT(PRDA,POUT,JOBCODE,EMPNAME) ;
NHDR(JOBCODE,POUT) ;
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO DATA FOR EMPLOYEE: ",EMPNAME
  • Line Location: OUTPUT+7
Function Call: WRITE
  • Prompt: !,$S(PRSE132:NIC,1:$E(NIC,1,25))
  • Line Location: OUTPUT+29
Function Call: WRITE
  • Prompt: ?$S(PRSE132:93,1:47),"Length: "
  • Line Location: OUTPUT+31
Function Call: WRITE
  • Prompt: $S($P(PRDATA,U)>0:$J($P(PRDATA,U),4,2),1:"")
  • Line Location: OUTPUT+32
Function Call: WRITE
  • Prompt: ?$S(PRSE132:114,1:67),$P(Y,"@"),!
  • Line Location: OUTPUT+34
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: OUTPUT+35
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",$G(IOM))
  • Line Location: OUTPUT+40
Function Call: WRITE
  • Prompt: !,?1,"Total Classes: ",PCOUNT,?$S(PRSE132:78,1:35)
  • Line Location: OUTPUT+43
Function Call: WRITE
  • Prompt: "Total Length/Hours:",$J(PHRS,7,2)
  • Line Location: OUTPUT+44
Function Call: WRITE
  • Prompt: !,?4,"Total CEUs:",$J(PHRS("CEU"),6,2),?$S(PRSE132:77,1:34)
  • Line Location: OUTPUT+49
Function Call: WRITE
  • Prompt: "Total Contact Hours:",$J(PHRS("CON"),7,2)
  • Line Location: OUTPUT+50
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",$G(IOM))
  • Line Location: OUTPUT+52
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NHDR+8
Function Call: WRITE
  • Prompt: $S(Z="L":"ALL BUT MANDATORY",Z="H":"ALL BUT HOSPITAL WIDE MANDATORY",Z="C":"C.E.",Z="M":"M.I.",Z="O":"OTHER",Z="W":"WARD",1:"COMPLETE")
  • Line Location: NHDR+10
Function Call: WRITE
  • Prompt: " TRAINING REPORT FOR "
  • Line Location: NHDR+11
Function Call: WRITE
  • Prompt: $S(TYP="C":"CY ",TYP="F":"FY ",1:" ")
  • Line Location: NHDR+12
Function Call: WRITE
  • Prompt: $S(TYP="C"!(TYP="F"):$G(PYR),1:$G(YRST(1))_" - "_$G(YREND(1)))
  • Line Location: NHDR+13
Function Call: WRITE
  • Prompt: ?PTAB,"PAGE: ",NPC
  • Line Location: NHDR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: NHDR+15
Function Call: WRITE
  • Prompt: "Service: ",$S(PRSE132:SERVICE,1:$E(SERVICE,1,16))
  • Line Location: NHDR+16
Function Call: WRITE
  • Prompt: " Cost Ctr./Org.: ",$E(CCORG,1,4),":",$E(CCORG,5,8)
  • Line Location: NHDR+17
Function Call: WRITE
  • Prompt: ?(IOM-13),Y
  • Line Location: NHDR+18
Function Call: WRITE
  • Prompt: !,"Name: ",$S(PRSE132:EMPNAME,1:$E(EMPNAME,1,20))
  • Line Location: NHDR+21
Function Call: WRITE
  • Prompt: " Title: "
  • Line Location: NHDR+22
Function Call: WRITE
  • Prompt: $S(PRSETL="":"<Unknown>",1:$S(PRSE132:$E(PRSETL,1,40),1:$E(PRSETL,1,20)))
  • Line Location: NHDR+25
Function Call: WRITE
  • Prompt: !,NI
  • Line Location: NHDR+31
Info |  Source |  Entry Points |  Interaction Calls