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
