HMPXGNP ; ASMR/hrubovcak - NEW PERSON file (#200) data retrieval ;Nov 03, 2015 18:23:03
;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2**;Sep 01, 2011;Build 28
;Per VA Directive 6402, this routine should not be modified.
;
Q
; IA 10060 - All NEW PERSON fields supported for read via FileMan
;
TOP(HMPRSLT,HMPNPIEN,HMPFLDS,HMPFLG) ; return top-level fields, null fields not returned
; HMPRSLT - result array, closed reference, required
; HMPNPIEN - IEN of NEW PERSON, required
; HMPFLDS - field list, required, FileMan convention
; HMPFLG - data flag, optional, FileMan convention
;
Q:'$L($G(HMPRSLT))
;
K @HMPRSLT ; clear all results
; error data is found in -1 subscript
I '($G(HMPNPIEN)>0) S @HMPRSLT@(-1,$T(+0))="NEW PERSON IEN required" Q
I $G(HMPFLDS)="" S @HMPRSLT@(-1,$T(+0))="NEW PERSON fields required" Q
I '$L($G(HMPFLG)) N HMPFLG S HMPFLG="EIN"
N DA,DIC,DIQ,DR,FLAGS ; FileMan variables
S DIC=200,DR=HMPFLDS,DA=HMPNPIEN,DIQ=HMPRSLT,DIQ(0)=HMPFLG,FLAGS=HMPFLG
D EN^DIQ1
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHMPXGNP 1035 printed Dec 13, 2024@01:54:53 Page 2
HMPXGNP ; ASMR/hrubovcak - NEW PERSON file (#200) data retrieval ;Nov 03, 2015 18:23:03
+1 ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2**;Sep 01, 2011;Build 28
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ; IA 10060 - All NEW PERSON fields supported for read via FileMan
+6 ;
TOP(HMPRSLT,HMPNPIEN,HMPFLDS,HMPFLG) ; return top-level fields, null fields not returned
+1 ; HMPRSLT - result array, closed reference, required
+2 ; HMPNPIEN - IEN of NEW PERSON, required
+3 ; HMPFLDS - field list, required, FileMan convention
+4 ; HMPFLG - data flag, optional, FileMan convention
+5 ;
+6 if '$LENGTH($GET(HMPRSLT))
QUIT
+7 ;
+8 ; clear all results
KILL @HMPRSLT
+9 ; error data is found in -1 subscript
+10 IF '($GET(HMPNPIEN)>0)
SET @HMPRSLT@(-1,$TEXT(+0))="NEW PERSON IEN required"
QUIT
+11 IF $GET(HMPFLDS)=""
SET @HMPRSLT@(-1,$TEXT(+0))="NEW PERSON fields required"
QUIT
+12 IF '$LENGTH($GET(HMPFLG))
NEW HMPFLG
SET HMPFLG="EIN"
+13 ; FileMan variables
NEW DA,DIC,DIQ,DR,FLAGS
+14 SET DIC=200
SET DR=HMPFLDS
SET DA=HMPNPIEN
SET DIQ=HMPRSLT
SET DIQ(0)=HMPFLG
SET FLAGS=HMPFLG
+15 DO EN^DIQ1
+16 QUIT
+17 ;
