Routine: PSJVI001

PSJVI001 ;BIR/-APR-1994;

 ;;4.5; Inpatient Medications ;;7 Oct 94

 F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q Q

 ;;^UTILITY(U,$J,"OPT",1553,0)

 ;;=PSJV MAN CREATE PD^Create Primary Drug (Manual)^^R^^^^^^^^PSJV

 ;;^UTILITY(U,$J,"OPT",1553,1,0)

 ;;=^^4^4^2920323^^^^

 ;;^UTILITY(U,$J,"OPT",1553,1,1,0)

 ;;=  This allows the user to create primary drugs and tie them to current

 ;;^UTILITY(U,$J,"OPT",1553,1,2,0)

 ;;=entries in the drug file.  Primary drugs are entries without a strength

 ;;^UTILITY(U,$J,"OPT",1553,1,3,0)

 ;;=or dose form, which are used in entering Medication orders by non-pharmacy

 ;;^UTILITY(U,$J,"OPT",1553,1,4,0)

 ;;=personnel.

 ;;^UTILITY(U,$J,"OPT",1553,25)

 ;;=PSJPRE4

 ;;^UTILITY(U,$J,"OPT",1553,"U")

 ;;=CREATE PRIMARY DRUG (MANUAL)

 ;;^UTILITY(U,$J,"OPT",1557,0)

 ;;=PSJV MGR^Inpatient Meds V4 Pre-Release Menu^^M^^^^^^^^PSJV

 ;;^UTILITY(U,$J,"OPT",1557,1,0)

 ;;=^^3^3^2940301^^^^

 ;;^UTILITY(U,$J,"OPT",1557,1,1,0)

 ;;=  This is a set of options that allow a site to set up various parts of

 ;;^UTILITY(U,$J,"OPT",1557,1,2,0)

 ;;=the Inpatient Medications package so that the site can use the package

 ;;^UTILITY(U,$J,"OPT",1557,1,3,0)

 ;;=immediately after installing version 4 of the package.

 ;;^UTILITY(U,$J,"OPT",1557,10,0)

 ;;=^19.01PI^22^22

 ;;^UTILITY(U,$J,"OPT",1557,10,6,0)

 ;;=1553^

 ;;^UTILITY(U,$J,"OPT",1557,10,6,"^")

 ;;=PSJV MAN CREATE PD

 ;;^UTILITY(U,$J,"OPT",1557,10,9,0)

 ;;=1559^

 ;;^UTILITY(U,$J,"OPT",1557,10,9,"^")

 ;;=PSJV DRG PRINT

 ;;^UTILITY(U,$J,"OPT",1557,10,10,0)

 ;;=3751^

 ;;^UTILITY(U,$J,"OPT",1557,10,10,"^")

 ;;=PSJV ACP

 ;;^UTILITY(U,$J,"OPT",1557,10,11,0)

 ;;=3752^

 ;;^UTILITY(U,$J,"OPT",1557,10,11,"^")

 ;;=PSJV AC

 ;;^UTILITY(U,$J,"OPT",1557,10,13,0)

 ;;=3754^

 ;;^UTILITY(U,$J,"OPT",1557,10,14,0)

 ;;=3755^

 ;;^UTILITY(U,$J,"OPT",1557,10,14,"^")

 ;;=PSJV PRIMARY/IV DRUG PRINT

 ;;^UTILITY(U,$J,"OPT",1557,10,16,0)

 ;;=3757^^

 ;;^UTILITY(U,$J,"OPT",1557,10,16,"^")

 ;;=PSJV IV FLUID SOLUTIONS PRINT

 ;;^UTILITY(U,$J,"OPT",1557,10,17,0)

 ;;=3758^

 ;;^UTILITY(U,$J,"OPT",1557,10,17,"^")

 ;;=PSJV PD/DD PRINT

 ;;^UTILITY(U,$J,"OPT",1557,10,18,0)

 ;;=3829^^

 ;;^UTILITY(U,$J,"OPT",1557,10,18,"^")

 ;;=PSJV EDIT PROVIDER

 ;;^UTILITY(U,$J,"OPT",1557,10,19,0)

 ;;=3830^^

 ;;^UTILITY(U,$J,"OPT",1557,10,19,"^")

 ;;=PSJV PROVIDER PRINT

 ;;^UTILITY(U,$J,"OPT",1557,10,20,0)

 ;;=3831^

 ;;^UTILITY(U,$J,"OPT",1557,10,20,"^")

 ;;=PSJV SYNONYM MOVE

 ;;^UTILITY(U,$J,"OPT",1557,10,21,0)

 ;;=3832^

 ;;^UTILITY(U,$J,"OPT",1557,10,21,"^")

 ;;=PSJV NPU REPORT

 ;;^UTILITY(U,$J,"OPT",1557,10,22,0)

 ;;=4284

 ;;^UTILITY(U,$J,"OPT",1557,10,22,"^")

 ;;=PSJV ADDITIVE TYPE PRINT

 ;;^UTILITY(U,$J,"OPT",1557,99)

 ;;=55980,34688

 ;;^UTILITY(U,$J,"OPT",1557,"U")

 ;;=INPATIENT MEDS V4 PRE-RELEASE

 ;;^UTILITY(U,$J,"OPT",1559,0)

 ;;=PSJV DRG PRINT^Drug Print^^R^^^^^^^^PSJV

 ;;^UTILITY(U,$J,"OPT",1559,1,0)

 ;;=^^3^3^2910820^^

 ;;^UTILITY(U,$J,"OPT",1559,1,1,0)

 ;;=  This prints the entries of the site's Drug file, grouped together as

 ;;^UTILITY(U,$J,"OPT",1559,1,2,0)

 ;;=the Create Primary Drug option would group them.  This print may help

 ;;^UTILITY(U,$J,"OPT",1559,1,3,0)

 ;;=the site in deciding their primary drugs.

 ;;^UTILITY(U,$J,"OPT",1559,25)

 ;;=PSJPRE45

 ;;^UTILITY(U,$J,"OPT",1559,"U")

 ;;=DRUG PRINT

 ;;^UTILITY(U,$J,"OPT",3751,0)

 ;;=PSJV ACP^Auto-Create Print^^R^^^^^^^^PSJV

 ;;^UTILITY(U,$J,"OPT",3751,1,0)

 ;;=^^3^3^2910830^

 ;;^UTILITY(U,$J,"OPT",3751,1,1,0)

 ;;=  This allows the user to print the Unit Dose and IV entries from the local

 ;;^UTILITY(U,$J,"OPT",3751,1,2,0)

 ;;=Drug file and the Primary Drugs that will be created for these entries by

 ;;^UTILITY(U,$J,"OPT",3751,1,3,0)

 ;;=the auto-create option.

 ;;^UTILITY(U,$J,"OPT",3751,25)

 ;;=PSJPRE46

 ;;^UTILITY(U,$J,"OPT",3751,"U")

 ;;=AUTO-CREATE PRINT

 ;;^UTILITY(U,$J,"OPT",3752,0)

 ;;=PSJV AC^Auto-Create Primary Drug^^R^^^^^^^^PSJV

 ;;^UTILITY(U,$J,"OPT",3752,1,0)

 ;;=^^3^3^2920323^^

 ;;^UTILITY(U,$J,"OPT",3752,1,1,0)

 ;;=  This allows the user to auto-create Primary Drugs for the Unit Dose and

 ;;^UTILITY(U,$J,"OPT",3752,1,2,0)

 ;;=IV entries in the user's Drug file.  The National Drug File must be on-

 ;;^UTILITY(U,$J,"OPT",3752,1,3,0)

 ;;=line in order for this to work.

 ;;^UTILITY(U,$J,"OPT",3752,25)

 ;;=PSJPRE47

 ;;^UTILITY(U,$J,"OPT",3752,"U")

 ;;=AUTO-CREATE PRIMARY DRUG

 ;;^UTILITY(U,$J,"OPT",3755,0)

 ;;=PSJV PRIMARY/IV DRUG PRINT^IV Drug Matched to Primary Drug Print^^R^^^^^^^^PSJV

 ;;^UTILITY(U,$J,"OPT",3755,1,0)

 ;;=^^4^4^2911002^

 ;;^UTILITY(U,$J,"OPT",3755,1,1,0)

 ;;=  This prints IV additives and solutions, and the generic drug and primary

