Routine: APCDO004

APCDO004 ; IHS/CMI/TUCSON - NO DESCRIPTION PROVIDED ;

 ;;2.0;IHS RPMS/PCC Data Entry;;MAR 09, 1999

 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,"PRO",1730,15)

 ;;=D RESET^APCDEFL

 ;;^UTILITY(U,$J,"PRO",1730,20)

 ;;=D MNE^APCDEFL

 ;;^UTILITY(U,$J,"PRO",1730,99)

 ;;=57510,28764

 ;;^UTILITY(U,$J,"PRO",1731,0)

 ;;=APCDEF PL CALL^Edit Problem List^^A^^^^^^^^IHS RPMS/PCC Data Entry

 ;;^UTILITY(U,$J,"PRO",1731,4)

 ;;=^^^CALLS PL List Temp

 ;;^UTILITY(U,$J,"PRO",1731,15)

 ;;=S VALMBCK="R" D INIT^APCDEFL

 ;;^UTILITY(U,$J,"PRO",1731,20)

 ;;=D EN1^APCDPL

 ;;^UTILITY(U,$J,"PRO",1731,99)

 ;;=57510,28764

 ;;^UTILITY(U,$J,"PRO",1732,0)

 ;;=APCDEL HISTORICAL MENU^Historical Patient Data Items^^M^^^^^^^^IHS RPMS/PCC Data Entry

 ;;^UTILITY(U,$J,"PRO",1732,4)

 ;;=26

 ;;^UTILITY(U,$J,"PRO",1732,10,0)

 ;;=^101.01PA^5^5

 ;;^UTILITY(U,$J,"PRO",1732,10,1,0)

 ;;=1710^AD^5

 ;;^UTILITY(U,$J,"PRO",1732,10,1,"^")

 ;;=APCDEL ADD VISIT ITEM

 ;;^UTILITY(U,$J,"PRO",1732,10,2,0)

 ;;=1715^HS^25

 ;;^UTILITY(U,$J,"PRO",1732,10,2,"^")

 ;;=APCDEL HEALTH SUMMARY

 ;;^UTILITY(U,$J,"PRO",1732,10,3,0)

 ;;=1721^Q^99

 ;;^UTILITY(U,$J,"PRO",1732,10,3,"^")

 ;;=APCDEL GO BACK

 ;;^UTILITY(U,$J,"PRO",1732,10,4,0)

 ;;=1711^MD^10

 ;;^UTILITY(U,$J,"PRO",1732,10,4,"^")

 ;;=APCDEL MODIFY VISIT ITEM

 ;;^UTILITY(U,$J,"PRO",1732,10,5,0)

 ;;=1712^DE^15

 ;;^UTILITY(U,$J,"PRO",1732,10,5,"^")

 ;;=APCDEL DELETE VISIT ITEM

 ;;^UTILITY(U,$J,"PRO",1732,15)

 ;;=K APCDSECM

 ;;^UTILITY(U,$J,"PRO",1732,20)

 ;;=S APCDSECM=2

 ;;^UTILITY(U,$J,"PRO",1732,26)

 ;;=D SHOW^VALM

 ;;^UTILITY(U,$J,"PRO",1732,28)

 ;;=Select Action:

 ;;^UTILITY(U,$J,"PRO",1732,29)

 ;;=AD

 ;;^UTILITY(U,$J,"PRO",1732,99)

 ;;=57735,40862

 ;;^UTILITY(U,$J,"PRO",1733,0)

 ;;=APCDEL HISTORICAL MNEMONICS^Historical Data Entry^^A^^^^^^^^IHS RPMS/PCC Data Entry

 ;;^UTILITY(U,$J,"PRO",1733,4)

 ;;=25

 ;;^UTILITY(U,$J,"PRO",1733,20)

 ;;=D HIST^APCDEL1

 ;;^UTILITY(U,$J,"PRO",1733,99)

 ;;=57510,28764

 ;;^UTILITY(U,$J,"PRO",1734,0)

 ;;=APCD NEXT SCREEN^Next Screen^^A^^^^^^^^LIST MANAGER

 ;;^UTILITY(U,$J,"PRO",1734,1,0)

 ;;=^^2^2^2920519^^^

 ;;^UTILITY(U,$J,"PRO",1734,1,1,0)

 ;;=This action will allow the user to view the next screen

 ;;^UTILITY(U,$J,"PRO",1734,1,2,0)

 ;;=of entries, if any exist.

 ;;^UTILITY(U,$J,"PRO",1734,2,0)

 ;;=^101.02A^1^1

 ;;^UTILITY(U,$J,"PRO",1734,2,1,0)

 ;;=NX

 ;;^UTILITY(U,$J,"PRO",1734,2,"B","NX",1)

