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

Package: Dietetics

Routine: FHASE1A


Information

FHASE1A ; HISC/REL/NCA - Encounter Statistics (cont.) ;9/6/94 13:13

Source Information

Source file <FHASE1A.m>

Entry Points

Name Comments DBIA/ICR reference
Q1 ; Calculate the Encounters
R1
R2
R3
R4
CNT
C1
C2
UPD
P1
D0
P2
P3
P4
P5
P6
PP
PR
STOT
TOT
HEAD ;W:'($E(IOST,1,2)'="C-"&'PG) @IOF S PG=PG+1 W !?30,"D I E T E T I C E N C O U N T E R S T A T I S T I C S",?120,"Page ",PG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: D0+1
Function Call: WRITE
  • Prompt: !!,NX
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: !?7,S1,?17,BID,?26,$P(Y,"^",1)
  • Line Location: P5+2
Function Call: WRITE
  • Prompt: !?7,S1,?17,$P(DFN,"^",2)
  • Line Location: P6+0
Function Call: WRITE
  • Prompt: !?5,X1,?47,$J($P(S1,"^",1),6,0)
  • Line Location: PP+0
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+1
Function Call: WRITE
  • Prompt: $J($P(S1,"^",2),8,1)
  • Line Location: PP+6
Function Call: WRITE
  • Prompt: !?3,X
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !?5,"Subtotal",?47,$J(J(1),6)
  • Line Location: STOT+0
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+0
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+1
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+2
Function Call: WRITE
  • Prompt: !?3,X,?47,$J(I(1),6)
  • Line Location: TOT+0
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+0
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+1
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+2
Function Call: WRITE
  • Prompt: !?30,"D I E T E T I C E N C O U N T E R S T A T I S T I C S",?120,"Page ",PG
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?30,"D I E T E T I C E N C O U N T E R S T A T I S T I C S",?120,"Page ",PG
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !!?(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
Info |  Source |  Entry Points |  Interaction Calls