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

Package: Dietetics

Routine: FHMASE1A


Information

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

Source Information

Source file <FHMASE1A.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls