Code |
N I,IBDT,IBFLDS,IBSTAT,LC,LQ,ORIBR,ORX,PIC,WI S ORY(0)="" S IBSTAT="RB",(LC,ORIBR,PIC)="",(LQ,WI)=0,IBFLDS="*" S IBDT=$$NOW^XLFDT S PIC=$$INSUR^IBBAPI(DFN,IBDT,IBSTAT,.ORIBR,IBFLDS) I PIC<0 S ORY(0)=0 Q I PIC=0 S:ORY(0)="" ORY(0)=0 Q S $P(ORY(0),U)="Pt Insur",$P(ORY(0),U,2)="Patient has active Insurance" S $P(ORY(0),U,3)="" F S LC=$O(ORIBR("IBBAPI","INSUR",LC)) Q:LC=""!(LQ) D . D FLD01,FLD02,FLD03,FLD04,FLD05,FLD06,FLD07,FLD08,FLD09,FLD10 . D FLD11,FLD12,FLD13,FLD14,FLD15,FLD16,FLD17,FLD18,FLD19,FLD20 . S WI=WI+1,ORY(WI)="" I ORY(0)="" S ORY(0)=0
|