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 |  All
Print Page as PDF
Routine: FHMASE1A

Package: Dietetics

Routine: FHMASE1A


Information

FHMASE1A ; HISC/AAC - Multidiv Encounter Stats (cont.) ;10/14/03 13:13

Source Information

Source file <FHMASE1A.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Dietetics 2 DTP^FH  PID^FHDPA  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHMASE1  

Entry Points

Name Comments DBIA/ICR reference
Q1 ; Calculate the Encounters
P2 ;load data for each clinician
Q2 ;Get Communications Offices
P2A
STOT ;Print sub-totals for Communications Office and Clinician
TOT ;
DEL ;DELETE RECORDS FROM ^TMP
SETX1 ;
PR ;
PP ;Print totals for Communications Offices
P4 ;
R11
PX ;Accumulate amount for final total
P5 ;
ALLTOT ;
C2 ;
C1 ;
C0 ;
R4 ;
P3 ;
HEAD ;Print page headers
P1 ;load data by paramters/totals for each Communication Office
P6 ;
R1
R2 ;Find Patient records within parameters
R3 ;
UPD ;Update S1 record
Q ;
QUIT ;
D0 ;Get Clinician Name

External References

Name Field # of Occurrence
DTP^FH R11+16, P1+1
PID^FHDPA P5+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: P2A+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: P2A+0
Function Call: WRITE
  • Prompt: !,NAM
  • Line Location: D0+2
Function Call: WRITE
  • Prompt: !?7,S1,?17,BID,?26,$P(Y,"^",1)
  • Line Location: P5+3
Function Call: WRITE
  • Prompt: !?7,S1,?17,$P(DFN,"^",2)
  • Line Location: P6+1
Function Call: WRITE
  • Prompt: !?5,X1,?47,$J($P(S1,"^",1),6,0)
  • Line Location: PP+1
Function Call: WRITE
  • Prompt: $S(K=3!(K=6):$S(Z:$J(Z,8,1),1:$J("",8)),1:$J($S(Z:Z,1:""),6))
  • Line Location: PP+2
Function Call: WRITE
  • Prompt: $J($P(S1,"^",2),8,1)
  • Line Location: PP+9
Function Call: WRITE
  • Prompt: !?3,X
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !?5,"Subtotal",?47,$J(J(1),6)
  • Line Location: STOT+1
Function Call: WRITE
  • Prompt: $S(K=3!(K=6):$S(J(K+2):$J(J(K+2),8,1),1:$J("",8)),1:$J($S(J(K+2):J(K+2),1:""),6))
  • Line Location: STOT+1
Function Call: WRITE
  • Prompt: ?97,$S(J(9):$J(J(9),6),1:$J("",6)),$S(J(10):$J(J(10),8,1),1:$J("",8))
  • Line Location: STOT+2
Function Call: WRITE
  • Prompt: ?113,$S(J(11):$J(J(11),6),1:$J("",6)),$S(J(2):$J(J(2),8,1),1:$J("",8))
  • Line Location: STOT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: STOT+3
Function Call: WRITE
  • Prompt: !?3,NAME,X,?47,$J(I(1),6)
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: $S(K=3!(K=6):$S(I(K+2):$J(I(K+2),8,1),1:$J("",8)),1:$J($S(I(K+2):I(K+2),1:""),6))
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: ?97,$S(I(9):$J(I(9),6),1:$J("",6)),$S(I(10):$J(I(10),8,1),1:$J("",8))
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: ?113,$S(I(11):$J(I(11),6),1:$J("",6)),$S(I(2):$J(I(2),8,1),1:$J("",8))
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: !,XS,?47,$J(II(1),6)
  • Line Location: ALLTOT+2
Function Call: WRITE
  • Prompt: $S(K=3!(K=6):$S(II(K+2):$J(II(K+2),8,1),1:$J("",8)),1:$J($S(II(K+2):II(K+2),1:""),6))
  • Line Location: ALLTOT+2
Function Call: WRITE
  • Prompt: ?97,$S(II(9):$J(I(9),6),1:$J("",6)),$S(II(10):$J(II(10),8,1),1:$J("",8))
  • Line Location: ALLTOT+3
