Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AG6P17A

Package: IHS Patient Registration

Routine: AG6P17A


Information

AG6P17A ;IHS/ASDST/GTH - Patient Registration 6.0 Patch 17 CONT. ; [ 04/08/2003 8:49 AM ]

Source Information

Source file <AG6P17A.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
IHS Patient Registration 5 $$INSTALLD^AG6P17  (AGTX,COVIT,DELR,EV,INDXC,P17)^AG6P17B  ^AGEDNAME  PTACT^AGELUP2  ^AGSETPRT  
Kernel 4 ^%ZTLOAD  ($$FMDIFF,$$FMTE,$$HTE,$$NOW)^XLFDT  $$ADD^XPDMENU  (BMES,MES)^XPDUTL  
VA Fileman 4 ^DIC  FILE^DICN  ^DIE  (,ENALL)^DIK  
IHS Patient 1 ^AUPNPCTR  
IHS VA Utilities 1 $$VAL^XBDIQ1  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Registration 1 AG6P17B  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP - From KIDS.
IP14 ; Items from patch 14.
SINGLE(K) ;EP - Get holders of a single key K.
IP15 ;
INDEXAI ; REINDEX AI XREF PREVIOUS COMMUNITY
TS
CMS ; Deactive the CMS Railroad template and re-name both from "HCFA" to "CMS".
DELOPT ; Delete OPTION "AG DDPS HRN DEL"
MAIL ; Send install mail message.
POST ;EP - From KIDS.
OPTRES(AGM) ;
UPLG ; Fix bug in ^AGELUPLG.

External References

Name Field # of Occurrence
^%ZTLOAD IP14+7
$$INSTALLD^AG6P17 POST+4, POST+6, POST+8, POST+14
AGTX^AG6P17B POST+28
COVIT^AG6P17B POST+26
DELR^AG6P17B POST+30
EV^AG6P17B POST+32
INDXC^AG6P17B POST+24
P17^AG6P17B POST+22
^AGEDNAME IP14+6
PTACT^AGELUP2 UPLG+8
^AGSETPRT POST+9, POST+39
^AUPNPCTR INDEXAI+12
^DIC CMS+4, CMS+13
FILE^DICN IP14+20
^DIE IP15+17, CMS+9, CMS+18
^DIK DELOPT+3, UPLG+7
ENALL^DIK INDEXAI+25
$$VAL^XBDIQ1 IP15+11
$$FMDIFF^XLFDT INDEXAI+31, IP15+14
$$FMTE^XLFDT INDEXAI+19, INDEXAI+30
$$HTE^XLFDT TS
$$NOW^XLFDT INDEXAI+18, INDEXAI+29
^XMD MAIL+8
$$ADD^XPDMENU OPTRES+5, IP14+12, IP14+26, IP15+4, IP15+8
BMES^XPDUTL POST+2, POST+10, POST+12, POST+34, POST+41, INDEXAI+13, INDEXAI+14, INDEXAI+15, INDEXAI+19, INDEXAI+30
, INDEXAI+31, OPTRES+1, OPTRES+3, OPTRES+5, IP14+1, IP14+5, IP14+9, IP14+11, IP14+12, IP14+23
, IP14+25, IP14+26, IP14+27, IP15+1, IP15+3, IP15+4, IP15+5, IP15+7, IP15+8, IP15+9
, IP15+19, IP15+22, UPLG+1, CMS+1
MES^XPDUTL IP14+8, IP15+20, UPLG+10, CMS+5, CMS+10, CMS+14, CMS+19, CMS+21, TS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " | ",$J(DA(1)/AGP3*100,0,0),"%"
  • Line Location: INDEXAI+26
Routine Call
  • DIE
  • Line Location:
    • IP15+17
    • CMS+9
    • CMS+18
