Routine: AUPNVHLP

AUPNVHLP ; IHS/CMI/LAB - HELP FOR V FILES ; 22 Mar 2010  10:33 AM

 ;;2.0;IHS PCC SUITE;**2,4,22**;MAY 14, 2009;Build 6

V4114 ;EP - help for file .41, field .14

 D EN^DDIOL("Asthma 'Control' is assessed at each visit and determines ongoing",,"!!")

 D EN^DDIOL("management.  Asthma control is defined as: a) well controlled, b) not",,"!")

 D EN^DDIOL("well controlled, or c) very poorly controlled, based on the patient's",,"!")

 D EN^DDIOL("current and recent symptoms, and the need for oral steroid treatment.",,"!")

INRG ;EP - help for file .51 field inr goal

 D EN^DDIOL("The INR Goal indicates the ratio at which anticoagulation therapy is",,"!")

 D EN^DDIOL("directed.  The INR goal is defined as a minimum INR value (range 2-3)",,"!")

 D EN^DDIOL("and maximum INR value (range 304).  You can use .5 integers, such as",,"!")

 D EN^DDIOL("2, 2.5, 3, 3.5, and 4.  An example is 2.5/4.",,"!")

INRDUR ;EP - help for file .51, field duration

 D EN^DDIOL("Indications for warfarin often have explicit durations of therapy that",,"!!")

 D EN^DDIOL("occur at 3 months, 6 months, or 1 year. The duration can also be indefinite.",,"!")

 D EN^DDIOL("You can enter 3, 6, or 1, which indicates t+91d, t+182d, t+365d. Enter IND or",,"!")

 D EN^DDIOL("leave this field blank to indicate an indefinite time period.",,"!")

DTSD ;EP - help for file .51, field start date

EN1(Y,DA) ;EP -  INPUT TRANSFORM FOR NAME (.01) FIELD OF QUALIFIER

 ; SUB-FILE OF V MEASUREMENT  FILE.

 ;   Input variables:  Y is entry in 120.52 being looked up

 ;                     DA is entry in V MEASUREMENT where Qualifier data

 ;                        is being selected.

 ;   Function value: 1 if can select this Qualifier, else 0.

 N GMRVFXN,GMRVTYP S GMRVFXN=0

 S GMRVTYP=$P($G(^AUPNVMSR(DA,0)),"^",1)

 I GMRVTYP>0,$D(^GMRD(120.52,"C",GMRVTYP,+Y)) S GMRVFXN=1

 Q GMRVFXN

SL6404 ;EP

 NEW LIST,AUPNX

 K LIST

 S AUPNX=$$SUBLST^BSTSAPI("LIST","EHR LABOR ESTABLISHED")

 S AUPNX=0 F  S AUPNX=$O(LIST(AUPNX)) Q:AUPNX'=+AUPNX  D EN^DDIOL($P(LIST(AUPNX),U,1),,"!"),EN^DDIOL($P(LIST(AUPNX),U,3),,"?25")   ;W !,LIST(X)

SL6407 ;EP

 NEW LIST,AUPNX

 K LIST

 S AUPNX=$$SUBLST^BSTSAPI("LIST","EHR LABOR INDUCTION TYPE")

 S AUPNX=0 F  S AUPNX=$O(LIST(AUPNX)) Q:AUPNX'=+AUPNX  D EN^DDIOL($P(LIST(AUPNX),U,1),,"!"),EN^DDIOL($P(LIST(AUPNX),U,3),,"?25")   ;W !,LIST(X)

AUPNVHLP  ; IHS/CMI/LAB - HELP FOR V FILES ; 22 Mar 2010  10:33 AM

 +1       ;;2.0;IHS PCC SUITE;**2,4,22**;MAY 14, 2009;Build 6

 +2       ;

V4114     ;EP - help for file .41, field .14

 +1        DO EN^DDIOL("Asthma 'Control' is assessed at each visit and determines ongoing",,"!!")

 +2        DO EN^DDIOL("management.  Asthma control is defined as: a) well controlled, b) not",,"!")

 +3        DO EN^DDIOL("well controlled, or c) very poorly controlled, based on the patient's",,"!")

 +4        DO EN^DDIOL("current and recent symptoms, and the need for oral steroid treatment.",,"!")

 +5        QUIT

INRG      ;EP - help for file .51 field inr goal

 +1        DO EN^DDIOL("The INR Goal indicates the ratio at which anticoagulation therapy is",,"!")

 +2        DO EN^DDIOL("directed.  The INR goal is defined as a minimum INR value (range 2-3)",,"!")

 +3        DO EN^DDIOL("and maximum INR value (range 304).  You can use .5 integers, such as",,"!")

 +4        DO EN^DDIOL("2, 2.5, 3, 3.5, and 4.  An example is 2.5/4.",,"!")

 +5        QUIT

INRDUR    ;EP - help for file .51, field duration

 +1        DO EN^DDIOL("Indications for warfarin often have explicit durations of therapy that",,"!!")

 +2        DO EN^DDIOL("occur at 3 months, 6 months, or 1 year. The duration can also be indefinite.",,"!")

 +3        DO EN^DDIOL("You can enter 3, 6, or 1, which indicates t+91d, t+182d, t+365d. Enter IND or",,"!")

 +4        DO EN^DDIOL("leave this field blank to indicate an indefinite time period.",,"!")

 +5        QUIT

DTSD      ;EP - help for file .51, field start date

 +1        QUIT

EN1(Y,DA) ;EP -  INPUT TRANSFORM FOR NAME (.01) FIELD OF QUALIFIER

 +1       ; SUB-FILE OF V MEASUREMENT  FILE.

 +2       ;   Input variables:  Y is entry in 120.52 being looked up

 +3       ;                     DA is entry in V MEASUREMENT where Qualifier data

 +4       ;                        is being selected.

 +5       ;   Function value: 1 if can select this Qualifier, else 0.

 +6       ;

 +7        NEW GMRVFXN,GMRVTYP

           SET GMRVFXN=0

 +8        SET GMRVTYP=$PIECE($GET(^AUPNVMSR(DA,0)),"^",1)

 +9        IF GMRVTYP>0

               IF $DATA(^GMRD(120.52,"C",GMRVTYP,+Y))

                   SET GMRVFXN=1

 +10       QUIT GMRVFXN

 +11      ;

SL6404    ;EP

 +1        NEW LIST,AUPNX

 +2        KILL LIST

 +3        SET AUPNX=$$SUBLST^BSTSAPI("LIST","EHR LABOR ESTABLISHED")

 +4       ;W !,LIST(X)

           SET AUPNX=0

FOR

               SET AUPNX=$ORDER(LIST(AUPNX))

               IF AUPNX'=+AUPNX

                   QUIT

               DO EN^DDIOL($PIECE(LIST(AUPNX),U,1),,"!")

               DO EN^DDIOL($PIECE(LIST(AUPNX),U,3),,"?25")

 +5        QUIT

SL6407    ;EP

 +1        NEW LIST,AUPNX

 +2        KILL LIST

 +3        SET AUPNX=$$SUBLST^BSTSAPI("LIST","EHR LABOR INDUCTION TYPE")

 +4       ;W !,LIST(X)

           SET AUPNX=0

FOR

               SET AUPNX=$ORDER(LIST(AUPNX))

               IF AUPNX'=+AUPNX

                   QUIT

               DO EN^DDIOL($PIECE(LIST(AUPNX),U,1),,"!")

               DO EN^DDIOL($PIECE(LIST(AUPNX),U,3),,"?25")

 +5        QUIT

AUPNVHLP.m