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

Package: Nursing Service

Routine: NURSEPD3


Information

NURSEPD3 ;HIRMFO/MD-INCOMPLETE NURS M I REPORT (BY CLASS) PART 1 OF 2 ;8/19/97

Source Information

Source file <NURSEPD3.m>

Entry Points

Name Comments DBIA/ICR reference
HDR ; PRINT REPORT HEADER
PROD
SUBHDR ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO DEFICIENCIES FOUND FOR THIS TIME PERIOD."
  • Line Location: NURSEPD3+4
Function Call: WRITE
  • Prompt: !,"Unit : "_$S($G(NPWARD)="":" ",1:NPWARD),!!,"NO GROUPS/CLASSES ARE ASSIGNED TO NURSING PERSONNEL",!
  • Line Location: NURSEPD3+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NURSEPD3+11
Function Call: WRITE
  • Prompt: !
  • Line Location: NURSEPD3+15
Function Call: WRITE
  • Prompt: !
  • Line Location: NURSEPD3+17
Function Call: WRITE
  • Prompt: !?$$CNTR^NURSUT2(NURFAC),$$FACL^NURSUT2(NURFAC)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"MANDATORY DEFICIENCY REPORT BY "_$S($G(NURSEL(1))=2:"SVC. CATEGORY",1:"UNIT")_" FOR "_$S(TYP="C":"CY ",TYP="F":"FY ",1:" ")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: $S(TYP="C"!(TYP="F"):$G(NYR),1:$G(YRST(1))_" - "_$G(YREND(1)))
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?$S(NURS132:101,1:58)," ",$$FMTE^XLFDT(DT,2),?$S(NURS132:121,1:71),"PAGE: ",COUNT
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,?$S(NURS132:50,1:35),"ANNIVERSARY"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"EMPLOYEE NAME",?$S(NURS132:50,1:35),"DATE",?$S(NURS132:79,1:47),"CLASS"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("_",$S(NURS132:132,1:80))
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?$$CNTR^NURSUT2(Z),Z,!,?$$CNTR^NURSUT2(NURPROG),$$REPEAT^XLFSTR("-",$L(Z)+1)
  • Line Location: PROD+0
Function Call: WRITE
  • Prompt: !,$S($G(NURSEL(1))=2:"Service Category: ",1:"Unit: ")_$S(NURSPEC=" BLANK":" ",1:NURSPEC)
  • Line Location: SUBHDR+2
Function Call: WRITE
  • Prompt: ?40,"% Compliance: ",$J(COMPLIAN,3,0)
  • Line Location: SUBHDR+5
Function Call: WRITE
  • Prompt: ?$X+3,NSPC
  • Line Location: SUBHDR+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUBHDR+6
Info |  Source |  Entry Points |  Interaction Calls