;;=

 ;;^UTILITY(U,$J,"PRO",1734,20)

 ;;=D NEXT^VALM4

 ;;^UTILITY(U,$J,"PRO",1734,99)

 ;;=57510,28764

 ;;^UTILITY(U,$J,"PRO",1735,0)

 ;;=APCD PREVIOUS SCREEN^Previous Screen^^A^^^^^^^^LIST MANAGER

 ;;^UTILITY(U,$J,"PRO",1735,1,0)

 ;;=^^2^2^2920113^^

 ;;^UTILITY(U,$J,"PRO",1735,1,1,0)

 ;;=This action will allow the user to view the previous screen

 ;;^UTILITY(U,$J,"PRO",1735,1,2,0)

 ;;=of entries, if any exist.

 ;;^UTILITY(U,$J,"PRO",1735,2,0)

 ;;=^101.02A^3^3

 ;;^UTILITY(U,$J,"PRO",1735,2,1,0)

 ;;=PR

 ;;^UTILITY(U,$J,"PRO",1735,2,2,0)

 ;;=BK

 ;;^UTILITY(U,$J,"PRO",1735,2,3,0)

 ;;=PR

 ;;^UTILITY(U,$J,"PRO",1735,2,"B","BK",2)

;;=

 ;;^UTILITY(U,$J,"PRO",1735,2,"B","PR",1)

;;=

 ;;^UTILITY(U,$J,"PRO",1735,2,"B","PR",3)

;;=

 ;;^UTILITY(U,$J,"PRO",1735,20)

 ;;=D PREV^VALM4

 ;;^UTILITY(U,$J,"PRO",1735,99)

 ;;=57510,28764

 ;;^UTILITY(U,$J,"PRO",1736,0)

 ;;=APCDEH HISTORICAL ITEMS MENU^Historical Patient Data Items^^M^^^^^^^^IHS RPMS/PCC Data Entry

 ;;^UTILITY(U,$J,"PRO",1736,4)

 ;;=26

 ;;^UTILITY(U,$J,"PRO",1736,10,0)

 ;;=^101.01PA^6^6

 ;;^UTILITY(U,$J,"PRO",1736,10,1,0)

 ;;=1737^AD^5

 ;;^UTILITY(U,$J,"PRO",1736,10,1,"^")

 ;;=APCDEH ADD ITEM

 ;;^UTILITY(U,$J,"PRO",1736,10,2,0)

 ;;=1740^HS^25

 ;;^UTILITY(U,$J,"PRO",1736,10,2,"^")

 ;;=APCDEH HEALTH SUMMARY

 ;;^UTILITY(U,$J,"PRO",1736,10,3,0)

 ;;=1699^Q^99

 ;;^UTILITY(U,$J,"PRO",1736,10,3,"^")

 ;;=APCD QUIT

 ;;^UTILITY(U,$J,"PRO",1736,10,4,0)

 ;;=1738^MD^10

 ;;^UTILITY(U,$J,"PRO",1736,10,4,"^")

 ;;=APCDEH MODIFY ITEM

 ;;^UTILITY(U,$J,"PRO",1736,10,5,0)

 ;;=1739^DE^15

 ;;^UTILITY(U,$J,"PRO",1736,10,5,"^")

 ;;=APCDEH DELETE ITEM

 ;;^UTILITY(U,$J,"PRO",1736,10,6,0)

 ;;=1741^PL^50

 ;;^UTILITY(U,$J,"PRO",1736,10,6,"^")

 ;;=APCDEH PROBLEM LIST

 ;;^UTILITY(U,$J,"PRO",1736,15)

