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

Package: Dietetics

Routine: FHCTF3


Information

FHCTF3 ; HISC/REL/NCA - Clear File Entries ;4/6/01 09:37

Source Information

Source file <FHCTF3.m>

Entry Points

Name Comments DBIA/ICR reference
E0
E1
CL0
OUT
CL1
CL2
ASK
D1 ;
S
C ;
D
T
N
M ;
D2
SF ; Clear Supplemental Feeding
S1
CN ; Clear Consult
C1
C11
C2
TF ; Tubefeed
T1
DI ; Diet
NS ; Status
N1
MO ; Monitor
M1
DNE
HDR
HDR1
KIL ;clean variables

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: E0+0
Function Call: WRITE
  • Prompt: !!,"No Tickler File Entries"
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: !,FHCNT,".",?4,$P(FHTF,U,3)," Date: ",Y
  • Line Location: CL2+9
Function Call: READ
  • Variable: FHNM
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: *7,!!,"Enter an entry, or group of entries separated by a comma, or 'A' for all entries, or Return to bypass!"
  • Line Location: ASK+7
Function Call: READ
  • Formatting: !!
  • Prompt: "Is Order OK? Y// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: S1+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: C1+0
Function Call: WRITE
  • Prompt: *7,!,"Enter C, X or R or Press RETURN to bypass"
  • Line Location: C1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: C2+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Is Order OK? Y// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: T1+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: T1+0
Function Call: WRITE
  • Prompt: !!,"No current order"
  • Line Location: DI+3
Function Call: WRITE
  • Prompt: !,"Service: ",$S(TYS="T":"Tray",TYS="D":"Dining Room",1:"Cafeteria")
  • Line Location: DI+5
Function Call: WRITE
  • Prompt: !,"Expires: ",DTP
  • Line Location: DI+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Is Order OK? Y// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: DI+7
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: DI+7
Function Call: WRITE
  • Prompt: !!,"Current Status: ",$P($G(^FH(115.4,+S,0)),"^",2)
  • Line Location: NS+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Is Status OK? Y// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: !!,$P(FHTF,"^",3)
  • Line Location: MO+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Action Taken: "
  • Variable: MOCOM
  • Timeout: DTIME
  • Line Location: M1+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: M1+0
Function Call: WRITE
  • Prompt: *7,!,"Required entry: document action (up to 60 characters) or ^ to bypass."
  • Line Location: M1+1
Function Call: WRITE
  • Prompt: " ... done"
  • Line Location: DNE+0
Function Call: WRITE
  • Prompt: ?40,$S($P(Y0,"^",2)="F":"Female",1:"Male")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " Age ",AGE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?(79-$L(X)),X
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: HDR+6

FileMan Files Accessed Via FileMan Db Call

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