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

Package: Dietetics

Routine: FHSP1


Information

FHSP1 ; HISC/NCA - Consolidated Standing Orders List ;7/28/94 12:59

Source Information

Source file <FHSP1.m>

Entry Points

Name Comments DBIA/ICR reference
E1 ; Set Consolidated List flag
E2 ; Set Print Label flag
E3
D0
D2
D3
D5
PR
Q1 ; Print Standing Orders List or Labels
Q2
ADD
A1
CHK
C0
C1
C2
DP
P0
LST
CON
SOR
PP
HDR ; Header for Consolidated List
HDR1 ; Header for Standing Order List
ADDO ;process outpatient STANDING ORDER for consolidated, print labels and tabulated reports.
KIL
EVNT

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select SERVICE POINT (or ALL): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: D0+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: D2+0
Function Call: WRITE
  • Prompt: *7,!,"Enter B for Breakfast, N for Noon, E for Evening or ALL for all meals"
  • Line Location: D2+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Consolidated List Only? Y//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: D3+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: D3+0
Function Call: WRITE
  • Prompt: !
  • Line Location: D5+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+8
Function Call: WRITE
  • Prompt: !?(80-30\2),$J(Z,6)," ",$P(^FH(118.3,KK,0),"^",1)
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: !!,"# OF PATIENTS",?31
  • Line Location: CON+4
Function Call: WRITE
  • Prompt: $S(Z:$J(Z,6),1:$J("",6))," "
  • Line Location: CON+5
Function Call: WRITE
  • Prompt: $S(N1:$J(N1,6),1:$J("",6))
  • Line Location: CON+6
Function Call: WRITE
  • Prompt: !,$P($G(^FH(118.3,KK,0)),"^",1),?31
  • Line Location: SOR+1
Function Call: WRITE
  • Prompt: $S(Z:$J(Z,6),1:$J("",6))," "
  • Line Location: SOR+2
Function Call: WRITE
  • Prompt: $S(Z1:$J(Z1,6),1:$J("",6))
  • Line Location: SOR+3
Function Call: WRITE
  • Prompt: !!?(80-21\2),"**** PATIENTS = ",N1," ****",!
  • Line Location: PP+0
Function Call: WRITE
  • Prompt: !,DTR,?(L1-11),"Page ",PG,!!?(L1-55\2),"C O N S O L I D A T E D S T A N D I N G O R D E R S",!!?(L1-$L(DTE)\2),DTE,!!?29
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: S(X,K)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: " TOTAL",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,DTR,?69,"Page ",PG,!!?20,"S T A N D I N G O R D E R S L I S T"
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !?(80-$L(N2)\2),N2,!?(80-$L(DTE)\2),DTE,!
  • Line Location: HDR1+2

FileMan Files Accessed Via FileMan Db Call

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