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

Package: Dietetics

Routine: FHADR9A


Information

FHADR9A ; HISC/NCA,RTK - Dietetic Survey (cont.) ;1/10/94 16:10

Source Information

Source file <FHADR9A.m>

Entry Points

Name Comments DBIA/ICR reference
EN2 ; Print the Dietetic Survey
Q11
DECODE ; Decode each string rating
PRT ; Print the Dietetic Survey
LP ; Loop to Print each row
HDR ; Section Heading
HD1 ; Print Heading for Overall Service

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,QNAM,!
  • Line Location: LP+3
Function Call: WRITE
  • Prompt: !,"Total",?23
  • Line Location: LP+23
Function Call: WRITE
  • Prompt: $J($S(X:X,1:""),5)_$S(NRT(L2):$J(TQR(L2)/NRT(L2),5,2),1:$J("",5))_$J("",12)
  • Line Location: LP+23
Function Call: WRITE
  • Prompt: ?111,$J($S(SUM:SUM,1:""),5),$S(FNRT:$J(FTQR/FNRT,5,2),1:$J("",5)),!
  • Line Location: LP+24
Function Call: WRITE
  • Prompt: !!!!,"S E C T I O N VI P A T I E N T S A T I S F A C T I O N"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!!,"DIETETIC SURVEY",?25,"1st Qtr",?47,"2nd Qtr",?69,"3rd Qtr",?91,"4th Qtr",?113,"YTD Rtng"
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: !?25,"Num Rtng",?47,"Num Rtng",?69,"Num Rtng",?91,"Num Rtng",?113,"ToT Avg",!
  • Line Location: HD1+2
Info |  Source |  Entry Points |  Interaction Calls