AG6P15 ;IHS/ASDST/GTH - AG 6 PATCH 15 ;
Source file <AG6P15.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 4 | ^%ZTLOAD ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$ADD^XPDMENU ($$VERSION,BMES,MES)^XPDUTL |
VA Fileman | 4 | (,IX)^DIC FILE^DICN ^DIE ENALL^DIK |
IHS VA Utilities | 3 | $$VAL^XBDIQ1 $$DIR^XBDIR $$C^XBFUNC |
IHS Patient Registration | 2 | ^AGEDNAME AFTSAV^AGTXCONF |
IHS Patient | 1 | ^AUPNPCTR |
MailMan | 1 | ^XMD |
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ;EP - From KIDS.
|
|
BEFSAV | ;this is the same s/r as in AGTXCONF.
|
|
SINGLE(K) | ; Get holders of a single key K.
|
|
P4 | ; -- Update AGMENU exit action to include call to HL7 routine
|
|
INDEXAI | ; REINDEX AI XREF PREVIOUS COMMUNITY
|
|
P14() | ; Determine if P14 was installed.
|
|
BEF | ; These are the "before p15" routines.
|
|
OPTSAV(AGM) | ;
|
|
SORRY(X) | ;
|
|
IP14 | ; Items from patch 14.
|
|
KT | ||
; Send install mail message.
|
||
POST | ;EP - From KIDS.
|
|
OPTRES(AGM) | ;
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | IP14+10 |
^AGEDNAME | IP14+9 |
AFTSAV^AGTXCONF | IP14+6 |
^AUPNPCTR | INDEXAI+12 |
^DIC | P14+6, P14+9, P14+12 |
IX^DIC | AG6P15+35 |
FILE^DICN | IP14+23 |
^DIE | POST+24, P4+8 |
ENALL^DIK | INDEXAI+25 |
$$VAL^XBDIQ1 | POST+18 |
$$DIR^XBDIR | AG6P15+41, AG6P15+56, SORRY+3 |
$$C^XBFUNC | AG6P15+10, AG6P15+11, AG6P15+14, AG6P15+18, AG6P15+22, AG6P15+26, AG6P15+30, AG6P15+37, AG6P15+38, AG6P15+39 , AG6P15+43, AG6P15+54, SORRY+3 |
$$FMADD^XLFDT | OPTSAV+2 |
$$FMDIFF^XLFDT | POST+21, INDEXAI+31 |
$$FMTE^XLFDT | INDEXAI+19, INDEXAI+30 |
$$NOW^XLFDT | INDEXAI+18, INDEXAI+29 |
^XMD | MAIL+8 |
$$ADD^XPDMENU | POST+11, POST+15, OPTRES+4, IP14+15, IP14+29, IP14+33 |
$$VERSION^XPDUTL | AG6P15+13, AG6P15+17, AG6P15+21, AG6P15+25, AG6P15+29 |
BMES^XPDUTL | AG6P15+49, AG6P15+50, PRE+2, PRE+3, POST+1, POST+5, POST+10, POST+11, POST+12, POST+14 , POST+15, POST+16, POST+26, POST+29, POST+33, POST+36, INDEXAI+13, INDEXAI+14, INDEXAI+15, INDEXAI+19 , INDEXAI+30, INDEXAI+31, OPTSAV+1, OPTSAV+5, OPTRES+2, OPTRES+4, IP14+1, IP14+5, IP14+8, IP14+12 , IP14+14, IP14+15, IP14+26, IP14+28, IP14+29, IP14+30, IP14+32, IP14+33, IP14+34 |
MES^XPDUTL | POST+27, BEFSAV+9, BEFSAV+11, IP14+11 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(19 - [#19] | Classic Fileman Calls |
^VA(200 - [#200] | Classic Fileman Calls |
^DIC(9.4 - [#9.4] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("LOAD" | BEFSAV+6 |
^%ZOSF("SAVE" | BEFSAV+10 |
^%ZOSF("TEST" | BEFSAV+8 |
^ABMDCLM - [#9002274.3] | POST+21 |
^AUPNPAT - [#9000001] | INDEXAI+23 |
^AUPNPAT(0 | INDEXAI+22 |
^DIC(19 - [#19] | OPTSAV+4, OPTSAV+7, P4+5, P4+6 |
^DIC(19.1 - [#19.1] | IP14+17 |
^DIC(9.4 - [#9.4] | AG6P15+36 |
^TMP("AG6P15MS" | MAIL+2!, MAIL+3*, MAIL+5*, MAIL+9! |
^TMP("AGTXCONF" | KT! |
^VA(200 - [#200] | AG6P15+9, IP14+21 |
^XTMP("AG6P15" | OPTSAV+1, OPTSAV+2*, OPTSAV+7*, OPTRES+2, OPTRES+4 |
^XTMP("XPDI" | MAIL+5 |
^XUSEC( | SINGLE+3, SINGLE+4 |
^XUSEC("AGZREPORTS" | IP14+20 |
Name | Line Occurrences |
---|---|
$$P14 | AG6P15+49, POST+3 |
BEFSAV | AG6P15+49 |
INDEXAI | IP14+3 |
IP14 | POST+3 |
KT | BEFSAV+3, BEFSAV+13 |
POST+34 | |
OPTRES | POST+6 |
OPTSAV | AG6P15+51 |
P4 | POST+8 |
SINGLE | MAIL+7 |
SORRY | AG6P15+5, AG6P15+7, AG6P15+15, AG6P15+19, AG6P15+23, AG6P15+27, AG6P15+31, AG6P15+40, AG6P15+56 |
Name | Field # of Occurrence |
---|---|
^( | MAIL+5, OPTRES+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | MAIL+4*, MAIL+5*, MAIL+7* |
A | OPTSAV+3~, OPTSAV+6*, OPTSAV+7* |
AG | POST+19~, POST+20*, POST+21*, BEFSAV+1~, BEFSAV+2*, OPTRES+1~, OPTRES+3*, OPTRES+4*, IP14+16~, IP14+17* , IP14+20*, IP14+21, IP14+22 |
AG("RPT" | IP14+17*, IP14+18 |
AG("STD" | IP14+17*, IP14+18, IP14+21, IP14+22 |
AGB | INDEXAI+17~, INDEXAI+18*, INDEXAI+19, INDEXAI+31 |
AGE | INDEXAI+17~, INDEXAI+29*, INDEXAI+30, INDEXAI+31 |
AGI | OPTRES+1~, OPTRES+4* |
AGM | BEFSAV+1~, BEFSAV+5*, BEFSAV+9, BEFSAV+11, OPTSAV~, OPTSAV+1, OPTSAV+4, OPTSAV+5, OPTSAV+7, OPTRES~ , OPTRES+2, OPTRES+4 |
AGP3 | INDEXAI+21~, INDEXAI+22*, INDEXAI+26 |
>> D | AG6P15+34* |
DA | AG6P15+33~, POST+22~, POST+23*, INDEXAI+21~, IP14+16~, P4+3~, P4+4*, P4+5*, P4+6 |
DA(1 | INDEXAI+22*, INDEXAI+23*, INDEXAI+24, INDEXAI+26, IP14+22* |
DIC | AG6P15+33~, AG6P15+34*, IP14+16~, IP14+22*, P14+3~, P14+5*, P14+8*, P14+11* |
DIC("P" | IP14+19* |
DIC(0 | AG6P15+34*, IP14+19*, P14+5* |
DIE | POST+22~, POST+23*, BEFSAV+1~, BEFSAV+4*, P4+3~, P4+7* |
DIF | BEFSAV+1~, BEFSAV+4* |
DIFQ | SORRY+1! |
DIFROM | MAIL+1~ |
DIK | INDEXAI+21~, INDEXAI+24* |
DIK(1 | INDEXAI+22* |
DINUM | IP14+16~, IP14+22* |
DR | POST+22~, POST+23*, P4+3~, P4+7* |
DT | POST+21, OPTSAV+2 |
DUZ | AG6P15+5, AG6P15+9, MAIL+6 |
DUZ(0 | AG6P15+7 |
I | OPTSAV+3~, OPTSAV+4*, OPTSAV+5, OPTSAV+7 |
K | SINGLE~, SINGLE+3, SINGLE+4 |
U | AG6P15+9, INDEXAI+22, OPTSAV+2, OPTSAV+7, OPTRES+4 |
X | AG6P15+9*, AG6P15+10, AG6P15+13*, AG6P15+14, AG6P15+15, AG6P15+17*, AG6P15+18, AG6P15+19, AG6P15+21*, AG6P15+22 , AG6P15+23, AG6P15+25*, AG6P15+26, AG6P15+27, AG6P15+29*, AG6P15+30, AG6P15+31, AG6P15+34*, SORRY~, SORRY+2 , BEFSAV+4*, BEFSAV+5, BEFSAV+7*, BEFSAV+9, BEFSAV+11, IP14+22*, P14+3~, P14+4*, P14+8*, P14+11* |
XCN | BEFSAV+1~, BEFSAV+4* |
XCNP | BEFSAV+1~, BEFSAV+4* |
XMDUZ | MAIL+1~, MAIL+6* |
XMSUB | MAIL+1~, MAIL+6* |
XMTEXT | MAIL+1~, MAIL+6* |
XMY | MAIL+1~ |
XMY( | MAIL+6*, SINGLE+4* |
XMY(1 | MAIL+6* |
>> XPDA | MAIL+5 |
>> XPDBLD | MAIL+5 |
>> XPDDIQ("XPZ1" | AG6P15+48* |
>> XPDDIQ("XPZ2" | AG6P15+48* |
>> XPDENV | AG6P15+45 |
>> XPDQUIT | SORRY+2* |
Y | AG6P15+36, POST+25, SINGLE+1~, SINGLE+2*, SINGLE+4*, P14+3~, P14+7, P14+8, P14+10, P14+11 , P14+13 |
>> ZTDESC | IP14+9* |
>> ZTDTH | IP14+9* |
>> ZTIO | IP14+9* |
>> ZTQUEUED | SORRY+3, INDEXAI+20, INDEXAI+26 |
>> ZTRTN | IP14+9* |
>> ZTSK | IP14+11 |
Name | Field # of Occurrence |
---|---|
$T( | AG6P15+11, MAIL+6, INDEXAI+12, IP14+9 |
$T(BEF+AG | BEFSAV+4, BEFSAV+7 |
$T(P4+1 | P4+6, P4+7 |