AGDIQ1.m

AGDIQ1 ; IHS/ASDS/EFG - CALL EN^DIQ1 ; 

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

START ;START HERE

 K AG("LKERR"),AG("LKPRINT"),AG("LKDATA"),AGDIQ

 S DIQ="AGDIQ(",DIQ(0)="IE"

 D EN^DIQ1

 I '$D(AGDIQ) S AG("LKERR")=1 K AGDIQ Q

 S AGDIQ("F#")=$O(AGDIQ(0))

 S AG("LKDATA")=AGDIQ(AGDIQ("F#"),DA,DR,"I")

 S AG("LKPRINT")=AGDIQ(AGDIQ("F#"),DA,DR,"E")

 K AGDIQ

 Q

AGDIQ1    ; IHS/ASDS/EFG - CALL EN^DIQ1 ; 

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

START     ;START HERE

 +1        KILL AG("LKERR"),AG("LKPRINT"),AG("LKDATA"),AGDIQ

 +2        SET DIQ="AGDIQ("

           SET DIQ(0)="IE"

 +3        DO EN^DIQ1

 +4        IF '$DATA(AGDIQ)

               SET AG("LKERR")=1

               KILL AGDIQ

               QUIT 

 +5        SET AGDIQ("F#")=$ORDER(AGDIQ(0))

 +6        SET AG("LKDATA")=AGDIQ(AGDIQ("F#"),DA,DR,"I")

 +7        SET AG("LKPRINT")=AGDIQ(AGDIQ("F#"),DA,DR,"E")

 +8        KILL AGDIQ

 +9        QUIT