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

HMPXGORD.m

Go to the documentation of this file.
  1. HMPXGORD ; ASMR/hrubovcak - ORDER file (#100) data retrieval ;Nov 03, 2015 18:23:03
  1. ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2**;Sep 01, 2011;Build 28
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. TOP(HMPRSLT,HMPORIEN,HMPFLDS,HMPFLG) ; return top-level fields
  1. ; HMPRSLT - result array, closed reference, required
  1. ; HMPORIEN - IEN of NEW PERSON, required
  1. ; HMPFLDS - field list, required, FileMan convention
  1. ; HMPFLG - data flag, optional, FileMan convention
  1. ;
  1. Q:'$L($G(HMPRSLT))
  1. ;
  1. K @HMPRSLT ; clear all results
  1. ; error data is found in -1 subscript
  1. I '($G(HMPORIEN)>0) S @HMPRSLT@(-1,$T(+0))="ORDER IEN required" Q
  1. I $G(HMPFLDS)="" S @HMPRSLT@(-1,$T(+0))="ORDER fields required" Q
  1. I '$L($G(HMPFLG)) N HMPFLG S HMPFLG="EIN" ; default is external and internal, skip nulls
  1. N DA,DIC,DIQ,DR,FLAGS ; FileMan variables
  1. S DIC=100,DR=HMPFLDS,DA=HMPORIEN,DIQ=HMPRSLT,DIQ(0)=HMPFLG,FLAGS=HMPFLG
  1. D EN^DIQ1
  1. Q
  1. ;
  1. DIALOG(HMPORIEN) ; function, return (#2) DIALOG [5V] for ORDER
  1. Q $P($G(^OR(100,+$G(HMPORIEN),0)),"^",5)
  1. ;
  1. ORDTOP(HMPORDFL,HMPORDIEN,HMPORDND) ; function, return top-level node from a file in ^ORD (file list below)
  1. ;
  1. I '($G(HMPORDFL)>0)!'($G(HMPORDIEN)>0)!'$L($G(HMPORDND)) Q "" ; all required
  1. ;
  1. Q $G(^ORD(HMPORDFL,HMPORDIEN,HMPORDND)) ; returns internal format
  1. ;
  1. ;
  1. ; files in the ^ORD global:
  1. ;
  1. ;ORDER STATUS (#100.01)
  1. ;NATURE OF ORDER (#100.02)
  1. ;ORDER REASON (#100.03)
  1. ;ORDER CHECK INSTANCES (#100.05)
  1. ;OE/RR PRINT FIELDS (#100.22)
  1. ;OE/RR PRINT FORMATS (#100.23)
  1. ;OE/RR RELEASE EVENTS (#100.5)
  1. ;OE/RR AUTO-DC RULES (#100.6)
  1. ;OE/RR EPCS PARAMETERS (#100.7)
  1. ;ORDER CHECKS (#100.8)
  1. ;OE/RR NOTIFICATIONS (#100.9)
  1. ;DISPLAY GROUP (#100.98)
  1. ;ORDER PARAMETERS (#100.99)
  1. ;PROTOCOL (#101)
  1. ;OR CPRS TABS (#101.13)
  1. ;OE/RR COM OBJECTS (#101.15)
  1. ;OE/RR REPORT (#101.24)
  1. ;ORDER EXECUTE CODES (#101.3)
  1. ;ORDER DIALOG (#101.41)
  1. ;ORDER URGENCY (#101.42)
  1. ;ORDERABLE ITEMS (#101.43)
  1. ;ORDER QUICK VIEW (#101.44)
  1. ;CPRS QUERY DEFINITION (#102.21)
  1. ;CPRS QUERY CONSTRAINT (#102.22)
  1. ;CPRS QUERY EDIT CONTROL (#102.23)
  1. ;CPRS QUERY DISPLAY FIELDS (#102.24)
  1. ;