BMXADOXX	; IHS/CIHA/GIS - RPC CALL: GENERATE AN ADO SCHEMA STRING AND DATA SET ;
	;;2.1;BMX;;Jul 26, 2009
	; EXMAPLES OF RPMS SCHEMAE GENERATION
	;
	;
ADDPAT	;
	N OUT,%,SIEN,DFN,NODE
	;S DFN=9285
	S SIEN=$$SCHEMA("UPDATE VA PATIENT")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^KANGAROO,KAP^M^1-1-83^151515555"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	;
	Q
	;
DISP(OUT)	; TEMP DISPLAY
	N I,X
	S I=0 W !
	F  S I=$O(@OUT@(I)) Q:'I  S X=@OUT@(I) S X=$TR(X,$C(30),"}") S X=$TR(X,$C(31),"{") W !,X
	Q
	;
SCHEMA(NAME)	; GIVEN SCHEMA NAME, RETURN THE IEN
	N IEN
	S IEN=$O(^BMXADO("B",NAME,0))
	Q IEN
	;
NEXTNUM(DFN,LOC)	; RETURN THE NEXT PROBLEM NUMBER FOR A PATIENT
	N X,LAST,MAX,NUM
	S NUM=0,MAX=""
	F  S NUM=$O(^AUPNPROB("AA",DFN,LOC,NUM)) Q:NUM=""  S X=$E(NUM,2,99) I +X>MAX S MAX=+X
	I 'MAX Q 1
	S X=X+1 S X=X\1
	Q X
	;
DEMOG	; VIEW DEMOGRAPHICS
	N OUT,%,DFN,MAX,SIEN
	S DFN=1373,MAX=1000
	S SIEN=$$SCHEMA("UPDATE PATIENT DEMOGRAPHICS")
	D SS^BMXADO(.OUT,SIEN,"",("~"_DFN_"~"_DFN_"~"_MAX))
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
MEDICARE	; UPDATE MEDICARE DATES/INFO
	N OUT,%,DAS,PIEN,JIEN,DFN,MAX
	S DFN=1,MAX=1000
	S DAS=DFN_","
	S PIEN=$$SCHEMA("UPDATE MEDICARE DATES")
	S JIEN=$$SCHEMA("UPDATE MEDICARE INFO")
	D SS^BMXADO(.OUT,PIEN,DAS,("~"_DFN_"~"_DFN_"~"_MAX_"~~"_"MEDICARE~BMXADOV2~~"_JIEN_",PARENT"))
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
MEDICAID	; VIEW MEDICAID DATES/INFO
	N OUT,%,DAS,PIEN,JIEN,DFN,DA
	S DFN=322
	S DA(1)=$$MCDIEN^BMXADOV2(DFN) I 'DA(1) Q
	S DAS=DA(1)_","
	S PIEN=$$SCHEMA("UPDATE MEDICAID DATES")
	S JIEN=$$SCHEMA("UPDATE MEDICAID INFO")
	D SS^BMXADO(.OUT,PIEN,DAS,("~~~~~MEDICAID~BMXADOV2~~"_JIEN_",PARENT"))
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	; 
PVTINS	; VIEW PRIVATE INSURANCE DATES/INFO
	N OUT,%,DAS,SIEN,DFN
	S DFN=96
	S DAS=DFN_","
	S SIEN=$$SCHEMA("UPDATE PVT INSURANCE INFO")
	D SS^BMXADO(.OUT,SIEN,DAS,"~~~~~PVTINS~BMXADOV2~~")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	; 
VISIT	; VIEW VISITS
	N OUT,%,SIEN,DFN
	S DFN=9285
	S SIEN=$$SCHEMA("VISITS")
	D SS^BMXADO(.OUT,SIEN,"","AA~3/21/1968~6/4/2004~100~~~~9285|C")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
DUPVIS	; DISPLAY POSSIBLE DUPLICATE VISITS
	N OUT,%,SIEN,DFN
	S DFN=9285
	S SIEN=$$SCHEMA("VISITS")
	D SS^BMXADO(.OUT,SIEN,"","~~~~~DUPV~BMXADOV2~9285|5/24/04@1PM|I|516|~")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDVIS	; ADD A NEW VISIT
	N OUT,%,SIEN,DFN,NODE
	S DFN=9285
	S SIEN=$$SCHEMA("VISITS")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^JUN 03, 2004@01:32^I^`9285^`516^A^`2"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	; 
POV	; DISPLAY POVS
	N OUT,%,SIEN,DFN
	S DFN=9285
	S SIEN=$$SCHEMA("VIEW POVS")
	D SS^BMXADO(.OUT,SIEN,"","AA~3/21/1965~6/4/2004~100~~~~9285|C")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDPOV	; ADD A POV TO AN EXISITING VISIT
	N OUT,%,SIEN,DFN,NODE
	S DFN=9285
	S SIEN=$$SCHEMA("UPDATE POVS")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^`8718^`9285^`8337^DM II ON EXPMTL MEDS^2^P"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	;
