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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: FHMADM4

Package: Dietetics

Routine: FHMADM4


Information

FHMADM4 ; HISC/AAC - Multidivisional Staffing Data Report ;10/10/03 16:08

Source Information

Source file <FHMADM4.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Enter/Edit Staffing Data
E1
EN2 ; Print Staffing Data Report
PRINT
Q1 ; Process Printing Staffing Report
Q3 ;
QUIT ;
Q4 ;
Q2 ;Print Averages
FTOTALS ;Print Final Totals
HDR ;Print page headers
LN
N1 ;Get specific records
M1 ; Get total Meals
; S Y1=$G(^FH(117,D1,0)) Q:Y1="" I '$D(^FH(117,D1,1)) Q S Y2=$G(^FH(117,D1,1)) Q
N2 ;Get Communications Offices
KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: *7,!!,"** Date must not be in the future!",!
  • Line Location: E1+1
Function Call: READ
  • Formatting: !
  • Prompt: "Print report all Communications Offices Y or N: "
  • Variable: ZCO
  • Timeout: DTIME
  • Line Location: EN2+7
Function Call: WRITE
  • Prompt: !!,"The report requires a 132 column printer.",!
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?7,"Total",?15
  • Line Location: Q4+5
Function Call: WRITE
  • Prompt: $J(S(K),$E(X,1)+1,$E(X,2))
  • Line Location: Q4+5
Function Call: WRITE
  • Prompt: !?7,"Avg.",?15
  • Line Location: Q2+1
Function Call: WRITE
  • Prompt: $J(S(K)/ND,$E(X,1)+1,$E(X,2))
  • Line Location: Q2+1
Function Call: WRITE
  • Prompt: !?7,"% Paid",?68
  • Line Location: Q2+2
Function Call: WRITE
  • Prompt: $J(S(K)/S(22)*100,$E(X,1)+1,0)
  • Line Location: Q2+2
Function Call: WRITE
  • Prompt: !!?7,"Adjustment for Unscheduled and Intermittent",!!?7,"UNS/INT Total "
  • Line Location: Q2+3
Function Call: WRITE
  • Prompt: $J(TOT,5,1)," FTEE",!?7,"Adjusted Measured FTEE "
  • Line Location: Q2+3
Function Call: WRITE
  • Prompt: $J(TOT,5,1)," FTEE",!?7,"Adjusted Measured FTEE "
  • Line Location: Q2+3
Function Call: WRITE
  • Prompt: $J(TOT,5,1)," FTEE",!?7,"Adjusted Measured FTEE "
  • Line Location: Q2+3
Function Call: WRITE
  • Prompt: !!?7,"Man Minutes/Meal: ",$J(MAN/FHTOT,0,0)
  • Line Location: Q2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: Q2+5
Function Call: WRITE
  • Prompt: !?6,"All Total",?13
  • Line Location: FTOTALS+2
Function Call: WRITE
  • Prompt: $J(SS(K),$E(X,1)+1,$E(X,2))
  • Line Location: FTOTALS+2
Function Call: WRITE
  • Prompt: !?6,"All Avg.",?15
  • Line Location: FTOTALS+4
Function Call: WRITE
  • Prompt: $J(SS(K)/SSND,$E(X,1)+1,$E(X,2))
  • Line Location: FTOTALS+4
Function Call: WRITE
  • Prompt: !?6,"All % Paid",?68
  • Line Location: FTOTALS+5
Function Call: WRITE
  • Prompt: $J(SS(K)/SS(22)*100,$E(X,1)+1,0)
  • Line Location: FTOTALS+5
Function Call: WRITE
  • Prompt: !!?6,"All Adjustment for Unscheduled and Intermittent",!!?6,"All UNS/INT Total "
  • Line Location: FTOTALS+6
Function Call: WRITE
  • Prompt: $J(TOT,5,1)," FTEE",!?6,"All Adjusted Measured FTEE "
  • Line Location: FTOTALS+6
Function Call: WRITE
  • Prompt: $J(SSTOT,6,1)
  • Line Location: FTOTALS+7
Function Call: WRITE
  • Prompt: !?6,"All Avg Measured FTEE ",$J(SSTOT/ND,5,1)
  • Line Location: FTOTALS+7
Function Call: WRITE
  • Prompt: !!?6,"Man Minutes/Meal: ",$J(SMAN/SFHTOT,0,0)
  • Line Location: FTOTALS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: FTOTALS+9
Function Call: WRITE
  • Prompt: !?4,HDT,?44,"S T A F F I N G D A T A W O R K S H E E T",?122,"Page ",PG
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,?1,NAME
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?(132-$L(DTE)\2),DTE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!?15,"| DAILY| CLIN|ADMIN| SUPP| SUPV| MEAS| POT | OFF |WOP| OT|UNS|INT| PAID|COP| AL| SL|OTH|LND|CMP|TRN|VOL|BOR|TOTAL"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?15,"| FTEE| FTEE| FTEE| FTEE| FTEE| FTEE| HRS | HRS |HRS|HRS|HRS|HRS| HRS |HRS|HRS|HRS|HRS|HRS|HRS|HRS|HRS|HRS| HRS"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?4,"----------------------------------------------------------------------------------------------------------------------------"
  • Line Location: LN+0
Function Call: WRITE
  • Prompt: !?4,$P("Sun Mon Tue Wed Thu Fri Sat"," ",DOW)," ",$E(DTP,1,6)," "
  • Line Location: N1+9
Function Call: WRITE
  • Prompt: "|",N(K)
  • Line Location: N1+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(117.1 - [#117.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call