;;=

 ;;^UTILITY(U,$J,"PRO",1736,20)

;;=

 ;;^UTILITY(U,$J,"PRO",1736,26)

 ;;=D SHOW^VALM

 ;;^UTILITY(U,$J,"PRO",1736,28)

 ;;=Select Action:

 ;;^UTILITY(U,$J,"PRO",1736,29)

 ;;=AD

 ;;^UTILITY(U,$J,"PRO",1736,99)

 ;;=57662,26253

 ;;^UTILITY(U,$J,"PRO",1737,0)

 ;;=APCDEH ADD ITEM^Add Item^^A^^^^^^^^IHS RPMS/PCC Data Entry

 ;;^UTILITY(U,$J,"PRO",1737,20)

 ;;=D ADD^APCDEH1

 ;;^UTILITY(U,$J,"PRO",1737,99)

 ;;=57510,28764

 ;;^UTILITY(U,$J,"PRO",1738,0)

 ;;=APCDEH MODIFY ITEM^Modify Item^^A^^^^^^^^IHS RPMS/PCC Data Entry

 ;;^UTILITY(U,$J,"PRO",1738,20)

 ;;=D MODIFY^APCDEH1

 ;;^UTILITY(U,$J,"PRO",1738,99)

 ;;=57510,28764

 ;;^UTILITY(U,$J,"PRO",1739,0)

 ;;=APCDEH DELETE ITEM^Delete Item^^A^^^^^^^^IHS RPMS/PCC Data Entry

