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

Package: Nursing Service

Routine: NURAGE


Information

NURAGE ;HIRMFO/RM/MD,FT-PRINT MODULE FOR AGE PROFILE REPORT ;2/27/98 14:21

Source Information

Source file <NURAGE.m>

Entry Points

Name Comments DBIA/ICR reference
BGNCALC ;
SUB ;
NURSBYP ;
WRTCAT ;
WRTWARD ;
PSUBTL ; PRODUCT LINE SUBTOTALS
FSUBTL ; FACILITY SUBTOTALS
HDGING ; HEADINGS
HDGBYP ;
FINCAT ; SELECT SVC CATEGORY
PRTOT
ENDPG ; HANDLE EOP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(NURN1,1,20),?NHIT,"X"
  • Line Location: NURSBYP+2
Function Call: WRITE
  • Prompt: !!,?(17-$L(X)),X,?18,"SUB-TOTAL:"
  • Line Location: PSUBTL+1
Function Call: WRITE
  • Prompt: ?(33-$L(NURSPOLD(8))),NURSPOLD(8),?(39-$L(NURSPOLD(1))),NURSPOLD(1),?(45-$L(NURSPOLD(2))),NURSPOLD(2),?(51-$L(NURSPOLD(3))),NURSPOLD(3),?(57-$L(NURSPOLD(4))),NURSPOLD(4),?(63-$L(NURSPOLD(5))),NURSPOLD(5)
  • Line Location: PSUBTL+2
Function Call: WRITE
  • Prompt: ?(69-$L(NURSPOLD(6))),NURSPOLD(6),?(75-$L(NURSPOLD(7))),NURSPOLD(7)
  • Line Location: PSUBTL+3
Function Call: WRITE
  • Prompt: !!,?(17-$L(NURFAC)),$E($$FACL^NURSUT2(NURFAC),1,16),?18,"SUB-TOTAL:"
  • Line Location: FSUBTL+1
Function Call: WRITE
  • Prompt: ?(33-$L(NURSMOLD(8))),NURSMOLD(8),?(39-$L(NURSMOLD(1))),NURSMOLD(1),?(45-$L(NURSMOLD(2))),NURSMOLD(2),?(51-$L(NURSMOLD(3))),NURSMOLD(3),?(57-$L(NURSMOLD(4))),NURSMOLD(4),?(63-$L(NURSMOLD(5))),NURSMOLD(5)
  • Line Location: FSUBTL+2
Function Call: WRITE
  • Prompt: ?(69-$L(NURSMOLD(6))),NURSMOLD(6),?(75-$L(NURSMOLD(7))),NURSMOLD(7)
  • Line Location: FSUBTL+3
Function Call: WRITE
  • Prompt: !?$$CNTR^NURSUT2(NURFAC),$$FACL^NURSUT2(NURFAC)
  • Line Location: HDGING+4
Function Call: WRITE
  • Prompt: !,"NURSING SERVICE AGE PROFILE BY "
  • Line Location: HDGING+5
Function Call: WRITE
  • Prompt: $S(NSEL["W":"LOCATION/SVC ",1:"SERVICE "),$S(NSEL["C":"CATEGORY",NSEL["S":"POSITION",1:"")
  • Line Location: HDGING+5
Function Call: WRITE
  • Prompt: $S(NSEL["W":"LOCATION/SVC ",1:"SERVICE "),$S(NSEL["C":"CATEGORY",NSEL["S":"POSITION",1:"")
  • Line Location: HDGING+5
Function Call: WRITE
  • Prompt: !!,"NAME",?29,"NO DOB",?36,"18-20",?42,"21-29",?48,"30-39",?54,"40-49",?60,"50-59",?66,"60-69",?73,"70+"
  • Line Location: HDGING+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDGING+7
Function Call: WRITE
  • Prompt: !,?$$CNTR^NURSUT2(Z),$G(Z),!,?$$CNTR^NURSUT2(Z),$$REPEAT^XLFSTR("-",$L(Z)+1)
  • Line Location: HDGING+8
Function Call: WRITE
  • Prompt: !!,?20,"SERVICE "
  • Line Location: HDGBYP+2
Function Call: WRITE
  • Prompt: "CATEGORY: ",$$CAT^NURSUT2(NCATPOS)
  • Condition for execution: (NSEL["C")
  • Line Location: HDGBYP+2
Function Call: WRITE
  • Prompt: "POSITION: ",NCATPOS
  • Condition for execution: (NSEL["S")
  • Line Location: HDGBYP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDGBYP+2
Function Call: WRITE
  • Prompt: !!!,?4,"ASSIGNMENTS FINAL TOTAL:"
  • Line Location: FINCAT+1
Function Call: WRITE
  • Prompt: !!,?6,"PERSONNEL FINAL TOTAL:"
  • Line Location: FINCAT+4
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to continue "
  • Line Location: FINCAT+5
Function Call: WRITE
  • Prompt: ?(33-$L(NURSFOLD(8))),NURSFOLD(8),?(39-$L(NURSFOLD(1))),NURSFOLD(1),?(45-$L(NURSFOLD(2))),NURSFOLD(2),?(51-$L(NURSFOLD(3))),NURSFOLD(3),?(57-$L(NURSFOLD(4))),NURSFOLD(4)
  • Line Location: PRTOT+0
Function Call: WRITE
  • Prompt: ?(63-$L(NURSFOLD(5))),NURSFOLD(5),?(69-$L(NURSFOLD(6))),NURSFOLD(6),?(75-$L(NURSFOLD(7))),NURSFOLD(7)
  • Line Location: PRTOT+1
Function Call: READ
  • Variable: NX
  • Timeout: DTIME
  • Line Location: ENDPG+2
Info |  Source |  Entry Points |  Interaction Calls