EDITPOV	; ADD A POV TO AN EXISITING VISIT
	N OUT,%,SIEN,DFN,NODE
	S DFN=1
	S SIEN=$$SCHEMA("UPDATE POVS")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="2815^`8718^`9285^`8337^DM II ON SPECIAL MEDS^2^P"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	; 
PROB	; DISPLAY PROBLEMS
	N OUT,%,SIEN,DFN
	S DFN=1373
	S SIEN=$$SCHEMA("VIEW PROBLEMS")
	D SS^BMXADO(.OUT,SIEN,"","AA~"_DFN_"~"_DFN_"~~~~~")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDPROB	; ADD A PROBLEM TO THE PROBLEM LIST
	N OUT,%,SIEN,DFN,NODE,NUM,LOC,ICD,TEXT,AIR,IEN
	S ICD=2477
	S TEXT="HYPERTENSION ON SPECIAL MEDS"
	S DFN=1373,LOC=DUZ(2)
	S SIEN=$$SCHEMA("UPDATE PROBLEMS")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)=U_"`"_ICD_U_"`"_DFN_U_DT_U_U_TEXT_U_"`"_LOC_U_DT_U_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	S IEN=+$P(OUT(1),"|",2) I '$D(^AUPNPROB(IEN,0)) Q
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	K OUT
	S NUM=$$NEXTNUM(DFN,LOC) I 'NUM Q
	S SIEN=$$SCHEMA("UPDATE PROBLEM NUMBER")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)=IEN_U_NUM_U_"A"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	; 
MEAS	; DISPLAY MEASUREMENTS
	N OUT,%,SIEN,DFN
	S DFN=2
	S SIEN=$$SCHEMA("VIEW MEASUREMENTS")
	D SS^BMXADO(.OUT,SIEN,"","AA~3/21/1965~6/4/2004~10~~~~"_DFN_"|WT|C")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDMEAS	; UPDATE V MEASUREMENT FILE
	N OUT,%,SIEN,DFN,NODE
	S DFN=2
	S SIEN=$$SCHEMA("UPDATE MEASUREMENTS")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^`2^`"_DFN_"^`7806^172.75"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	; 
MEDS	; DISPLAY MEDS
	N OUT,%,SIEN,DFN
	S DFN=152
	S SIEN=$$SCHEMA("VIEW MEDS")
	D SS^BMXADO(.OUT,SIEN,"","AA~1/1/1969~12/31/2004~10~~~~"_DFN_"|C")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDMEDS	; UPDATE V MED FILE
	N OUT,%,SIEN,DFN,NODE
	S DFN=2
	S SIEN=$$SCHEMA("UPDATE MEDS")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^`305^`"_DFN_"^`7806^T1T QID^40"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	;
LAB	; DISPLAY LAB TEST RESULTS
	N OUT,%,SIEN,DFN
	S DFN=280
	S SIEN=$$SCHEMA("VIEW LABS")
	D SS^BMXADO(.OUT,SIEN,"","AA~1/1/1965~12/31/2003~10~~~~"_DFN_"|175|C")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDLAB	; UPDATE V LAB
	N OUT,%,SIEN,DFN,NODE
	S DFN=2
	S SIEN=$$SCHEMA("UPDATE LABS")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^`175^`"_DFN_"^`7806^216"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	;
EXAMS	; DISPLAY EXAMS
	N OUT,%,SIEN,DFN
	S DFN=1373
	S SIEN=$$SCHEMA("VIEW EXAMS")
	D SS^BMXADO(.OUT,SIEN,"","AA~1/1/1966~12/31/2003~10~~~~"_DFN_"|6|C")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDEXAMS	; UPDATE V EXAM
	S DFN=2
	S SIEN=$$SCHEMA("UPDATE EXAMS")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^`6^`"_DFN_"^`7806^NORMAL"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	;
IMM	; DISPLAY IMMUNIZATIONS
	N OUT,%,SIEN,DFN
	S DFN=54
	S SIEN=$$SCHEMA("VIEW IMM")
	D SS^BMXADO(.OUT,SIEN,"","AA~1/1/1966~12/31/2003~10~~~~"_DFN_"|101|C")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
