HMPXGNP.m

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 ---HMPXGNP   1035     printed  Mar 13, 2025@20:59:30                                                                                                                                                                                                     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      ;