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 |