AGRD2.m

AGRD2 ;IHS/OIRM/MLP - READ 271 FILE SEGMENT TYPES   

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

BHT ;BHT SEGMENT ID

 S ^AG271(DT,CNUM,SEGID,"TPURPOSECODE")=$P(SEGDATA,D2,2)

 S ^AG271(DT,CNUM,SEGID,"REFID")=$P(SEGDATA,D2,3)

 S ^AG271(DT,CNUM,SEGID,"DATE")=$P(SEGDATA,D2,4)

 S ^AG271(DT,CNUM,SEGID,"TIME")=$P(SEGDATA,D2,5)

 Q

HL ;HL SEGMENT ID

 S ^AG271(DT,CNUM,SEGID,"HIDNUM")=$P(SEGDATA,D2)

 S ^AG271(DT,CNUM,SEGID,"HILCODE")=$P(SEGDATA,D2,3)

 S ^AG271(ST,CNUM,SEGID,"HICCODE")=$P(SEGDATA,D2,4)

 Q

AAA ;AAA SEGMENT IF

 S ^AG271(DT,CNUM,SEGID,"RCODE")=$P(SEGDATA,D2)

 S ^AG271(DT,CNUM,SEGID,"REJECT")=$P(SEGDATA,D2,3)

 S ^AG271(DT,CNUM,SEGID,"FOLLOWUP")=$P(SEGADTA,D2,4)

AGRD2     ;IHS/OIRM/MLP - READ 271 FILE SEGMENT TYPES   

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

BHT       ;BHT SEGMENT ID

 +1        SET ^AG271(DT,CNUM,SEGID,"TPURPOSECODE")=$PIECE(SEGDATA,D2,2)

 +2        SET ^AG271(DT,CNUM,SEGID,"REFID")=$PIECE(SEGDATA,D2,3)

 +3        SET ^AG271(DT,CNUM,SEGID,"DATE")=$PIECE(SEGDATA,D2,4)

 +4        SET ^AG271(DT,CNUM,SEGID,"TIME")=$PIECE(SEGDATA,D2,5)

 +5        QUIT 

HL        ;HL SEGMENT ID

 +1        SET ^AG271(DT,CNUM,SEGID,"HIDNUM")=$PIECE(SEGDATA,D2)

 +2        SET ^AG271(DT,CNUM,SEGID,"HILCODE")=$PIECE(SEGDATA,D2,3)

 +3        SET ^AG271(ST,CNUM,SEGID,"HICCODE")=$PIECE(SEGDATA,D2,4)

 +4        QUIT 

AAA       ;AAA SEGMENT IF

 +1        SET ^AG271(DT,CNUM,SEGID,"RCODE")=$PIECE(SEGDATA,D2)

 +2        SET ^AG271(DT,CNUM,SEGID,"REJECT")=$PIECE(SEGDATA,D2,3)

 +3        SET ^AG271(DT,CNUM,SEGID,"FOLLOWUP")=$PIECE(SEGADTA,D2,4)