DGRPT.m

DGRPT ;ALB/RMO-10-10T Registration ; 2/20/03 12:05pm

 ;;5.3;Registration;**108,149,425**;Aug 13, 1993

 ;

EN ;Entry point for 10-10T registration option

 ; Input  -- None

 ; Output -- None

 N DFN,DGNEWPF,DGRPTOUT

 ;

 ;Get Patient file (#2) IEN - DFN

 D GETPAT^DGRPTU(1,1,.DFN,.DGNEWPF) G Q:DFN<0

 ;

 ;MPI Query

 ;check to see if CIRN PD/MPI is installed

 N X S X="MPIFAPI" X ^%ZOSF("TEST") G:'$T SKIP

 K MPIFRTN

 D MPIQ^MPIFAPI(DFN)

 K MPIFRTN

 ;

 I $G(DGNEWPF) D

 . ; query CMOR for Patient Record Flag Assignments if NEW patient and

 . ; display results.

 . I $$PRFQRY^DGPFAPI(DFN) D DISPPRF^DGPFAPI(DFN)

 ;

SKIP ;

 ;If new patient invoke 10-10T interview

 I $G(DGNEWPF) D

 . D INT^DGRPTI(DFN,DGNEWPF,.DGRPTOUT)

 ELSE  D

 . ;Load 10-10T registration screen

 . D EN^DGRPTL(DFN,.DGRPTOUT)

 ;I VAFCFLDS IS DEFINED IT MEANS USER DIDN'T COMPLETE A 10-10

 ;REGISTRATION BUT DID EDIT SOME FIELDS FROM THAT OPTION

 I $D(VAFCFLDS) D HL7A08^VAFCDD01

Q Q

 ;

DGRPT     ;ALB/RMO-10-10T Registration ; 2/20/03 12:05pm

 +1       ;;5.3;Registration;**108,149,425**;Aug 13, 1993

 +2       ;

EN        ;Entry point for 10-10T registration option

 +1       ; Input  -- None

 +2       ; Output -- None

 +3        NEW DFN,DGNEWPF,DGRPTOUT

 +4       ;

 +5       ;Get Patient file (#2) IEN - DFN

 +6        DO GETPAT^DGRPTU(1,1,.DFN,.DGNEWPF)

           IF DFN<0

               GOTO Q

 +7       ;

 +8       ;MPI Query

 +9       ;check to see if CIRN PD/MPI is installed

 +10       NEW X

           SET X="MPIFAPI"

           XECUTE ^%ZOSF("TEST")

           IF '$TEST

               GOTO SKIP

 +11       KILL MPIFRTN

 +12       DO MPIQ^MPIFAPI(DFN)

 +13       KILL MPIFRTN

 +14      ;

 +15       IF $GET(DGNEWPF)

               Begin DoDot:1

 +16      ; query CMOR for Patient Record Flag Assignments if NEW patient and

 +17      ; display results.

 +18               IF $$PRFQRY^DGPFAPI(DFN)

                       DO DISPPRF^DGPFAPI(DFN)

               End DoDot:1

 +19      ;

SKIP      ;

 +1       ;If new patient invoke 10-10T interview

 +2        IF $GET(DGNEWPF)

               Begin DoDot:1

 +3                DO INT^DGRPTI(DFN,DGNEWPF,.DGRPTOUT)

               End DoDot:1

 +4       IF '$TEST

               Begin DoDot:1

 +5       ;Load 10-10T registration screen

 +6                DO EN^DGRPTL(DFN,.DGRPTOUT)

               End DoDot:1

 +7       ;I VAFCFLDS IS DEFINED IT MEANS USER DIDN'T COMPLETE A 10-10

 +8       ;REGISTRATION BUT DID EDIT SOME FIELDS FROM THAT OPTION

 +9        IF $DATA(VAFCFLDS)

               DO HL7A08^VAFCDD01

Q          QUIT 

 +1       ;