Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$REPEAT^XLFSTR  
Nursing Service 1 ($$CAT,$$CNTR,$$FACL,$$PROD)^NURSUT2  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Nursing Service 4 NURA6B1  NURA6B2  NURA9B1  NURA9B2  

Entry Points

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

External References

Name Field # of Occurrence
$$CAT^NURSUT2 HDGBYP+2
$$CNTR^NURSUT2 HDGING+4, HDGING+8
$$FACL^NURSUT2 FSUBTL+1, HDGING+4
$$PROD^NURSUT2 PSUBTL+1, HDGING+8
$$REPEAT^XLFSTR HDGING+7, HDGING+8

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
  • Timeout: DTIME
  • Variable: NX
  • Line Location: ENDPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDGING+5
^TMP("NURA" SUB+3*, SUB+4*, SUB+5*, SUB+6*, FINCAT+2
^TMP($J SUB+3, SUB+4, SUB+5, SUB+6, HDGING+9

Label References

Name Line Occurrences
ENDPG HDGING+1
HDGBYP NURAGE+3
HDGING NURAGE+3, NURSBYP+1, HDGBYP+1
NURSBYP BGNCALC+1, BGNCALC+2, BGNCALC+3, BGNCALC+4, BGNCALC+5, BGNCALC+6, BGNCALC+7, BGNCALC+8
PRTOT FINCAT+3, FINCAT+4
SUB BGNCALC+1, BGNCALC+2, BGNCALC+3, BGNCALC+4, BGNCALC+5, BGNCALC+6, BGNCALC+7, BGNCALC+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AN SUB+2, SUB+5, SUB+6
>> DA SUB+3, SUB+4, SUB+5, SUB+6
DT NURAGE+2, HDGING+5
DTIME FINCAT+5, ENDPG+2
>> I WRTCAT+3*, WRTWARD+3*, PSUBTL+4*, FSUBTL+4*
IOF HDGING+3
IOSL NURAGE+3, NURSBYP+1, HDGBYP+1
IOST HDGING+1, HDGING+3, FINCAT+5, ENDPG+1
>> NCATPOS SUB+4, SUB+5, SUB+6, HDGBYP+2
>> NHIT BGNCALC+1*, BGNCALC+2*, BGNCALC+3*, BGNCALC+4*, BGNCALC+5*, BGNCALC+6*, BGNCALC+7*, BGNCALC+8*, NURSBYP+2
>> NPRI SUB+6
>> NSEL SUB+2, SUB+3, HDGING+5, HDGING+9, HDGBYP+2
>> NURDOB NURAGE+2, SUB+4, SUB+5, SUB+6
>> NURFAC SUB+5, SUB+6, FSUBTL+1, HDGING+4, HDGING+9
>> NURMDSW HDGING+4
>> NURN1 SUB+3, SUB+4, SUB+5, SUB+6, NURSBYP+2
>> NURNL1 HDGING+9
>> NUROUT ENDPG+2*
>> NURPAGE HDGING+3*, HDGING+5
>> NURPLSW HDGING+8
>> NURQUEUE HDGING+1
>> NURQUIT NURAGE+3, NURSBYP+1, HDGING+1, HDGBYP+1, FINCAT+5, ENDPG+1, ENDPG+2*
>> NURSCAT HDGBYP+2*
>> NURSFOLD( WRTWARD+3*, FINCAT+2*, FINCAT+3*
>> NURSFOLD(1 PRTOT
>> NURSFOLD(2 PRTOT
>> NURSFOLD(3 PRTOT
>> NURSFOLD(4 PRTOT
>> NURSFOLD(5 PRTOT+1
>> NURSFOLD(6 PRTOT+1
>> NURSFOLD(7 PRTOT+1
>> NURSFOLD(8 PRTOT
>> NURSI BGNCALC+1*, BGNCALC+2*, BGNCALC+3*, BGNCALC+4*, BGNCALC+5*, BGNCALC+6*, BGNCALC+7*, BGNCALC+8*, SUB+1, SUB+3
, SUB+4, SUB+5, SUB+6
>> NURSMOLD( WRTCAT+3*, FSUBTL+4*
>> NURSMOLD(1 FSUBTL+2
>> NURSMOLD(2 FSUBTL+2
>> NURSMOLD(3 FSUBTL+2
>> NURSMOLD(4 FSUBTL+2
>> NURSMOLD(5 FSUBTL+2
>> NURSMOLD(6 FSUBTL+3
>> NURSMOLD(7 FSUBTL+3
>> NURSMOLD(8 FSUBTL+2
>> NURSOLD( SUB+1*, WRTCAT+3*
>> NURSOLD(1 WRTCAT+1
>> NURSOLD(2 WRTCAT+1
>> NURSOLD(3 WRTCAT+1
>> NURSOLD(4 WRTCAT+1
>> NURSOLD(5 WRTCAT+1
>> NURSOLD(6 WRTCAT+2
>> NURSOLD(7 WRTCAT+2
>> NURSOLD(8 WRTCAT+1
>> NURSORT(1 SUB+2*, SUB+3, SUB+4, SUB+5*, SUB+6*
>> NURSPOLD( WRTCAT+3*, PSUBTL+4*
>> NURSPOLD(1 PSUBTL+2
>> NURSPOLD(2 PSUBTL+2
>> NURSPOLD(3 PSUBTL+2
>> NURSPOLD(4 PSUBTL+2
>> NURSPOLD(5 PSUBTL+2
>> NURSPOLD(6 PSUBTL+3
>> NURSPOLD(7 PSUBTL+3
>> NURSPOLD(8 PSUBTL+2
>> NURSPROG SUB+5, SUB+6, PSUBTL+1, HDGING+8, HDGING+9
>> NURSUMSW NURSBYP+1, WRTCAT+1, WRTCAT+2, WRTWARD+1, WRTWARD+2, HDGING+4, HDGING+8, HDGBYP+1
>> NURSW1 NURAGE+3, HDGING+1, HDGING+2*
>> NURSW1(1 HDGING+7*
>> NURSWOLD( WRTCAT+3*, WRTWARD+3*, FINCAT+2*, FINCAT+3
>> NURSWOLD(1 WRTWARD+1
>> NURSWOLD(2 WRTWARD+1
>> NURSWOLD(3 WRTWARD+1
>> NURSWOLD(4 WRTWARD+1
>> NURSWOLD(5 WRTWARD+1
>> NURSWOLD(6 WRTWARD+2
>> NURSWOLD(7 WRTWARD+2
>> NURSWOLD(8 WRTWARD+1
>> NX ENDPG+2*
>> X SUB+3*, SUB+4*, SUB+5*, SUB+6*, PSUBTL+1*, FINCAT+2*, FINCAT+3*, FINCAT+5*
>> XAGE NURAGE+2*, BGNCALC+1, BGNCALC+2, BGNCALC+3, BGNCALC+4, BGNCALC+5, BGNCALC+6, BGNCALC+7, BGNCALC+8
>> Y SUB+3*, SUB+5*, HDGING+5*, FINCAT+2*
Z HDGING+8~*, FINCAT+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All