APCDO004  ; IHS/CMI/TUCSON - NO DESCRIPTION PROVIDED ;

 +1       ;;2.0;IHS RPMS/PCC Data Entry;;MAR 09, 1999

 +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,"PRO",1730,15)

 +2       ;;=D RESET^APCDEFL

 +3       ;;^UTILITY(U,$J,"PRO",1730,20)

 +4       ;;=D MNE^APCDEFL

 +5       ;;^UTILITY(U,$J,"PRO",1730,99)

 +6       ;;=57510,28764

 +7       ;;^UTILITY(U,$J,"PRO",1731,0)

 +8       ;;=APCDEF PL CALL^Edit Problem List^^A^^^^^^^^IHS RPMS/PCC Data Entry

 +9       ;;^UTILITY(U,$J,"PRO",1731,4)

 +10      ;;=^^^CALLS PL List Temp

 +11      ;;^UTILITY(U,$J,"PRO",1731,15)

 +12      ;;=S VALMBCK="R" D INIT^APCDEFL

 +13      ;;^UTILITY(U,$J,"PRO",1731,20)

 +14      ;;=D EN1^APCDPL

 +15      ;;^UTILITY(U,$J,"PRO",1731,99)

 +16      ;;=57510,28764

 +17      ;;^UTILITY(U,$J,"PRO",1732,0)

 +18      ;;=APCDEL HISTORICAL MENU^Historical Patient Data Items^^M^^^^^^^^IHS RPMS/PCC Data Entry

 +19      ;;^UTILITY(U,$J,"PRO",1732,4)

 +20      ;;=26

 +21      ;;^UTILITY(U,$J,"PRO",1732,10,0)

 +22      ;;=^101.01PA^5^5

 +23      ;;^UTILITY(U,$J,"PRO",1732,10,1,0)

 +24      ;;=1710^AD^5

 +25      ;;^UTILITY(U,$J,"PRO",1732,10,1,"^")

 +26      ;;=APCDEL ADD VISIT ITEM

 +27      ;;^UTILITY(U,$J,"PRO",1732,10,2,0)

 +28      ;;=1715^HS^25

 +29      ;;^UTILITY(U,$J,"PRO",1732,10,2,"^")

 +30      ;;=APCDEL HEALTH SUMMARY

 +31      ;;^UTILITY(U,$J,"PRO",1732,10,3,0)

 +32      ;;=1721^Q^99

 +33      ;;^UTILITY(U,$J,"PRO",1732,10,3,"^")

 +34      ;;=APCDEL GO BACK

 +35      ;;^UTILITY(U,$J,"PRO",1732,10,4,0)

 +36      ;;=1711^MD^10

 +37      ;;^UTILITY(U,$J,"PRO",1732,10,4,"^")

 +38      ;;=APCDEL MODIFY VISIT ITEM

 +39      ;;^UTILITY(U,$J,"PRO",1732,10,5,0)

 +40      ;;=1712^DE^15

 +41      ;;^UTILITY(U,$J,"PRO",1732,10,5,"^")

 +42      ;;=APCDEL DELETE VISIT ITEM

 +43      ;;^UTILITY(U,$J,"PRO",1732,15)

 +44      ;;=K APCDSECM

 +45      ;;^UTILITY(U,$J,"PRO",1732,20)

 +46      ;;=S APCDSECM=2

 +47      ;;^UTILITY(U,$J,"PRO",1732,26)

 +48      ;;=D SHOW^VALM

 +49      ;;^UTILITY(U,$J,"PRO",1732,28)

 +50      ;;=Select Action:

 +51      ;;^UTILITY(U,$J,"PRO",1732,29)

 +52      ;;=AD

 +53      ;;^UTILITY(U,$J,"PRO",1732,99)

 +54      ;;=57735,40862

 +55      ;;^UTILITY(U,$J,"PRO",1733,0)

 +56      ;;=APCDEL HISTORICAL MNEMONICS^Historical Data Entry^^A^^^^^^^^IHS RPMS/PCC Data Entry

 +57      ;;^UTILITY(U,$J,"PRO",1733,4)

 +58      ;;=25

 +59      ;;^UTILITY(U,$J,"PRO",1733,20)

 +60      ;;=D HIST^APCDEL1

 +61      ;;^UTILITY(U,$J,"PRO",1733,99)

 +62      ;;=57510,28764

 +63      ;;^UTILITY(U,$J,"PRO",1734,0)

 +64      ;;=APCD NEXT SCREEN^Next Screen^^A^^^^^^^^LIST MANAGER

 +65      ;;^UTILITY(U,$J,"PRO",1734,1,0)

 +66      ;;=^^2^2^2920519^^^

 +67      ;;^UTILITY(U,$J,"PRO",1734,1,1,0)

 +68      ;;=This action will allow the user to view the next screen

 +69      ;;^UTILITY(U,$J,"PRO",1734,1,2,0)

 +70      ;;=of entries, if any exist.

 +71      ;;^UTILITY(U,$J,"PRO",1734,2,0)

 +72      ;;=^101.02A^1^1

 +73      ;;^UTILITY(U,$J,"PRO",1734,2,1,0)

 +74      ;;=NX

 +75      ;;^UTILITY(U,$J,"PRO",1734,2,"B","NX",1)

 +76      ;;=

 +77      ;;^UTILITY(U,$J,"PRO",1734,20)

 +78      ;;=D NEXT^VALM4

 +79      ;;^UTILITY(U,$J,"PRO",1734,99)

 +80      ;;=57510,28764

 +81      ;;^UTILITY(U,$J,"PRO",1735,0)

 +82      ;;=APCD PREVIOUS SCREEN^Previous Screen^^A^^^^^^^^LIST MANAGER

 +83      ;;^UTILITY(U,$J,"PRO",1735,1,0)

 +84      ;;=^^2^2^2920113^^

 +85      ;;^UTILITY(U,$J,"PRO",1735,1,1,0)

 +86      ;;=This action will allow the user to view the previous screen

 +87      ;;^UTILITY(U,$J,"PRO",1735,1,2,0)

 +88      ;;=of entries, if any exist.

 +89      ;;^UTILITY(U,$J,"PRO",1735,2,0)

 +90      ;;=^101.02A^3^3

 +91      ;;^UTILITY(U,$J,"PRO",1735,2,1,0)

 +92      ;;=PR

 +93      ;;^UTILITY(U,$J,"PRO",1735,2,2,0)

 +94      ;;=BK

 +95      ;;^UTILITY(U,$J,"PRO",1735,2,3,0)

 +96      ;;=PR

 +97      ;;^UTILITY(U,$J,"PRO",1735,2,"B","BK",2)

 +98      ;;=

 +99      ;;^UTILITY(U,$J,"PRO",1735,2,"B","PR",1)

 +100     ;;=

 +101     ;;^UTILITY(U,$J,"PRO",1735,2,"B","PR",3)

 +102     ;;=

 +103     ;;^UTILITY(U,$J,"PRO",1735,20)

 +104     ;;=D PREV^VALM4

 +105     ;;^UTILITY(U,$J,"PRO",1735,99)

 +106     ;;=57510,28764

 +107     ;;^UTILITY(U,$J,"PRO",1736,0)

 +108     ;;=APCDEH HISTORICAL ITEMS MENU^Historical Patient Data Items^^M^^^^^^^^IHS RPMS/PCC Data Entry

 +109     ;;^UTILITY(U,$J,"PRO",1736,4)

 +110     ;;=26

 +111     ;;^UTILITY(U,$J,"PRO",1736,10,0)

 +112     ;;=^101.01PA^6^6

 +113     ;;^UTILITY(U,$J,"PRO",1736,10,1,0)

 +114     ;;=1737^AD^5

 +115     ;;^UTILITY(U,$J,"PRO",1736,10,1,"^")

 +116     ;;=APCDEH ADD ITEM

 +117     ;;^UTILITY(U,$J,"PRO",1736,10,2,0)

 +118     ;;=1740^HS^25

 +119     ;;^UTILITY(U,$J,"PRO",1736,10,2,"^")

 +120     ;;=APCDEH HEALTH SUMMARY

 +121     ;;^UTILITY(U,$J,"PRO",1736,10,3,0)

 +122     ;;=1699^Q^99

 +123     ;;^UTILITY(U,$J,"PRO",1736,10,3,"^")

 +124     ;;=APCD QUIT

 +125     ;;^UTILITY(U,$J,"PRO",1736,10,4,0)

 +126     ;;=1738^MD^10

 +127     ;;^UTILITY(U,$J,"PRO",1736,10,4,"^")

 +128     ;;=APCDEH MODIFY ITEM

 +129     ;;^UTILITY(U,$J,"PRO",1736,10,5,0)

 +130     ;;=1739^DE^15

 +131     ;;^UTILITY(U,$J,"PRO",1736,10,5,"^")

 +132     ;;=APCDEH DELETE ITEM

 +133     ;;^UTILITY(U,$J,"PRO",1736,10,6,0)

 +134     ;;=1741^PL^50

 +135     ;;^UTILITY(U,$J,"PRO",1736,10,6,"^")

 +136     ;;=APCDEH PROBLEM LIST

 +137     ;;^UTILITY(U,$J,"PRO",1736,15)

 +138     ;;=

 +139     ;;^UTILITY(U,$J,"PRO",1736,20)

 +140     ;;=

 +141     ;;^UTILITY(U,$J,"PRO",1736,26)

 +142     ;;=D SHOW^VALM

 +143     ;;^UTILITY(U,$J,"PRO",1736,28)

 +144     ;;=Select Action:

 +145     ;;^UTILITY(U,$J,"PRO",1736,29)

 +146     ;;=AD

 +147     ;;^UTILITY(U,$J,"PRO",1736,99)

 +148     ;;=57662,26253

 +149     ;;^UTILITY(U,$J,"PRO",1737,0)

 +150     ;;=APCDEH ADD ITEM^Add Item^^A^^^^^^^^IHS RPMS/PCC Data Entry

 +151     ;;^UTILITY(U,$J,"PRO",1737,20)

 +152     ;;=D ADD^APCDEH1

 +153     ;;^UTILITY(U,$J,"PRO",1737,99)

 +154     ;;=57510,28764

 +155     ;;^UTILITY(U,$J,"PRO",1738,0)

 +156     ;;=APCDEH MODIFY ITEM^Modify Item^^A^^^^^^^^IHS RPMS/PCC Data Entry

 +157     ;;^UTILITY(U,$J,"PRO",1738,20)

 +158     ;;=D MODIFY^APCDEH1

 +159     ;;^UTILITY(U,$J,"PRO",1738,99)

 +160     ;;=57510,28764

 +161     ;;^UTILITY(U,$J,"PRO",1739,0)

 +162     ;;=APCDEH DELETE ITEM^Delete Item^^A^^^^^^^^IHS RPMS/PCC Data Entry

APCDO004.m