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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ANSQPP1

Package: Nursing Acuity

Routine: ANSQPP1


Information

ANSQPP1 ;IHS/OIRM/DSD/CSC - PRINT PATIENT ACUITY REPORT; [ 02/25/98 10:32 AM ]

Source Information

Source file <ANSQPP1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Nursing Acuity 2 PAUSE^ANSDIC  HEAD^ANSEAV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Nursing Acuity 1 ANSQPP  

Entry Points

Name Comments DBIA/ICR reference
DISP
S19
SBW
AREA
S11
HEAD
3 ;;1^DAY;;2^EVENING;;3^NIGHT
A1
CARH
A2
2 ;;1^DAY;;2^NIGHT
SUBH9
SUBH

External References

Name Field # of Occurrence
PAUSE^ANSDIC A2+2, A2+18
HEAD^ANSEAV HEAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(X,",",1),", ",$P(X,",",2,99)
  • Line Location: A1+4
Function Call: WRITE
  • Prompt: " (",X,")"
  • Line Location: A1+5
Function Call: WRITE
  • Prompt: !!,"Adj. Factors: "
  • Line Location: A2+3
Function Call: WRITE
  • Prompt: !,?14
  • Condition for execution: $X+L>74
  • Line Location: A2+6
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: I>1
  • Line Location: A2+6
Function Call: WRITE
  • Prompt: @ANSRVON
  • Condition for execution: IOST["C-"
  • Line Location: A2+6
Function Call: WRITE
  • Prompt: @ANSSPAC,X,@ANSSPAC
  • Line Location: A2+6
Function Call: WRITE
  • Prompt: @ANSRVOF
  • Condition for execution: IOST["C-"
  • Line Location: A2+6
Function Call: WRITE
  • Prompt: !,"Total Weight: "
  • Line Location: A2+9
Function Call: WRITE
  • Prompt: T
  • Line Location: A2+10
Function Call: WRITE
  • Prompt: @ANSRVON
  • Condition for execution: IOST["C-"
  • Line Location: A2+11
Function Call: WRITE
  • Prompt: " ",T,@ANSSPAC
  • Line Location: A2+11
Function Call: WRITE
  • Prompt: @ANSRVOF
  • Condition for execution: IOST["C-"
  • Line Location: A2+11
Function Call: WRITE
  • Prompt: ?25,"Nursing Care Level: "
  • Line Location: A2+12
Function Call: WRITE
  • Prompt: L," - ",X
  • Line Location: A2+13
Function Call: WRITE
  • Prompt: !
  • Line Location: SBW+0
Function Call: WRITE
  • Prompt: S
  • Line Location: SBW+2
Function Call: WRITE
  • Prompt: " ",$P(ANS,U),"(",$P(ANS,U,2)," levs)"
  • Line Location: AREA+0
Function Call: WRITE
  • Prompt: ?31,L
  • Line Location: AREA+11
Function Call: WRITE
  • Prompt: ?40
  • Line Location: AREA+13
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: C
  • Line Location: S11+3
Function Call: WRITE
  • Prompt: W
  • Line Location: S11+3
Function Call: WRITE
  • Prompt: S
  • Line Location: S11+3
Function Call: WRITE
  • Prompt: !,?40,W
  • Line Location: S11+4
Function Call: WRITE
  • Prompt: !!,?6,"Care Area",?25,"Current Level",?54,"Description"
  • Line Location: CARH+0
Function Call: WRITE
  • Prompt: !,"-----------------------",?25,"-------------",?40,"---------------------------------------"
  • Line Location: CARH+1
Function Call: WRITE
  • Prompt: !!,?3,Y
  • Line Location: SUBH+2
Function Call: WRITE
  • Prompt: ?22,Y," Shift"
  • Line Location: SUBH+4
Function Call: WRITE
  • Prompt: ?45,"Unit ",Z
  • Line Location: SUBH+7
Function Call: WRITE
  • Prompt: " Rm ",$P(^(0),U)
  • Line Location: SUBH+9
Function Call: WRITE
  • Prompt: "-",$P(^(0),U)
  • Line Location: SUBH+9
Function Call: WRITE
  • Prompt: !!," Diagnosis: "
  • Line Location: SUBH9+0
Function Call: WRITE
  • Prompt: $P(ANSDX,U),@ANSSPAC
  • Line Location: SUBH9+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ANSD(51.1 - [#9009051.1] A2+7, A2+8
^ANSD(59 - [#9009059] AREA, AREA+3, AREA+13
^ANSD(59.1 - [#9009059.1] SUBH+5, SUBH+6, SUBH+9
^ANSD(59.3 - [#9009059.3] A2+6
^AUPNPAT - [#9000001] A1+5
^DD("DD" SUBH+1
^DPT - [#2] A1+1, A1+3

Label References

Name Line Occurrences
AREA SBW+3
CARH A2+1
HEAD A1+2, DISP
S11 S11+3, S11+6
S19 S11+1
SBW A2+2
SUBH A1+6, DISP
SUBH9 SUBH+5

Naked Globals

Name Field # of Occurrence
^( AREA+13
^("B" SUBH+9
^(0 A1+5, A2+6, A2+8, AREA, AREA+3, SUBH+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ANS AREA*
>> ANSAF A2+4, A2+5
>> ANSCL AREA+1
>> ANSDFN A1, A1+1, A1+3, A1+5
>> ANSDT SUBH
>> ANSDX SUBH+8, SUBH+9, SUBH9+2
>> ANSPAR SUBH+3
>> ANSRVOF A2+6, A2+11, A2+17, AREA+9, SUBH9+3
>> ANSRVON A2+6, A2+11, A2+15, AREA+7, SUBH9+1
>> ANSS SUBH+3*
>> ANSSH SUBH+4
>> ANSSITE A1+5
>> ANSSPAC A2+6, A2+11, A2+16, AREA+8, SUBH9+2
>> ANSUN SUBH+5, SUBH+6, SUBH+9
>> C AREA+14*, S11+3*, S11+5*
>> I A2+2*, A2+5*, A2+6, SBW+1
IOST A2+6, A2+11, A2+15, A2+16, A2+17, AREA+7, AREA+8, AREA+9, SUBH9+1, SUBH9+3
>> K AREA+14*, S11*, S11+1, S11+2
>> L A2+6*, A2+7*, A2+8*, A2+13, A2+16, AREA+1*, AREA+2, AREA+3, AREA+4, AREA+5
, AREA+8, AREA+11, AREA+12*, AREA+13
>> M AREA+14*, S11+1
>> S A2+6*, SBW+1*, SBW+2, AREA, AREA+1, AREA+3, AREA+13
>> T A2*, A2+7, A2+10, A2+11, AREA+3*, AREA+4*
U A1+3, A1+5, A2+5, A2+6, A2+8, AREA, AREA+1, AREA+3, SUBH+3, SUBH+4
, SUBH+6, SUBH+8, SUBH+9, SUBH9+2
>> W S11+2*, S11+3, S11+4
>> X A1+3*, A1+4, A1+5*, A2+5*, A2+6*, A2+8*, A2+13, A2+16, AREA+13*, AREA+14
, S11+2, SUBH+4*
>> Y SUBH*, SUBH+2, SUBH+3*, SUBH+4*, SUBH+8*, SUBH+9*
>> Z SUBH+6*, SUBH+7

Marked Items

Name Field # of Occurrence
$T(@ANSS SUBH+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All