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

Package: IHS Patient Registration

Routine: AG6P14


Information

AG6P14 ;IHS/ASDST/GTH - AG 6 PATCH 14 ;

Source Information

Source file <AG6P14.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT  $$ADD^XPDMENU  ($$VERSION,BMES,MES)^XPDUTL  
IHS VA Utilities 3 $$DIR^XBDIR  $$C^XBFUNC  MAIL^XBMAIL  
VA Fileman 3 IX^DIC  FILE^DICN  ENALL^DIK  
IHS Patient Registration 2 ^AGEDNAME  AFTSAV^AGTXCONF  
IHS Patient 1 ^AUPNPCTR  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP - From KIDS.
BEFSAV ;this is the same s/r as in AGTXCONF.
INDEXAI ; REINDEX AI XREF PREVIOUS COMMUNITY
BEF ; These are the "before p14" routines.
OPTSAV(AGM) ;
SORRY(X) ;
KT
POST ;EP - From KIDS.
SAVE ; Save first few lines of install message into tmp global.
OPTRES(AGM) ;

External References

Name Field # of Occurrence
^%ZTLOAD POST+9
^AGEDNAME POST+8
AFTSAV^AGTXCONF POST+5
^AUPNPCTR INDEXAI+12
IX^DIC AG6P14+37
FILE^DICN POST+22
ENALL^DIK INDEXAI+25
$$DIR^XBDIR AG6P14+43, AG6P14+61, AG6P14+63, AG6P14+67, SORRY+3
$$C^XBFUNC AG6P14+12, AG6P14+13, AG6P14+16, AG6P14+20, AG6P14+24, AG6P14+28, AG6P14+32, AG6P14+39, AG6P14+40, AG6P14+41
, AG6P14+45, AG6P14+57, SORRY+3
MAIL^XBMAIL POST+41
$$FMADD^XLFDT OPTSAV+2
$$FMDIFF^XLFDT INDEXAI+31
$$FMTE^XLFDT INDEXAI+19, INDEXAI+30
$$NOW^XLFDT INDEXAI+18, INDEXAI+29
$$ADD^XPDMENU POST+14, POST+28, POST+32, OPTRES+4
$$VERSION^XPDUTL AG6P14+15, AG6P14+19, AG6P14+23, AG6P14+27, AG6P14+31
BMES^XPDUTL AG6P14+51, AG6P14+53, PRE+2, PRE+3, POST+1, POST+4, POST+7, POST+11, POST+13, POST+14
, POST+25, POST+27, POST+28, POST+29, POST+31, POST+32, POST+33, POST+35, POST+38, POST+45
, INDEXAI+13, INDEXAI+14, INDEXAI+15, INDEXAI+19, INDEXAI+30, INDEXAI+31, OPTSAV+1, OPTSAV+5, OPTRES+2, OPTRES+4
MES^XPDUTL POST+10, BEFSAV+9, BEFSAV+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: AG6P14+5
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: AG6P14+7
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,","))
  • Line Location: AG6P14+12
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: AG6P14+13
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Need AG v 6.0.....AG v "_X_" Present")
  • Line Location: AG6P14+16
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Need at least FileMan 21.....FileMan "_X_" Present")
  • Line Location: AG6P14+20
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Need at least Kernel 8.....Kernel "_X_" Present")
  • Line Location: AG6P14+24
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Need at least AUT 98.1.....AUT "_X_" Present")
  • Line Location: AG6P14+28
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Need at least AUPN 99.1.....AUPN "_X_" Present")
  • Line Location: AG6P14+32
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: AG6P14+39
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("One entry needs to be deleted.")
  • Line Location: AG6P14+40
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("FIX IT! Before Proceeding."),!!,*7,*7,*7
  • Line Location: AG6P14+41
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("No 'AG' dups in PACKAGE file")
  • Line Location: AG6P14+45
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("ENVIRONMENT OK.")
  • Line Location: AG6P14+57
Function Call: WRITE
  • Prompt: !,^(%,0)
  • Line Location: AG6P14+63
Function Call: WRITE
  • Prompt: " | ",$J(DA(1)/AGP3*100,0,0),"%"
  • Line Location: INDEXAI+26
