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 |  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: AG6P15

Package: IHS Patient Registration

Routine: AG6P15


Information

AG6P15 ;IHS/ASDST/GTH - AG 6 PATCH 15 ;

Source Information

Source file <AG6P15.m>

Call Graph

Call Graph Total: 15

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  

Entry Points

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
MAIL ; Send install mail message.
POST ;EP - From KIDS.
OPTRES(AGM) ;

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: AG6P15+5
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: AG6P15+7
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,","))
  • Line Location: AG6P15+10
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),";",5)_".")
  • Line Location: AG6P15+11
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Need AG v 6.0.....AG v "_X_" Present")
  • Line Location: AG6P15+14
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Need at least FileMan 21.....FileMan "_X_" Present")
  • Line Location: AG6P15+18
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Need at least Kernel 8.....Kernel "_X_" Present")
  • Line Location: AG6P15+22
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Need at least AUT 98.1.....AUT "_X_" Present")
  • Line Location: AG6P15+26
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Need at least AUPN 99.1.....AUPN "_X_" Present")
  • Line Location: AG6P15+30
Function Call: WRITE
  • Prompt: !!,*7,*7,$$C^XBFUNC("You Have More Than One Entry In The"),!,$$C^XBFUNC("PACKAGE File with an ""AG"" prefix.")
  • Line Location: AG6P15+37
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("One entry needs to be deleted.")
  • Line Location: AG6P15+38
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("FIX IT! Before Proceeding."),!!,*7,*7,*7
  • Line Location: AG6P15+39
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("No 'AG' dups in PACKAGE file")
  • Line Location: AG6P15+43
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("ENVIRONMENT OK.")
  • Line Location: AG6P15+54
Function Call: WRITE
  • Prompt: " | ",$J(DA(1)/AGP3*100,0,0),"%"
  • Line Location: INDEXAI+26
Routine Call
  • DIE
  • Line Location:
    • POST+24
    • P4+8
Routine Call
  • DIC
  • Line Location:
    • P14+6
    • P14+9
    • P14+12
Routine Call
  • DIC
  • Line Location:
    • AG6P15+35

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$P14 AG6P15+49, POST+3
BEFSAV AG6P15+49
INDEXAI IP14+3
IP14 POST+3
KT BEFSAV+3, BEFSAV+13
MAIL 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

Naked Globals

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

Local Variables

Legend:

>> 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

Marked Items

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
Info |  Source |  Call 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