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

Package: Dietetics

Routine: FHOMDPA


Information

FHOMDPA ;Hines OIFO/RTK OUTPATIENT LOOK-UP ;12/3/02 09:46

Source Information

Source file <FHOMDPA.m>

Entry Points

Name Comments DBIA/ICR reference
F1 ;
; FHALL=1 - Lookup INPATIENTS or OUTPATIENTS
; FHALL=0 - Lookup OUTPATIENTS only (to lookup INPATS only, use FHDPA)
; FHDFN=IEN in file #115, FHZ115=.01 in file #115 (ie P27 or N1866)
; DFN=IEN in file #2 (or NULL), IEN200=IEN in file #200 (or NULL)
FX1
FF11 ;
VER ;
ADD ; ADD ENTRY IF NOT ALREADY IN FILE 115
CHECK ; CHECK IF ALREADY IN FILE 115
MSG ;
NOP ;
DEAD ;PATIENT IS DEAD

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Patient (Name or SSN): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: F1+7
Function Call: WRITE
  • Prompt: FHPTNM
  • Line Location: F1+9
Function Call: WRITE
  • Prompt: !!,"LOOKING IN THE NEW PERSON FILE, FILE # 200.",!!
  • Line Location: FF11+1
Function Call: WRITE
  • Prompt: !!,"NOT FOUND IN 2 OR 200"
  • Line Location: FF11+5
Function Call: WRITE
  • Prompt: !
  • Line Location: VER+1
Function Call: WRITE
  • Prompt: !!,"Currently admitted as an Inpatient."
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !!?5,"This patient, ",PTNAME,", died on ",PTDOD,"."
  • Line Location: DEAD+9
Function Call: WRITE
  • Prompt: !?5,FHMSGML," cannot be ordered for this patient."
  • Line Location: DEAD+16
Function Call: WRITE
  • Prompt: !
  • Line Location: DEAD+17

FileMan Files Accessed Via FileMan Db Call

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