Routine Call
  • DIC
  • Line Location:
    • CMS+4
    • CMS+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDCLM - [#9002274.3] IP15+14
^AGELUPLG - [#9009062.02] UPLG+4, UPLG+5
^AUPNPAT - [#9000001] INDEXAI+23
^AUPNPAT(0 INDEXAI+22
^DIC(19 - [#19] DELOPT+2
^DIC(19.1 - [#19.1] IP14+14
^TMP("AG6P17MS" MAIL+2!, MAIL+3*, MAIL+5*, MAIL+9!
^VA(200 - [#200] IP14+18
^XTMP("AG6P17" OPTRES+3, OPTRES+5
^XTMP("XPDI" MAIL+5
^XUSEC( SINGLE+3, SINGLE+4
^XUSEC("AGZREPORTS" IP14+17

Label References

Name Line Occurrences
CMS POST+20
DELOPT POST+37
INDEXAI IP14+3
IP14 POST+4
IP15 POST+6
MAIL POST+11, POST+35
OPTRES POST+16
SINGLE MAIL+7
TS POST+2, POST+4, POST+6, POST+10, POST+12, POST+16, POST+18, POST+20, POST+22, POST+24
, POST+26, POST+28, POST+30, POST+32, POST+34, POST+41
UPLG POST+18

Naked Globals

Name Field # of Occurrence
^( MAIL+5, OPTRES+5, UPLG+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MAIL+4*, MAIL+5*, MAIL+7*
AG OPTRES+2~, OPTRES+4*, OPTRES+5*, IP14+13~, IP14+14*, IP14+17*, IP14+18, IP14+19, IP15+12~, IP15+13*
, IP15+14*
AG("RPT" IP14+14*, IP14+15
AG("STD" IP14+14*, IP14+15, IP14+18, IP14+19
AGB INDEXAI+17~, INDEXAI+18*, INDEXAI+19, INDEXAI+31
AGDA UPLG+2~, UPLG+5*, UPLG+6
AGE INDEXAI+17~, INDEXAI+29*, INDEXAI+30, INDEXAI+31
AGI OPTRES+2~, OPTRES+5*
AGM OPTRES~, OPTRES+1, OPTRES+3, OPTRES+5
AGP3 INDEXAI+21~, INDEXAI+22*, INDEXAI+26
AGRUN UPLG+2~, UPLG+3*, UPLG+4*, UPLG+5, UPLG+6
AGSUB UPLG+2~, UPLG+5*, UPLG+6, UPLG+8
AGY CMS+2~, CMS+8*, CMS+10, CMS+17*, CMS+19
DA DELOPT+3*, INDEXAI+21~, IP14+13~, IP15+15~, IP15+16*, UPLG+2~, UPLG+6*, CMS+7~, CMS+8*, CMS+16~
, CMS+17*
DA(1 INDEXAI+22*, INDEXAI+23*, INDEXAI+24, INDEXAI+26, IP14+19*, UPLG+6*
DFN UPLG+2~, UPLG+5*, UPLG+8
DIC IP14+13~, IP14+19*, CMS+2~, CMS+3*, CMS+8, CMS+12*, CMS+17
DIC("P" IP14+16*
DIC(0 IP14+16*, CMS+3*, CMS+12*
DIE IP15+15~, IP15+16*, CMS+7~, CMS+8*, CMS+16~, CMS+17*
DIFROM MAIL+1~
DIK DELOPT+3*, INDEXAI+21~, INDEXAI+24*, UPLG+2~, UPLG+6*
DIK(1 INDEXAI+22*
DINUM IP14+13~, IP14+19*
DR IP15+15~, IP15+16*, CMS+7~, CMS+8*, CMS+16~, CMS+17*
DT IP15+14, CMS+8
DUZ MAIL+6
K SINGLE~, SINGLE+3, SINGLE+4
>> RECNO DELOPT+1*, DELOPT+2*, DELOPT+3
U INDEXAI+22, OPTRES+5, UPLG+5, CMS+8, CMS+17
X IP14+19*, CMS+2~, CMS+3*, CMS+12*
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
Y SINGLE+1~, SINGLE+2*, SINGLE+4*, IP15+18, CMS+5, CMS+8, CMS+14, CMS+17
>> ZTDESC IP14+6*
>> ZTDTH IP14+6*
>> ZTIO IP14+6*
>> ZTQUEUED INDEXAI+20, INDEXAI+26, UPLG+5
>> ZTRTN IP14+6*
>> ZTSK IP14+8

Marked Items

Name Field # of Occurrence
$T( MAIL+6, INDEXAI+12, IP14+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All