Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHOMWOR1

FHOMWOR1.m

Go to the documentation of this file.
  1. FHOMWOR1 ;Hines OIFO/RTK OUTPATIENT MEALS/HL7 MSGING CONT ;04/22/05 9:15
  1. ;;5.5;DIETETICS;**2**;Jan 28, 2005
  1. ;
  1. NA ;Number assign for outpatient meals orders (store OR# in FH field)
  1. I FHTYPE="A" D NAAO Q
  1. I FHTYPE="E" D NAEL Q
  1. I FHTYPE="T" D NATF Q
  1. I FHTYPE="R" D NARM Q
  1. I FHTYPE="I" D NAIP Q
  1. I FHTYPE="S" S FHSN=+FHRNUM D NASM Q
  1. I FHTYPE="G" S FHSN=+FHRNUM D NASMEL Q
  1. I FHTYPE="RMEDIT" D NARMED Q
  1. S TXT="BAD TYPE" D GETOR^FHWOR,ERR^FHOMWOR Q
  1. Q
  1. NAAO ;
  1. K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""OP"","
  1. S DA=+FHRNUM,DR="13.5////^S X=FHORN" D ^DIE
  1. Q
  1. NAEL ;
  1. K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""OP"","
  1. S DA=+FHRNUM,DR="17.5////^S X=FHORN" D ^DIE
  1. Q
  1. NATF ;
  1. K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""OP"","
  1. S DA=+FHRNUM,DR="21.5////^S X=FHORN" D ^DIE
  1. Q
  1. NARM ;
  1. F FHRNM=0:0 S FHRNM=$O(^FHPT(FHDFN,"OP","C",FHMPN,FHRNM)) Q:FHRNM'>0 D
  1. .K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""OP"","
  1. .S DA=FHRNM,DR=".05////^S X=FHORN" D ^DIE
  1. .Q
  1. Q
  1. NAIP ;
  1. K DIE S DIE="^FHPT(",DA=FHDFN,DR="20////^S X=FHORN" D ^DIE
  1. Q
  1. NASM ;
  1. K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""SM"","
  1. S DA=FHSN,DR="14////^S X=FHORN" D ^DIE
  1. Q
  1. NASMEL ;
  1. K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""SM"","
  1. S DA=FHSN,DR="11////^S X=FHORN" D ^DIE
  1. Q
  1. NARMED ;
  1. K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""OP"","
  1. S DA=+FHRNUM,DR=".05////^S X=FHORN" D ^DIE
  1. Q
  1. OMD1IT ;
  1. F PIECE=3,4,5,6 S $P(^FH(119.9,1,0),U,PIECE)=""
  1. Q