Routine Call
  • DIC
  • Line Location:
    • AG6P14+37

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("DEL" POST+43
^%ZOSF("LOAD" BEFSAV+6
^%ZOSF("SAVE" SAVE+11, BEFSAV+10
^%ZOSF("TEST" BEFSAV+8
^AUPNPAT - [#9000001] INDEXAI+23
^AUPNPAT(0 INDEXAI+22
^DIC(19 - [#19] OPTSAV+4, OPTSAV+7
^DIC(19.1 - [#19.1] POST+16
^DIC(9.4 - [#9.4] AG6P14+38
^TMP("AG6P14MS" SAVE+1!, SAVE+2*, SAVE+3*, SAVE+4*, SAVE+5*, SAVE+6*, SAVE+8*, SAVE+12!
^TMP("AGTXCONF" KT!
^VA(200 - [#200] AG6P14+11, POST+20
^XTMP("AG6P14" OPTSAV+1, OPTSAV+2*, OPTSAV+7*, OPTRES+2, OPTRES+4
^XTMP("XPDI" AG6P14+60, AG6P14+63, SAVE+8
^XUSEC("AGZREPORTS" POST+19

Label References

Name Line Occurrences
BEFSAV AG6P14+52
INDEXAI POST+2
KT BEFSAV+3, BEFSAV+13
OPTRES POST+36
OPTSAV AG6P14+54
SAVE POST+39
SORRY AG6P14+5, AG6P14+7, AG6P14+9, AG6P14+17, AG6P14+21, AG6P14+25, AG6P14+29, AG6P14+33, AG6P14+42, AG6P14+67

Naked Globals

Name Field # of Occurrence
^( AG6P14+63, SAVE+8, OPTRES+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % AG6P14+62*, AG6P14+63*, SAVE+7*, SAVE+8*
A OPTSAV+3~, OPTSAV+6*, OPTSAV+7*
AG POST+15~, POST+16*, POST+19*, POST+20, POST+21, BEFSAV+1~, BEFSAV+2*, OPTRES+1~, OPTRES+3*, OPTRES+4*
AG("RPT" POST+16*, POST+17
AG("STD" POST+16*, POST+17, POST+20, POST+21
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
B AG6P14+59~, AG6P14+60*, AG6P14+61, AG6P14+63, AG6P14+65!
>> D AG6P14+36*
DA AG6P14+35~, POST+15~, INDEXAI+21~
DA(1 POST+21*, INDEXAI+22*, INDEXAI+23*, INDEXAI+24, INDEXAI+26
DIC AG6P14+35~, AG6P14+36*, POST+15~, POST+21*
DIC("P" POST+18*
DIC(0 AG6P14+36*, POST+18*
DIE SAVE+9~, SAVE+10*, BEFSAV+1~, BEFSAV+4*
DIF BEFSAV+1~, BEFSAV+4*
DIFQ SORRY+1!
DIFROM POST+40~
DIK INDEXAI+21~, INDEXAI+24*
DIK(1 INDEXAI+22*
DINUM POST+15~, POST+21*
DT OPTSAV+2
DUZ AG6P14+5, AG6P14+11
DUZ(0 AG6P14+7, AG6P14+9
I OPTSAV+3~, OPTSAV+4*, OPTSAV+5, OPTSAV+7
U AG6P14+11, INDEXAI+22, OPTSAV+2, OPTSAV+7, OPTRES+4
X AG6P14+11*, AG6P14+12, AG6P14+15*, AG6P14+16, AG6P14+17, AG6P14+19*, AG6P14+20, AG6P14+21, AG6P14+23*, AG6P14+24
, AG6P14+25, AG6P14+27*, AG6P14+28, AG6P14+29, AG6P14+31*, AG6P14+32, AG6P14+33, AG6P14+36*, SORRY~, SORRY+2
, POST+21*, POST+42*, SAVE+10*, BEFSAV+4*, BEFSAV+5, BEFSAV+7*, BEFSAV+9, BEFSAV+11
XCM SAVE+9~
XCN SAVE+9~, SAVE+10*, BEFSAV+1~, BEFSAV+4*
XCNP BEFSAV+1~, BEFSAV+4*
>> XPDA AG6P14+60, AG6P14+63, SAVE+8
>> XPDBLD SAVE+8
>> XPDDIQ("XPZ1" AG6P14+50*
>> XPDDIQ("XPZ2" AG6P14+50*
>> XPDENV AG6P14+47
>> XPDQUIT SORRY+2*
>> XPDQUIT("AG*6*14" SORRY+2*
>> Y AG6P14+38
>> ZTDESC POST+8*
>> ZTDTH POST+8*
>> ZTIO POST+8*
>> ZTQUEUED AG6P14+9, SORRY+3, INDEXAI+20, INDEXAI+26
>> ZTRTN POST+8*
>> ZTSK POST+10

Marked Items

Name Field # of Occurrence
$T( AG6P14+13, POST+8, SAVE+3, SAVE+5, INDEXAI+12
$T(BEF+AG BEFSAV+4, BEFSAV+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