PSNHELP1.m

PSNHELP1 ;BIR/WRT-help text routine ; 02/08/00 8:39

 ;;4.0;NATIONAL DRUG FILE;**22,33,569**; 30 Oct 98;Build 3

 ;Reference to ^PSDRUG supported by DBIA #2352

 ;Reference to EN1^PSSUTIL supported by DBIA #3107

 ;

AUTO ; auto ndc help prompt

 W !!,"If you wish to start the automatic match by NDC Code process, respond ""Y""",!,"The automatic match by NDC will only run the first initial time you respond ""Y"""

 W !,"If you do not wish to start this process, respond ""N""" D UPAR^PSNHELP K ANS Q

VACLS ; class unmatched drug 1 or multiple help prompt

 W !!,"If you wish to class more than one unmatched drug (automatically looping by",!,"local generic name) respond ""Y""",!,"If you wish to class one unmatched drug, respond ""N""" D UPAR^PSNHELP K ANS1 Q

CL ; help prompt for reset classification option

 W !!," Enter VA Drug Classification code",!,"Format for code is 2 alphabetics followed by 3 numerics (i.e. AA999)"

 W !,"If the ""Merge National Drug File Data Into Local File"" option has been run",!,"for this drug, the Classification cannot be changed!" D UPAR^PSNHELP K PSNCLANS W:$D(NAM) !!,NAM Q

CLS ; help prompt to view class description

 W !!,"If you would like to view class descriptions, respond ""Y""",!,"If you do not wish to view class descriptions, respond ""N""" D UPAR^PSNHELP K ANS Q

CONVT W !!,"Enter a number for your choice or enter an ""N"" to leave this drug as a manually",!,"classed drug and proceed to the next entry to be matched. You may also enter an",!,"""^"" to exit.",! K PSNANS Q

CONVT1 W !!,"Press RETURN to see the rest of your choices, or you may enter a number",!

 W "for your choice or enter an ""N"" to leave this drug as a manually classed",!,"drug and proceed to the next entry to be matched. You may also enter an",!,"""^"" to exit.",! K PSNANS Q

CONVN ; help prompt for conversion rematch option

 W !!,"If you wish to start the Conversion Rematch process, respond ""Y""",!,"This option will only run the first initial time you respond ""Y"""

 W !,"If you do not wish to start this process, respond ""N""" D UPAR^PSNHELP K PSNAW Q

 Q

SETNULL K:$D(^PSNTRAN(+Y,0)) ^PSNTRAN(+Y,0)

 S PSNSAVEY=$G(Y) S X="PSSUTIL" X ^%ZOSF("TEST") I  D EN1^PSSUTIL(+$G(PSNSAVEY),0)

 S Y=$G(PSNSAVEY) K PSNSAVEY

 D UNMDRUG^PSSUTIL(+Y)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSNHELP1   2290     printed  Apr 09, 2024@21:21:02                                                                                                                                                                                                    Page 2

PSNHELP1  ;BIR/WRT-help text routine ; 02/08/00 8:39

 +1       ;;4.0;NATIONAL DRUG FILE;**22,33,569**; 30 Oct 98;Build 3

 +2       ;Reference to ^PSDRUG supported by DBIA #2352

 +3       ;Reference to EN1^PSSUTIL supported by DBIA #3107

 +4       ;

AUTO      ; auto ndc help prompt

 +1        WRITE !!,"If you wish to start the automatic match by NDC Code process, respond ""Y""",!,"The automatic match by NDC will only run the first initial time you respond ""Y"""

 +2        WRITE !,"If you do not wish to start this process, respond ""N"""

           DO UPAR^PSNHELP

           KILL ANS

           QUIT 

VACLS     ; class unmatched drug 1 or multiple help prompt

 +1        WRITE !!,"If you wish to class more than one unmatched drug (automatically looping by",!,"local generic name) respond ""Y""",!,"If you wish to class one unmatched drug, respond ""N"""

           DO UPAR^PSNHELP

           KILL ANS1

           QUIT 

CL        ; help prompt for reset classification option

 +1        WRITE !!," Enter VA Drug Classification code",!,"Format for code is 2 alphabetics followed by 3 numerics (i.e. AA999)"

 +2        WRITE !,"If the ""Merge National Drug File Data Into Local File"" option has been run",!,"for this drug, the Classification cannot be changed!"

           DO UPAR^PSNHELP

           KILL PSNCLANS

           if $DATA(NAM)

               WRITE !!,NAM

           QUIT 

CLS       ; help prompt to view class description

 +1        WRITE !!,"If you would like to view class descriptions, respond ""Y""",!,"If you do not wish to view class descriptions, respond ""N"""

           DO UPAR^PSNHELP

           KILL ANS

           QUIT 

CONVT      WRITE !!,"Enter a number for your choice or enter an ""N"" to leave this drug as a manually",!,"classed drug and proceed to the next entry to be matched. You may also enter an",!,"""^"" to exit.",!

           KILL PSNANS

           QUIT 

CONVT1     WRITE !!,"Press RETURN to see the rest of your choices, or you may enter a number",!

 +1        WRITE "for your choice or enter an ""N"" to leave this drug as a manually classed",!,"drug and proceed to the next entry to be matched. You may also enter an",!,"""^"" to exit.",!

           KILL PSNANS

           QUIT 

CONVN     ; help prompt for conversion rematch option

 +1        WRITE !!,"If you wish to start the Conversion Rematch process, respond ""Y""",!,"This option will only run the first initial time you respond ""Y"""

 +2        WRITE !,"If you do not wish to start this process, respond ""N"""

           DO UPAR^PSNHELP

           KILL PSNAW

           QUIT 

 +3        QUIT 

SETNULL    if $DATA(^PSNTRAN(+Y,0))

               KILL ^PSNTRAN(+Y,0)

 +1        SET PSNSAVEY=$GET(Y)

           SET X="PSSUTIL"

           XECUTE ^%ZOSF("TEST")

          IF $TEST

               DO EN1^PSSUTIL(+$GET(PSNSAVEY),0)

 +2        SET Y=$GET(PSNSAVEY)

           KILL PSNSAVEY

 +3        DO UNMDRUG^PSSUTIL(+Y)

 +4        QUIT