Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BMXADOXX

BMXADOXX.m

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