Function Call: WRITE
  • Prompt: ?113,$S(II(11):$J(II(11),6),1:$J("",6))
  • Line Location: ALLTOT+4
Function Call: WRITE
  • Prompt: $S(II(5):$J(II(5),8,1),1:$J("",6))
  • Line Location: ALLTOT+4
Function Call: WRITE
  • Prompt: !?30,"D I E T E T I C E N C O U N T E R ",?69,HEADER,?120,"Page ",PG
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?2,NAME,?(114-$L(DTE)\2),DTE,!?47,"Number Inpatients Outpatients Others Total"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?56,"Pat Col Units Pat Col Units",?98,"Persn Units Persn Units",!
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEL+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(115.6 Q1+3
^DPT - [#2] P5+2
^FH(115.6 - [#115.6] R11+10
^FH(119.73 - [#119.73] Q1+7, Q2+3, R2+1, R2+2, R11+8
^FHEN - [#115.7] R11+2, R11+5, R11+16, R11+17, C0+2
^FHEN("AT" R1, R11
^SC - [#44] C1+1
^TMP($J Q1+1!, R11+14*, R11+15*, R11+16*, R3+1, R3+2*, P1+4, P2+3, P4+1, P5+1
, DEL+1!
^VA(200 - [#200] D0+2

Label References

Name Line Occurrences
ALLTOT Q2+2, Q2+3
C0 R11+9
C1 C0+2
C2 C1+1
D0 P1+1, P2+3
DEL Q2+1, P2A, ALLTOT+5
HEAD P1+1, P1+5, P2+1, PP+1, PR+2
P1 R1
P2 P2+4
P2A P2+3
P3 P2+3
P4 P5+1
P5 P5+2, P5+3, P6+1
P6 P5+1
PP P1+4, P2+3
PR P1+4, P2+3
PX P1+5
Q2 R2+1, R2+2, P1+5, P2A
R11 R11+21
R2 R4+1
R3 R11+16, R11+17, R4+1
SETX1 P2+3
STOT P1+4, P1+5, P2+3, P2+4, P2A
TOT P1+5, P2A
UPD R11+14, R11+15

Naked Globals

Name Field # of Occurrence
^( R11+16*, C0+2, P4+1, P5+1
^(0 R3+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BID P5+3
>> C( UPD+2
>> C(1 C0+1*, C0+3, C0+4, C1+2*
>> C(2 C0+1*, C0+3, C1+2*
>> C(3 C0+1*, C0+4*, C1+2*
>> C(4 C0+1*, C0+3, C0+4, C2+1*
>> C(5 C0+1*, C0+3, C2+1*
>> C(6 C0+1*, C0+4*, C2+1*
>> C(7 C0+1*, C0+3*, C0+4
>> C(8 C0+1*, C0+3
>> CO Q2+2
>> CONAME Q2+2
>> CONUMX Q2+2*
>> COUNT Q1+6*, Q2+3*, R2+2, R11+4
>> COXX Q2+2*, R2+1, R11+3
>> COXX1 Q2+1*
>> CT P1+2*, P1+4*, P2+1*, P2+3*
>> D1 R11+6*, R11+7, R11+15, R11+16, R3+1, R3+2, P2+3*, D0+1*, D0+2, P4+1
, P5+1
>> D1CNTX Q1+6*, Q2+1*
>> D1F Q1+6*
>> D1X Q2+1*
>> D1XX Q1+4*
>> D2 R11+6*, R11+10*, R11+11*, R11+13*, R11+14, R11+15, R11+16*, R3+1, R3+2, P2+3*
, SETX1+1, P4+1, P5+1
>> D3 R11+9*, R11+16*, C0+4, C1+2, C2+1, UPD+1
>> D4 R11+6*, R11+8, R11+14, R11+15, R11+16*, R3+1, R3+2, P1+4, P2+3, P4+1
, P5+1
>> D5 R11+9*, R11+16, R4+1
>> D6 R11+9*, R11+13
>> D8 R11+12*, R11+14, R11+15, R11+16, R3+1, R3+2, P1+2*, P1+4*, P2+1*, P2+2*
, P2+3*, P4+1, P5+1, PR+1
>> D9 R11+9*, C0+4, C1+2, C2+1
>> DD1 Q2+1*, R11+15*
>> DD2 Q2+1*, R11+15*, R11+16
>> DD3 Q2+1*, R11+16
>> DD4 Q2+1*, R11+15*, R11+16
>> DD8 R11+15*
>> DFN R11+16*, R11+17*, R3+2, R4+1*, C0+2*, P5+1*, P5+2, P6+1
>> DIF Q2+1*
>> DTE P1+1*, HEAD+2
>> DTP R11+16*, P1+1*, P3+1*, P4+1*, P5+1
>> E1 Q2+1*, R11*, R11+2, R11+5, R11+16, R11+17, C0+2
>> EDT Q1+2, R2+4, P1+1
>> FHX1 R11+7, P1+1, P1+5, D0+1
>> FHX2 R11+15, P1+5, P2+3
>> HEADER HEAD+1
>> I( P1+2*, P1+5*, PP+2*, PX+2, TOT+2, TOT+5*
>> I(1 PP+1*, PX+1, TOT+2
>> I(10 PP+5*, PX+3, TOT+3
>> I(11 PP+8*, PX+3, TOT+4
>> I(2 PP+9*, TOT+4
>> I(9 PP+3*, PX+3, TOT+3, ALLTOT+3
>> II( Q1+8*, PX+2*, ALLTOT+2
>> II(1 PX+1*, ALLTOT+2
>> II(10 PX+3*, ALLTOT+3
>> II(11 PX+3*, ALLTOT+4
>> II(5 ALLTOT+4
>> II(9 PX+3*, ALLTOT+3
IOF P2A, HEAD+1
IOST HEAD+1
>> J( P1+2*, P1+5*, PP+2*, STOT+1, STOT+4*
>> J(1 PP+1*, STOT+1
>> J(10 PP+5*, STOT+2
>> J(11 PP+8*, STOT+3
>> J(2 PP+9*, STOT+3
>> J(9 PP+3*, STOT+2
>> JJ( Q1+8*
>> K Q1+8*, UPD+2*, P1+2*, P1+4*, P1+5*, PP+2*, PX+2*, STOT+1*, STOT+4*, TOT+2*
, TOT+5*, ALLTOT+2*
>> KK P1+4*
>> L Q1+6*, R3+1*, R3+2
>> L1 P2+3*
>> LL Q1+6*
>> NAM P1+1*, P2+1*, D0+2*
>> NAME Q2+2*, Q2+3*, TOT+2, HEAD+2
>> NUMBER Q1+6*
>> NX Q2+1*, P1+2*, P1+4*
>> PG P1+1*, HEAD+1*
>> REC Q2+3*
>> S1 R11+14*, R11+15*, UPD+1*, UPD+2*, P1+4*, P2+3*, P4+1*, P5+3, P6+1, PP+1
, PP+2, PP+3, PP+5, PP+8, PP+9
>> SDT Q1+2, R2+4, P1+1, P2A
>> SS1 Q2+1*
>> TIT Q1+3*, R11+12, PR+1
>> TM C0+4*
>> W1 R11+16*, R3+1, R3+2, P4+1*, P5+1*
>> WW1 Q2+1*, R3+1*
>> X C0+2*, C1+1, C1+2, C2+1, P1+5*, P2A*, PR+1*, PR+2, TOT+2
>> X1 P1+4*, P2A*, SETX1+1*, PP+1
>> X3 Q1+6*
>> XS ALLTOT+2*
>> XX1 Q1+5*, R2+4*, R1*, R11, R11+1
>> XX2 Q1+6*, R11+2*, R11+3, R11+4
>> XX3 Q1+6*
>> XXX Q1+6*, R11*
>> XY Q1+6*, R11+3*, R11+4*
>> Y R11+5*, R11+6, R11+9, R11+16, C0+1, P5+2*, P5+3
>> YX1 Q1+2*, Q1+5, R2+4*
>> YX2 Q1+2*, R2+4*, R1, R11+1
>> YY1 Q1+6*
>> Z C1+1*, PP+2*, PP+3*, PP+5*, PP+7, PP+8*
>> Z1 R11+11*, R11+12
>> ZCO Q2+2, Q2+3, R2+1, R2+2, R11+3, R11+4
>> ZOUT Q1+7*, Q2+3
>> ZZCOUNT Q1+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All