Routine: FHMTK7

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

FHMTK7 ; HISC/NCA - Update Diet Restrictions ;12/6/00 15:14

Source file <FHMTK7.m>

Name	Comments	DBIA/ICR reference
STORD	;Update Standing orders for a patient, P30
SFMENU	;Update SF Menu for a patient, P30
PAT	; Update Restrictions for a patient
UPD	; Update Pattern
CHG	; Change the Diet Restrictions
CHG1
ADD	; Add the Diet Restriction
A1
PURG	; Purge the Old Restrictions
SET
FIL	; File the Event
SOO	;OUT SO
ADEV
CHKSO	;compares SO
UPDTSO(FHDFN,FHADM,FHUCSO)	;update SO
CANCSO	;cancel SO
ADDSO(FHDFN,FHADM,FHML,FHSO,FHN)	;
AGN
SFO	;out SFs
DOSF(FHDFN,FHADM)	;check/update SF
UPDSF(FHDFN,FHADM,FHSF,FHPSF)	;
CONT
TRYSF
CANCSF
CURDT(FHDFN,FHADM)	;get current patient's diet pattern ien of 111.1

Name	Line Occurrences
Function Call: READ	Formatting: !! Prompt: "Update All Diet Related Information for Patients? Y // " Variable: X Timeout: DTIME Line Location: FHMTK7+4
Function Call: WRITE	Prompt: *7,!," Answer YES or NO" Line Location: FHMTK7+5
Function Call: WRITE	Prompt: !,"Unknown user" Line Location: UPDTSO+4
Function Call: WRITE	Prompt: !,"Unknown user" Line Location: UPDSF+5