PSJVI001  ;BIR/-APR-1994;

 +1       ;;4.5; Inpatient Medications ;;7 Oct 94

 +2        FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT

 +1       ;;^UTILITY(U,$J,"OPT",1553,0)

 +2       ;;=PSJV MAN CREATE PD^Create Primary Drug (Manual)^^R^^^^^^^^PSJV

 +3       ;;^UTILITY(U,$J,"OPT",1553,1,0)

 +4       ;;=^^4^4^2920323^^^^

 +5       ;;^UTILITY(U,$J,"OPT",1553,1,1,0)

 +6       ;;=  This allows the user to create primary drugs and tie them to current

 +7       ;;^UTILITY(U,$J,"OPT",1553,1,2,0)

 +8       ;;=entries in the drug file.  Primary drugs are entries without a strength

 +9       ;;^UTILITY(U,$J,"OPT",1553,1,3,0)

 +10      ;;=or dose form, which are used in entering Medication orders by non-pharmacy

 +11      ;;^UTILITY(U,$J,"OPT",1553,1,4,0)

 +12      ;;=personnel.

 +13      ;;^UTILITY(U,$J,"OPT",1553,25)

 +14      ;;=PSJPRE4

 +15      ;;^UTILITY(U,$J,"OPT",1553,"U")

 +16      ;;=CREATE PRIMARY DRUG (MANUAL)

 +17      ;;^UTILITY(U,$J,"OPT",1557,0)

 +18      ;;=PSJV MGR^Inpatient Meds V4 Pre-Release Menu^^M^^^^^^^^PSJV

 +19      ;;^UTILITY(U,$J,"OPT",1557,1,0)

 +20      ;;=^^3^3^2940301^^^^

 +21      ;;^UTILITY(U,$J,"OPT",1557,1,1,0)

 +22      ;;=  This is a set of options that allow a site to set up various parts of

 +23      ;;^UTILITY(U,$J,"OPT",1557,1,2,0)

 +24      ;;=the Inpatient Medications package so that the site can use the package

 +25      ;;^UTILITY(U,$J,"OPT",1557,1,3,0)

 +26      ;;=immediately after installing version 4 of the package.

 +27      ;;^UTILITY(U,$J,"OPT",1557,10,0)

 +28      ;;=^19.01PI^22^22

 +29      ;;^UTILITY(U,$J,"OPT",1557,10,6,0)

 +30      ;;=1553^

 +31      ;;^UTILITY(U,$J,"OPT",1557,10,6,"^")

 +32      ;;=PSJV MAN CREATE PD

 +33      ;;^UTILITY(U,$J,"OPT",1557,10,9,0)

 +34      ;;=1559^

 +35      ;;^UTILITY(U,$J,"OPT",1557,10,9,"^")

 +36      ;;=PSJV DRG PRINT

 +37      ;;^UTILITY(U,$J,"OPT",1557,10,10,0)

 +38      ;;=3751^

 +39      ;;^UTILITY(U,$J,"OPT",1557,10,10,"^")

 +40      ;;=PSJV ACP

 +41      ;;^UTILITY(U,$J,"OPT",1557,10,11,0)

 +42      ;;=3752^

 +43      ;;^UTILITY(U,$J,"OPT",1557,10,11,"^")

 +44      ;;=PSJV AC

 +45      ;;^UTILITY(U,$J,"OPT",1557,10,13,0)

 +46      ;;=3754^

 +47      ;;^UTILITY(U,$J,"OPT",1557,10,14,0)

 +48      ;;=3755^

 +49      ;;^UTILITY(U,$J,"OPT",1557,10,14,"^")

 +50      ;;=PSJV PRIMARY/IV DRUG PRINT

 +51      ;;^UTILITY(U,$J,"OPT",1557,10,16,0)

 +52      ;;=3757^^

 +53      ;;^UTILITY(U,$J,"OPT",1557,10,16,"^")

 +54      ;;=PSJV IV FLUID SOLUTIONS PRINT

 +55      ;;^UTILITY(U,$J,"OPT",1557,10,17,0)

 +56      ;;=3758^

 +57      ;;^UTILITY(U,$J,"OPT",1557,10,17,"^")

 +58      ;;=PSJV PD/DD PRINT

 +59      ;;^UTILITY(U,$J,"OPT",1557,10,18,0)

 +60      ;;=3829^^

 +61      ;;^UTILITY(U,$J,"OPT",1557,10,18,"^")

 +62      ;;=PSJV EDIT PROVIDER

 +63      ;;^UTILITY(U,$J,"OPT",1557,10,19,0)

 +64      ;;=3830^^

 +65      ;;^UTILITY(U,$J,"OPT",1557,10,19,"^")

 +66      ;;=PSJV PROVIDER PRINT

 +67      ;;^UTILITY(U,$J,"OPT",1557,10,20,0)

 +68      ;;=3831^

 +69      ;;^UTILITY(U,$J,"OPT",1557,10,20,"^")

 +70      ;;=PSJV SYNONYM MOVE

 +71      ;;^UTILITY(U,$J,"OPT",1557,10,21,0)

 +72      ;;=3832^

 +73      ;;^UTILITY(U,$J,"OPT",1557,10,21,"^")

 +74      ;;=PSJV NPU REPORT

 +75      ;;^UTILITY(U,$J,"OPT",1557,10,22,0)

 +76      ;;=4284

 +77      ;;^UTILITY(U,$J,"OPT",1557,10,22,"^")

 +78      ;;=PSJV ADDITIVE TYPE PRINT

 +79      ;;^UTILITY(U,$J,"OPT",1557,99)

 +80      ;;=55980,34688

 +81      ;;^UTILITY(U,$J,"OPT",1557,"U")

 +82      ;;=INPATIENT MEDS V4 PRE-RELEASE

 +83      ;;^UTILITY(U,$J,"OPT",1559,0)

 +84      ;;=PSJV DRG PRINT^Drug Print^^R^^^^^^^^PSJV

 +85      ;;^UTILITY(U,$J,"OPT",1559,1,0)

 +86      ;;=^^3^3^2910820^^

 +87      ;;^UTILITY(U,$J,"OPT",1559,1,1,0)

 +88      ;;=  This prints the entries of the site's Drug file, grouped together as

 +89      ;;^UTILITY(U,$J,"OPT",1559,1,2,0)

 +90      ;;=the Create Primary Drug option would group them.  This print may help

 +91      ;;^UTILITY(U,$J,"OPT",1559,1,3,0)

 +92      ;;=the site in deciding their primary drugs.

 +93      ;;^UTILITY(U,$J,"OPT",1559,25)

 +94      ;;=PSJPRE45

 +95      ;;^UTILITY(U,$J,"OPT",1559,"U")

 +96      ;;=DRUG PRINT

 +97      ;;^UTILITY(U,$J,"OPT",3751,0)

 +98      ;;=PSJV ACP^Auto-Create Print^^R^^^^^^^^PSJV

 +99      ;;^UTILITY(U,$J,"OPT",3751,1,0)

 +100     ;;=^^3^3^2910830^

 +101     ;;^UTILITY(U,$J,"OPT",3751,1,1,0)

 +102     ;;=  This allows the user to print the Unit Dose and IV entries from the local

 +103     ;;^UTILITY(U,$J,"OPT",3751,1,2,0)

 +104     ;;=Drug file and the Primary Drugs that will be created for these entries by

 +105     ;;^UTILITY(U,$J,"OPT",3751,1,3,0)

 +106     ;;=the auto-create option.

 +107     ;;^UTILITY(U,$J,"OPT",3751,25)

 +108     ;;=PSJPRE46

 +109     ;;^UTILITY(U,$J,"OPT",3751,"U")

 +110     ;;=AUTO-CREATE PRINT

 +111     ;;^UTILITY(U,$J,"OPT",3752,0)

 +112     ;;=PSJV AC^Auto-Create Primary Drug^^R^^^^^^^^PSJV

 +113     ;;^UTILITY(U,$J,"OPT",3752,1,0)

 +114     ;;=^^3^3^2920323^^

 +115     ;;^UTILITY(U,$J,"OPT",3752,1,1,0)

 +116     ;;=  This allows the user to auto-create Primary Drugs for the Unit Dose and

 +117     ;;^UTILITY(U,$J,"OPT",3752,1,2,0)

 +118     ;;=IV entries in the user's Drug file.  The National Drug File must be on-

 +119     ;;^UTILITY(U,$J,"OPT",3752,1,3,0)

 +120     ;;=line in order for this to work.

 +121     ;;^UTILITY(U,$J,"OPT",3752,25)

 +122     ;;=PSJPRE47

 +123     ;;^UTILITY(U,$J,"OPT",3752,"U")

 +124     ;;=AUTO-CREATE PRIMARY DRUG

 +125     ;;^UTILITY(U,$J,"OPT",3755,0)

 +126     ;;=PSJV PRIMARY/IV DRUG PRINT^IV Drug Matched to Primary Drug Print^^R^^^^^^^^PSJV

 +127     ;;^UTILITY(U,$J,"OPT",3755,1,0)

 +128     ;;=^^4^4^2911002^

 +129     ;;^UTILITY(U,$J,"OPT",3755,1,1,0)

 +130     ;;=  This prints IV additives and solutions, and the generic drug and primary

PSJVI001.m