PROV	; DISPLAY PROVIDERS FOR A VISIT
	N OUT,%,SIEN,VIEN
	S VIEN=4703
	S SIEN=$$SCHEMA("VIEW PROV")
	D SS^BMXADO(.OUT,SIEN,"","AD~"_VIEN_"~"_VIEN_"~10~~~~")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDPROV	; UPDATE V PROVIDER FILE
	N OUT,%,SIEN,NODE,PIEN,DFN
	S PIEN=DUZ,DFN=2
	I $P(^DD(9000010.06,.01,0),U,3)["DIC(6" S PIEN=$P(^VA(200,PIEN,0),U,16) ; CONVERT FILE 200 TO FILE 16 IF NECESS.
	S SIEN=$$SCHEMA("UPDATE PROV")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^`"_PIEN_"^`"_DFN_"^`7806^P"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	;
PROC	; DISPLAY PROCEDURES
	N OUT,%,SIEN,DFN
	S DFN=235
	S SIEN=$$SCHEMA("VIEW PROCEDURES")
	D SS^BMXADO(.OUT,SIEN,"","AA~1/1/1965~12/31/2003~10~~~~"_DFN_"|C")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDPROC	; UPDATE V PROCEDURES FILE
	N OUT,%,SIEN,DFN,NODE
	S DFN=2
	S SIEN=$$SCHEMA("UPDATE PROCEDURES")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^`2198^`"_DFN_"^`7806^`8718"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	;
CPT	; DISPLAY CPT CODES
	N OUT,%,SIEN,DFN
	S VIEN=8082
	S SIEN=$$SCHEMA("VIEW CPT")
	D SS^BMXADO(.OUT,SIEN,"","AD~"_VIEN_"~"_VIEN_"~10~~~~")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDCPT	; UPDATE V CPT FILE
	N OUT,%,SIEN,DFN,NODE
	S DFN=2
	S SIEN=$$SCHEMA("UPDATE CPT")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^`10000^`"_DFN_"^`7806"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	;
PH	; DISPLAY PERSONAL HISTORY
	N OUT,%,SIEN,DFN
	S DFN=1373
	S SIEN=$$SCHEMA("VIEW PERSONAL HISTORY")
	D SS^BMXADO(.OUT,SIEN,"","AC~"_DFN_"~"_DFN_"~~~~~")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDPH	; UPDATE PERSONAL HX
	N OUT,%,SIEN,DFN,NODE,ICD,TEXT
	S ICD=2477
	S TEXT="PERSONAL HISTORY OF SERIOUS PROBLEMS"
	S DFN=2
	S SIEN=$$SCHEMA("UPDATE PERSONAL HISTORY")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^`11353^`"_DFN_"^2851219^"_TEXT_"^2810303"_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	;
FH	; DISPLAY FAMILY HX
	N OUT,%,SIEN,DFN
	S DFN=631
	S SIEN=$$SCHEMA("VIEW FAMILY HISTORY")
	D SS^BMXADO(.OUT,SIEN,"","AC~"_DFN_"~"_DFN_"~~~~~")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDFH	; UPDATE FAMILY HISTORY
	N OUT,%,SIEN,DFN,NODE,ICD,TEXT
	S ICD=2477
	S TEXT="FAMILY HISTORY OF SERIOUS PROBLEMS"
	S DFN=2
	S SIEN=$$SCHEMA("UPDATE FAMILY HISTORY")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^`7571^`"_DFN_"^2851219^"_TEXT_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	; 
HF	; DISPLAY HEALTH FACTORS
	N OUT,%,SIEN,DFN
	S DFN=2390
	S SIEN=$$SCHEMA("VIEW HEALTH FACTORS")
	D SS^BMXADO(.OUT,SIEN,"","AC"_"~"_DFN_"~"_DFN_"~~~~~")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	; 
ADDHF	; UPDATE HEALTH FACTORS FILE
	N OUT,%,SIEN,DFN,NODE
	S DFN=2
	S SIEN=$$SCHEMA("UPDATE HEALTH FACTORS")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^`3^`"_DFN_U_DT_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	;
REPRO	; DISPLAY REPRODUCTIVE FACTORS
	N OUT,%,SIEN,DFN
	S DFN=1373
	S SIEN=$$SCHEMA("VIEW REPRODUCTIVE FACTORS")
	D SS^BMXADO(.OUT,SIEN,"","B"_"~"_DFN_"~"_DFN_"~~~~~")
	D DISP(OUT) R %:$G(DTIME,60)
	K ^TMP("BMX ADO",$J)
	Q
	;
ADDREPRO	; UPDATE REPRODUCTIVE FACTORS
	; THE .O1 FIELD IS DINUMED
	; THEREFORE, THE FILER WILL AUTOMATICALLY SWITCH TO MOD MODE IF A RECORD ALREADY EXISTS FOR THIS PATIENT
	N OUT,%,SIEN,DFN,NODE
	S DFN=2
	; I $D(^AUPNREP(DFN)) G ERF
	S SIEN=$$SCHEMA("UPDATE REPRODUCTIVE FACTORS")
	D SS^BMXADO(.OUT,SIEN,"","") ; GET SCHEMA
	S NODE=$O(^TMP("BMX ADO",$J,999999),-1)+1
	S ^TMP("BMX ADO",$J,NODE)="^`"_DFN_"^G5P4LC3SA1TA0^"_DT_"^2^3040101^"_DT_$C(30)
	D DISP(OUT) R %:$G(DTIME,60)
	D BAFM^BMXADOF1(.OUT,$NA(^TMP("BMX ADO",$J)))
	K ^TMP("BMX ADO",$J)
	W !!,OUT S %=0 F  S %=$O(OUT(%)) Q:'%  W !,OUT(%)
	Q
	;