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

HBHCXMA1.m

Go to the documentation of this file. 
  1. HBHCXMA1 ;LR VAMC(IRMS)/MJT - HBHC, called by ^HBHCXMA, entry points: START, ERROR, EXIT, calls HOSP^HBHCUTL1 ;Jul 2000
  1.  ;;1.0;HOSPITAL BASED HOME CARE;**2,6,14,19,24,25**;NOV 01, 1993;Build 45
  1.  ;******************************************************************************
  1.  ;******************************************************************************
  1.  ;                       --- ROUTINE MODIFICATION LOG ---
  1.  ;        
  1.  ;PKG/PATCH    DATE        DEVELOPER    MODIFICATION
  1.  ;-----------  ----------  -----------  ----------------------------------------
  1.  ;HBH*1.0*25   APR  2012   K GUPTA      Support for ICD-10 Coding System
  1.  ;******************************************************************************
  1.  ;******************************************************************************
  1.  ;
  1. START ; Initialization
  1.  W !,"Processing Admission/Form 3 Data"
  1.  S HBHCFORM=3,$P(HBHCSP1," ",2)="",$P(HBHCSP2," ",3)="",$P(HBHCSP4," ",5)="",$P(HBHCSP5," ",6)="",$P(HBHCSP6," ",7)="",$P(HBHCSP8," ",9)="",$P(HBHCSP14," ",15)="",HBHCLNTH=30
  1.  D HOSP^HBHCUTL1
  1.  S HBHCFLD1="HBHCMARE^HBHCLIVE^HBHCCARE^HBHCTYPE"
  1.  S HBHCFLD2="HBHCVISA^HBHCHERA^HBHCEXCA^HBHCRECA^HBHCBTHA^HBHCDRSA^HBHCTLTA^HBHCTRNA^HBHCEATA^HBHCWLKA^HBHCBWLA^HBHCBLDA^HBHCMOBA^HBHCADTA^HBHCBHVA^HBHCDSOA^HBHCMODA^HBHCLMTA"
  1.  K %DT S X="T" D ^%DT S HBHCTDY=Y
  1.  ; Initialize variables passed for $$PRT2CODE^DGUTL4(VALUE,TYPE,CODE) calls
  1.  ; Following comments stolen from DGUTL4 routine:
  1.  ; Convert pointer to specified code
  1.  ; Input: VALUE - Pointer to RACE file (#10), ETHNICITY file (#10.2),
  1.  ;                or RACE AND ETHNICITY COLLECTION METHOD file (#10.3)
  1.  ;        TYPE - Flag indicating which file VALUE is for
  1.  ;               1 = Race (default)
  1.  ;               2 = Ethnicity
  1.  ;               3 = Collection Method
  1.  ;        CODE - Flag indicating which code to return
  1.  ;               1 = Abbreviation (default)
  1.  ;               2 = HL7
  1.  ;               3 = CDC (not applicable for Collection Method)
  1.  ;               4 = PTF
  1.  ; End of DGUTL4 comment theft  mjt
  1.  ; Race = 10, Ethnicity = 102, Collection Method = 103
  1.  ; Type
  1.  S HBHCT103=3
  1.  ; Code, PTF Value used for all files
  1.  S HBHCPTF=4
  1.  ; Race field set to "X" & became Historical only, beginning w/Jan 2003 new Race & Ethnicity Information fields mandate  mjt
  1.  S HBHCRC="X"
  1.  Q
  1. ERROR ; Set node in ^HBHC(634.1) if data is incomplete or proper fields invalid for 'Admit/Reject Action'
  1.  L +^HBHC(634.1,0):$S($D(DILOCKTM):DILOCKTM,1:3) Q:'$T  S HBHCNDX2=$P(^HBHC(634.1,0),U,3)+1,$P(^HBHC(634.1,0),U,3)=HBHCNDX2,$P(^HBHC(634.1,0),U,4)=$P(^HBHC(634.1,0),U,4)+1 L -^HBHC(634.1,0)
  1.  S ^HBHC(634.1,HBHCNDX2,0)=$P(HBHCINFO,U)_U_HBHCDFN,^HBHC(634.1,HBHCNDX2,1)=HBHCDR,^HBHC(634.1,"B",$P(HBHCINFO,U),HBHCNDX2)=""
  1.  Q
  1. EXIT ; Exit module => cleanup for HBHCXMA
  1.  K DILOCKTM,HBHC,HBHCACTN,HBHCADDT,HBHCADTA,HBHCAFLG,HBHCBHVA,HBHCBLDA,HBHCBTHA,HBHCBWLA,HBHCBYR,HBHCCM,HBHCCARE,HBHCCDTS,HBHCCNTY,HBHCCURJ,HBHCCURK,HBHCDATE,HBHCDFN,HBHCDPT0,HBHCDR,HBHCDRSA,HBHCDSOA,HBHCEATA,HBHCELGE,HBHCEND,HBHCETH
  1.  K HBHCEXCA,HBHCFIL,HBHCFLD,HBHCFLD1,HBHCFLD2,HBHCFLG,HBHCFORM,HBHCHERA,HBHCHOSP,HBHCI,HBHCICDA,HBHCIEN,HBHCIEN2,HBHCIENP,HBHCINFO,HBHCJ,HBHCK,HBHCL,HBHCLIVE,HBHCLMTA,HBHCLNTH,HBHCMARE,HBHCMFHP,HBHCMFHS,HBHCMOBA,HBHCMODA,HBHCMPT
  1.  K HBHCNAME,HBHCNDX1,HBHCNDX2,HBHCNOD3,HBHCNODE,HBHCPSRV,HBHCPTF,HBHCPTFV,HBHCRACE,HBHCRC,HBHCREC,HBHCRECA,HBHCREJ,HBHCREJD,HBHCRFIN,HBHCRFLG,HBHCRTDT,HBHCRTPD,HBHCSEX,HBHCSP1,HBHCSP14,HBHCSP2,HBHCSP4,HBHCSP5,HBHCSP6,HBHCSP8
  1.  K HBHCSSN,HBHCST,HBHCSX,HBHCT103,HBHCTDY,HBHCTLTA,HBHCTRNA,HBHCTYPE,HBHCVAR,HBHCVISA,HBHCWLKA,HBHCX,HBHCXMT3,HBHCZIP,X,Y,%DT
  1.  Q