AUM41031 ;IHS/ITSC/DMJ - SCB UPDATE 2/18/2004 [ 04/01/2004 11:05 AM ]
Source file <AUM41031.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SUNEW | ;--- ADD NEW SU
|
|
| E(L) | ;-----
|
|
| DIK | ;--- KILL ENTRY
|
|
| LOCMOD | ;--- MOD LOCATION
|
|
| DIE | ;----- DIE EDIT
|
|
| GREET | ;----- GREETING/INTRO TEXT
|
|
| CLINMOD | ;
|
|
| ADDLOC | ;
|
|
| FILE | ;--- FILE NEW ENTRY
|
|
| LOCNEW | ;--- ADD NEW LOCATION
|
|
| LOCINACT | ;--- INACTIVATE LOCATION
|
|
| CLINNEW | ;--- ADD NEW CLINIC
|
|
| SVARS | ;;A,C,E,F,L,M,N,O,P,R,S,T,V,W;Single-character work variables
|
|
| ADDOK | ;----- "ADDED" MESSAGE
|
|
| MODOK | ;--- IF MOD OK
|
|
| AREANEW | ;
|
|
| RSLT(%) | ; EP- INCREMENTS/UPDATES ^TMP("AUM4103,$J) called here and AUM4103
; global used to generate the email message sent by ; post-install routine |
|
| IXDIC(DIC,DIC0,D,X,DLAYGO) | ||
| ADDCOMM | ;
|
|
| DASH | ;----- PRT DASH LINE
|
|
| START | ;EP -- MAIN EP
|
|
| IEN(X,%,Y) | ;
|
|
| ADDAREA | ;--- NEW AREA
; PROGRAMMER NOTE: This s/r is required for every patch. |
|
| ADDCLIN | ;
|
|
| COMMMOD | ;--- MOD COMMUNITY
|
|
| COMMNEW | ;--- ADD COMMUNITY
|
|
| MES(%) | ;--- ISSUE MESSAGES DURING INSTALL
|
|
| ADDSU | ;
; PROGRAMMER NOTE: This s/r is required for every patch. |
|
| ADDFAIL | ;----- "FAILED" MESSAGE
|
|
| ADDCNTY | ;--- NEW COUNTY
; PROGRAMMER NOTE: This s/r is required for every patch. |
|
| M(%) | ;--- ERROR MESSAGE
|
|
| SUMOD | ;--- MOD SU
|
| Name | Field # of Occurrence |
|---|---|
| ^AUM4103 | GREET+3 |
| CLINMOD^AUM41032 | START+15 |
| CLINNEW^AUM41032 | START+14 |
| EDUCNEW^AUM41032 | START+18 |
| EXAMMOD^AUM41032 | START+13 |
| EXAMNEW^AUM41032 | START+12 |
| HFNEW^AUM41032 | START+19 |
| MEASNEW^AUM41032 | START+20 |
| PCLASMOD^AUM41032 | START+17 |
| PCLASNEW^AUM41032 | START+16 |
| TRIBEMOD^AUM41032 | START+11 |
| ^AUM4103A | E+1, AREANEW+2, SUNEW+4, SUMOD+4, LOCNEW+4, LOCMOD+4, LOCINACT+2, COMMNEW+4, COMMMOD+4, CLINNEW+4 , CLINMOD+2, CLINMOD+3 |
| UPDATE^AUM4103A | GREET+1 |
| $$VAL^AUM4103M | IEN+3 |
| $$COMMMOD^AUMXPORT | COMMMOD+25 |
| $$LOCMOD^AUMXPORT | LOCMOD+27 |
| IX^DIC | IXDIC+6 |
| FILE^DICN | FILE+4 |
| ^DIE | DIE+4, CLINMOD+7 |
| ^DIK | DIK+2 |
| $$LJ^XLFSTR | ADDAREA+2, ADDSU+2, SUNEW+2, SUNEW+3, ADDCLIN+1 |
| $$REPEAT^XLFSTR | DASH+2 |
| $$RJ^XLFSTR | LOCNEW+2, LOCNEW+3, LOCMOD+2, LOCMOD+3, COMMNEW+2, COMMNEW+3 |
| MES^XPDUTL | MES+2 |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | Classic Fileman Calls |
| ^DIC(40.7 - [#40.7] | Classic Fileman Calls |
| ^AUTTCOM - [#9999999.05] | Classic Fileman Calls |
| ^AUTTLOC - [#9999999.06] | Classic Fileman Calls |
| ^AUTTAREA - [#9999999.21] | Classic Fileman Calls |
| ^AUTTSU - [#9999999.22] | Classic Fileman Calls |
| ^AUTTCTY - [#9999999.23] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUTTAREA("B" | ADDAREA+3 |
| ^AUTTAREA("C" | ADDAREA+4 |
| ^AUTTCOM("C" | ADDCOMM+2, COMMMOD+6, COMMMOD+8 |
| ^AUTTCTY("C" | ADDCNTY+3 |
| ^AUTTLOC - [#9999999.06] | ADDLOC+5, ADDLOC+6, ADDLOC+9, ADDLOC+15, LOCMOD+17 |
| ^AUTTLOC("C" | ADDLOC+3, ADDLOC+6, ADDLOC+8, LOCMOD+6, LOCMOD+8, LOCINACT+5 |
| ^AUTTSU("C" | ADDSU+3, SUMOD+6, SUMOD+8 |
| ^DD(4 | ADDLOC+23 |
| ^DIC(4 - [#4] | ADDLOC+7, ADDLOC+15 |
| ^DIC(40.7 - [#40.7] | ADDCLIN+2, CLINMOD+5 |
| ^TMP("AUM4103" | RSLT+3 |
| Name | Line Occurrences |
|---|---|
| $$E | SUNEW+1, SUMOD+1, SUMOD+14, LOCNEW+1, LOCMOD+1, LOCINACT+9, COMMNEW+1, COMMMOD+1, CLINNEW+1 |
| $$IEN | ADDCNTY+4, ADDSU+4, SUMOD+10, ADDLOC+11, ADDLOC+13, LOCMOD+10, LOCMOD+12, ADDCOMM+3, ADDCOMM+5, ADDCOMM+7 , COMMMOD+10, COMMMOD+12, COMMMOD+14 |
| $$M | ADDFAIL+1, DIE+3, IEN+23, ADDAREA+3, ADDAREA+4, ADDCNTY+3, ADDSU+3, ADDLOC+4, ADDLOC+5, ADDLOC+7 , ADDLOC+9, ADDLOC+15, ADDLOC+20, ADDLOC+29, LOCMOD+16, LOCMOD+19, ADDCOMM+2, COMMMOD+18, ADDCLIN+2 |
| @( | ADDAREA+10, ADDCNTY+10, ADDSU+11, ADDLOC+32, ADDCOMM+11 |
| ADDAREA | IEN+10, AREANEW+2 |
| ADDCLIN | CLINNEW+4, CLINMOD+6 |
| ADDCNTY | IEN+20 |
| ADDCOMM | COMMNEW+4, COMMMOD+8 |
| ADDFAIL | ADDCLIN+5 |
| ADDLOC | LOCNEW+4, LOCMOD+8 |
| ADDOK | ADDLOC+28, ADDCLIN+5 |
| ADDSU | IEN+15, SUNEW+4, SUMOD+8 |
| AREANEW | START+3 |
| COMMMOD | START+10 |
| COMMNEW | START+9 |
| DASH | START+3, START+4, START+5, START+6, START+7, START+8, START+9, START+10, START+11, START+12 , START+13, START+14, START+15, START+16, START+17, START+18, START+19, START+20, LOCMOD+23, LOCMOD+27 , COMMMOD+21, COMMMOD+25 |
| DIE | SUMOD+13, ADDLOC+5, ADDLOC+7, ADDLOC+9, ADDLOC+27, LOCMOD+15, LOCMOD+18, LOCINACT+8, COMMMOD+17 |
| FILE | ADDAREA+9, ADDCNTY+9, ADDSU+10, ADDLOC+18, ADDLOC+32, ADDCOMM+10, ADDCLIN+5 |
| GREET | START+2 |
| LOCINACT | START+8 |
| LOCMOD | START+7 |
| LOCNEW | START+6 |
| MES | RSLT+3 |
| MODOK | SUMOD+15, LOCMOD+20, COMMMOD+19, CLINMOD+9 |
| RSLT | GREET+1, GREET+3, ADDOK+1, ADDFAIL+1, DASH+1, DASH+2, DASH+3, DIE+3, IEN+9, IEN+11 , IEN+14, IEN+16, IEN+19, IEN+21, IEN+23, MODOK+1, ADDAREA+3, ADDAREA+4, ADDCNTY+3, ADDSU+3 , SUNEW+1, SUNEW+2, SUNEW+3, SUMOD+1, SUMOD+2, SUMOD+3, SUMOD+14, LOCNEW+1, LOCNEW+2, LOCNEW+3 , ADDLOC+4, ADDLOC+5, ADDLOC+7, ADDLOC+9, ADDLOC+15, ADDLOC+20, ADDLOC+29, LOCMOD+1, LOCMOD+2, LOCMOD+3 , LOCMOD+16, LOCMOD+19, LOCMOD+24, LOCMOD+25, LOCMOD+26, LOCMOD+27, LOCINACT+1, LOCINACT+6, LOCINACT+9, LOCINACT+10 , COMMNEW+1, COMMNEW+2, COMMNEW+3, ADDCOMM+2, COMMMOD+1, COMMMOD+2, COMMMOD+3, COMMMOD+18, COMMMOD+22, COMMMOD+23 , COMMMOD+24, COMMMOD+25, CLINNEW+1, CLINNEW+2, CLINNEW+3, ADDCLIN+2, CLINMOD+8 |
| SUMOD | START+5 |
| SUNEW | START+4 |
| SVARS | START+1, DIE+1, IEN+5, DIK+1, FILE+1, MES+1, IXDIC+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | RSLT+3*, ADDLOC+23 |
| ^(0 | RSLT+3* |
| ^(1 | ADDLOC+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | GREET+3*, IEN~, IEN+3, IEN+5~, IEN+23, M~, M+1, RSLT~, RSLT+3, MES~ , MES+2, ADDLOC+3*, ADDLOC+4, ADDLOC+5, ADDLOC+6*, ADDLOC+7, ADDLOC+8*, ADDLOC+9, LOCINACT+5*, LOCINACT+6 , LOCINACT+7 |
| >> A | ADDAREA+2*, ADDAREA+4, ADDAREA+8, ADDCNTY+2*, ADDCNTY+8, ADDSU+2*, ADDSU+3, ADDSU+4, SUMOD+5*, SUMOD+6 , SUMOD+7*, SUMOD+8, SUMOD+9, SUMOD+10, ADDLOC+1*, ADDLOC+2, ADDLOC+3, ADDLOC+4, ADDLOC+6, ADDLOC+8 , ADDLOC+11, ADDLOC+13, LOCMOD+5*, LOCMOD+6, LOCMOD+7*, LOCMOD+8, LOCMOD+9, LOCMOD+10, LOCMOD+12, LOCINACT+3* , LOCINACT+4, LOCINACT+5, LOCINACT+6, ADDCOMM+1*, ADDCOMM+5, ADDCOMM+7, COMMMOD+7*, COMMMOD+9, COMMMOD+12, COMMMOD+14 , ADDCLIN+1*, ADDCLIN+3 |
| AUMAD | ADDLOC+21~, ADDLOC+22*, ADDLOC+23*, ADDLOC+25 |
| >> C | ADDAREA+2*, ADDAREA+8, ADDCNTY+2*, ADDCNTY+3, ADDCNTY+8, ADDCOMM+1*, ADDCOMM+2, ADDCOMM+9, COMMMOD+5*, COMMMOD+6 , COMMMOD+7*, COMMMOD+8, COMMMOD+9, COMMMOD+16, ADDCLIN+1*, ADDCLIN+2, ADDCLIN+3, CLINMOD+4*, CLINMOD+5 |
| D | IXDIC~ |
| DA | START+1~, DIE+2, DIE+3, DIE+5, SUMOD+12*, ADDLOC+5*, ADDLOC+7*, ADDLOC+9*, ADDLOC+26*, LOCMOD+14* , LOCMOD+17*, LOCINACT+7*, COMMMOD+16*, CLINMOD+5*, CLINMOD+6 |
| DD | FILE+2! |
| DIC | START+1~, FILE+5!, IXDIC~, ADDAREA+6*, ADDCNTY+6*, ADDSU+7*, ADDLOC+17*, ADDLOC+31*, ADDCOMM+9*, ADDCLIN+3* |
| DIC("DR" | ADDAREA+8*, ADDCNTY+8*, ADDSU+9*, ADDLOC+31*, ADDCOMM+9*, ADDCLIN+3*, ADDCLIN+4* |
| DIC(0 | FILE+3*, IXDIC+3* |
| DIC0 | IXDIC~, IXDIC+3, IXDIC+4! |
| DIE | START+1~, DIE+2, DIE+3, DIE+5, SUMOD+12*, ADDLOC+5*, ADDLOC+7*, ADDLOC+9*, ADDLOC+26*, LOCMOD+14* , LOCMOD+17*, LOCINACT+7*, COMMMOD+16*, CLINMOD+7* |
| DIK | DIK+1~ |
| DINUM | START+1~, ADDLOC+15*, ADDLOC+16, ADDLOC+19!, ADDLOC+31*, ADDLOC+33! |
| DLAYGO | START+1~, FILE+5!, IXDIC~, IXDIC+5!, ADDAREA+5*, ADDSU+6*, ADDLOC+17*, ADDLOC+19!, ADDLOC+31*, ADDLOC+33! , ADDCOMM+9*, CLINNEW+5!, ADDCLIN+3* |
| DO | FILE+2! |
| DR | START+1~, SUMOD+12*, ADDLOC+5*, ADDLOC+7*, ADDLOC+9*, ADDLOC+26*, LOCMOD+14*, LOCMOD+17*, LOCINACT+7*, COMMMOD+16* , CLINMOD+7* |
| DT | ADDLOC+5, ADDLOC+9, ADDLOC+26, ADDLOC+31, LOCMOD+14, LOCINACT+7 |
| >> E | AREANEW+1*, CLINMOD+1*, CLINMOD+8 |
| >> F | ADDLOC+1*, ADDLOC+2, ADDLOC+3, ADDLOC+4, ADDLOC+6, ADDLOC+8, ADDLOC+26, ADDLOC+31, LOCMOD+5*, LOCMOD+6 , LOCMOD+7*, LOCMOD+8, LOCMOD+9, LOCMOD+14, LOCINACT+3*, LOCINACT+4, LOCINACT+5, LOCINACT+6 |
| IOM | DASH+2 |
| L | GREET+2*, ADDOK+1, ADDFAIL+1, E~, IEN+6*, MODOK+1, AREANEW+2*, ADDAREA+2*, ADDCNTY+2*, ADDSU+2* , SUNEW+4*, SUMOD+4*, SUMOD+5*, SUMOD+7*, SUMOD+8*, SUMOD+9*, SUMOD+14, LOCNEW+4*, ADDLOC+1*, ADDLOC+2* , ADDLOC+5, ADDLOC+7, ADDLOC+9, ADDLOC+20, ADDLOC+29, LOCMOD+4*, LOCMOD+5*, LOCMOD+7*, LOCMOD+8*, LOCMOD+9* , LOCMOD+16, LOCMOD+19, LOCINACT+2*, LOCINACT+3*, LOCINACT+4*, LOCINACT+9, LOCINACT+10, COMMNEW+4*, ADDCOMM+1*, COMMMOD+4* , COMMMOD+5*, COMMMOD+7*, COMMMOD+8*, COMMMOD+9*, COMMMOD+18, CLINNEW+4*, ADDCLIN+1*, CLINMOD+2*, CLINMOD+4*, CLINMOD+6* , CLINMOD+8 |
| L("TO" | SUMOD+4*, SUMOD+7, LOCMOD+4*, LOCMOD+7, LOCMOD+9, LOCMOD+14, COMMMOD+4*, COMMMOD+7, CLINMOD+3*, CLINMOD+4 |
| >> N | ADDAREA+2*, ADDAREA+3, ADDAREA+7, ADDCNTY+2*, ADDCNTY+7, ADDSU+2*, ADDSU+8, SUMOD+5*, SUMOD+7*, SUMOD+9 , SUMOD+12, ADDLOC+1*, ADDLOC+2, ADDLOC+7, ADDLOC+17, LOCMOD+7*, LOCMOD+9, LOCMOD+17, LOCINACT+3*, LOCINACT+4 , ADDCOMM+1*, ADDCOMM+9, COMMMOD+7*, COMMMOD+9, COMMMOD+16, ADDCLIN+1*, ADDCLIN+3, CLINMOD+4*, CLINMOD+7 |
| >> O | ADDCOMM+1*, ADDCOMM+2, ADDCOMM+3, COMMMOD+5*, COMMMOD+6, COMMMOD+7*, COMMMOD+8, COMMMOD+9, COMMMOD+10 |
| >> P | ADDSU+4*, ADDSU+5, ADDSU+9, SUMOD+6*, SUMOD+8*, SUMOD+12, ADDLOC+1*, ADDLOC+2, ADDLOC+9, ADDLOC+26 , ADDLOC+31, LOCMOD+6*, LOCMOD+8*, LOCMOD+14, LOCMOD+17, LOCINACT+3*, LOCINACT+4, COMMMOD+6*, COMMMOD+8*, COMMMOD+16 , ADDCLIN+1*, ADDCLIN+4 |
| >> P("A" | SUMOD+10*, SUMOD+11, SUMOD+12, ADDLOC+11*, ADDLOC+12, ADDLOC+26, ADDLOC+31, LOCMOD+10*, LOCMOD+11, LOCMOD+14 , ADDCOMM+5*, ADDCOMM+6, ADDCOMM+9, COMMMOD+12*, COMMMOD+13, COMMMOD+16 |
| >> P("O" | ADDCOMM+3*, ADDCOMM+4, ADDCOMM+9, COMMMOD+10*, COMMMOD+11, COMMMOD+16 |
| >> P("S" | ADDCNTY+4*, ADDCNTY+5, ADDCNTY+8, ADDLOC+13*, ADDLOC+14, ADDLOC+26, ADDLOC+31, LOCMOD+12*, LOCMOD+13, LOCMOD+14 |
| >> P("V" | ADDCOMM+7*, ADDCOMM+8, ADDCOMM+9, COMMMOD+14*, COMMMOD+15, COMMMOD+16 |
| >> R | ADDAREA+2*, ADDAREA+8, ADDCLIN+1*, ADDCLIN+3 |
| >> S | ADDCNTY+2*, ADDCNTY+3, ADDCNTY+4, ADDSU+2*, ADDSU+3, ADDSU+9, SUMOD+5*, SUMOD+6, SUMOD+7*, SUMOD+8 , SUMOD+9, SUMOD+12, ADDLOC+1*, ADDLOC+2, ADDLOC+3, ADDLOC+4, ADDLOC+6, ADDLOC+8, ADDLOC+13, LOCMOD+5* , LOCMOD+6, LOCMOD+7*, LOCMOD+8, LOCMOD+9, LOCMOD+12, LOCINACT+3*, LOCINACT+4, LOCINACT+5, LOCINACT+6, ADDCOMM+1* , ADDCOMM+2, ADDCOMM+3, COMMMOD+5*, COMMMOD+6, COMMMOD+7*, COMMMOD+8, COMMMOD+9, COMMMOD+10 |
| >> T | AREANEW+2*, SUNEW+4*, SUMOD+4*, LOCNEW+4*, LOCMOD+4*, LOCINACT+2*, COMMNEW+4*, COMMMOD+4*, CLINNEW+4*, CLINMOD+2* |
| U | IEN+23, ADDAREA+2, ADDCNTY+2, ADDSU+2, SUMOD+5, SUMOD+7, ADDLOC+1, ADDLOC+5, ADDLOC+6, ADDLOC+7 , ADDLOC+9, ADDLOC+15, ADDLOC+23, LOCMOD+5, LOCMOD+7, LOCMOD+9, LOCMOD+14, LOCMOD+17, LOCINACT+3, ADDCOMM+1 , COMMMOD+5, COMMMOD+7, ADDCLIN+1 |
| >> V | ADDCOMM+1*, ADDCOMM+7, COMMMOD+7*, COMMMOD+9, COMMMOD+14 |
| X | IEN~, IEN+2, IEN+3, IEN+7, IEN+8~, IEN+12, IEN+13~, IEN+17, IEN+18~, IEN+23 , IXDIC~, ADDAREA+7*, ADDCNTY+7*, ADDSU+8*, ADDLOC+17*, ADDLOC+31*, ADDCOMM+9*, ADDCLIN+3* |
| Y | DIE+3*, IEN~, IEN+2*, IEN+3*, IEN+4*, IEN+6, IEN+23, IEN+24, IXDIC+7, ADDAREA+10 , ADDCNTY+10, ADDSU+11, SUMOD+14, ADDLOC+5, ADDLOC+7, ADDLOC+9, ADDLOC+20, ADDLOC+26, ADDLOC+28, ADDLOC+31 , ADDLOC+32, LOCMOD+16, LOCMOD+19, LOCINACT+9, ADDCOMM+11, COMMMOD+18, ADDCLIN+5, CLINMOD+8 |
| Name | Field # of Occurrence |
|---|---|
| $T(@L+%+1^AUM4103 | GREET+3 |
| $T(@L+%^AUM4103 | GREET+3 |
| $T(@L^AUM4103A | E+1 |
| $T(AREANEW+T^AUM4103A | AREANEW+2 |
| $T(CLINMOD+T+1^AUM4103A | CLINMOD+3 |
| $T(CLINMOD+T^AUM4103A | CLINMOD+2 |
| $T(CLINNEW+T^AUM4103A | CLINNEW+4 |
| $T(COMMMOD+T+1^AUM4103A | COMMMOD+4 |
| $T(COMMMOD+T^AUM4103A | COMMMOD+4 |
| $T(COMMNEW+T^AUM4103A | COMMNEW+4 |
| $T(LOCINACT+T^AUM4103A | LOCINACT+2 |
| $T(LOCMOD+T+1^AUM4103A | LOCMOD+4 |
| $T(LOCMOD+T^AUM4103A | LOCMOD+4 |
| $T(LOCNEW+T^AUM4103A | LOCNEW+4 |
| $T(SUMOD+T+1^AUM4103A | SUMOD+4 |
| $T(SUMOD+T^AUM4103A | SUMOD+4 |
| $T(SUNEW+T^AUM4103A | SUNEW+4 |
| $T(SVARS | START+1~, DIE+1~, IEN+5~, DIK+1~, FILE+1~, MES+1~, IXDIC+2~ |
| $T(UPDATE^AUM4103A | GREET+1 |