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

Package: IHS Patient

Routine: AUPN9913


Information

AUPN9913 ;IHS/CMI/LAB,GTH,EFG,SDR - AUPN 99.1 PATCH 13 ; [ 04/20/2004 7:35 AM ]

Source Information

Source file <AUPN9913.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 HOME^%ZIS  ENDR^%ZISS  $$CJ^XLFSTR  ($$VERSION,BMES,MES)^XPDUTL  
IHS Patient 2 POST^AUPN99P5  ^AUPNSEC  
VA Fileman 2 (,IX)^DIC  (,ENALL)^DIK  
IHS VA Utilities 1 $$DIR^XBDIR  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP - From KIDS.
IMES ;
SINGLE(K) ; Get holders of a single key K.
VCHK(AUPNPRE,AUPNVER,AUPNQUIT) ; Check versions needed.
;
SORRY(X) ;
MAIL ; Send install mail message.
POST ;EP - From KIDS.
INSTALLD(AUPNSTAL) ;EP - Determine if patch AUPNSTAL was installed, where
; AUPNSTAL is the name of the INSTALL. E.g "AG*6.0*11".

External References

Name Field # of Occurrence
HOME^%ZIS AUPN9913+5
ENDR^%ZISS AUPN9913+17
POST^AUPN99P5 POST+6
^AUPNSEC POST+19
^DIC INSTALLD+9, INSTALLD+12
IX^DIC AUPN9913+25, INSTALLD+6
^DIK PRE+6, PRE+7, PRE+8, PRE+13, PRE+14, PRE+15, PRE+16, PRE+17, PRE+18, PRE+19
, PRE+20
ENALL^DIK POST+14
$$DIR^XBDIR AUPN9913+38
$$CJ^XLFSTR AUPN9913+12, AUPN9913+13, AUPN9913+27, AUPN9913+28, AUPN9913+32, AUPN9913+36, SORRY+4, VCHK+4, IMES+1
^XMD MAIL+9
$$VERSION^XPDUTL VCHK+3
BMES^XPDUTL PRE+1, POST+1, POST+21, MAIL+1
MES^XPDUTL PRE+2, PRE+4, PRE+10, PRE+21, POST+3, POST+5, POST+7, POST+9, IMES+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: AUPN9913+7
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: AUPN9913+9
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: AUPN9913+12
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),";",5)_".",IOM)
  • Line Location: AUPN9913+13
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUPN"" prefix.",IOM)
  • Line Location: AUPN9913+27
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
  • Line Location: AUPN9913+28
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7
  • Line Location: AUPN9913+32
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: AUPN9913+36
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  • Line Location: SORRY+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_AUPNPRE_" v "_AUPNVER_"....."_AUPNPRE_" v "_AUPNV_" Present",IOM)
  • Line Location: VCHK+4
Routine Call
  • %ZIS
  • Line Location:
    • AUPN9913+5
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+9
    • INSTALLD+12
Routine Call
  • DIC
  • Line Location:
    • AUPN9913+25
    • INSTALLD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNMSP - [#9000037] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] AUPN9913+26
^TMP("AUPN9913" MAIL+3!, MAIL+4*, MAIL+6*, MAIL+10!
^VA(200 - [#200] AUPN9913+11
^XTMP("XPDI" MAIL+6
^XUSEC( SINGLE+3, SINGLE+4

Label References

Name Line Occurrences
$$INSTALLD AUPN9913+21, PRE+3, POST+4
$$VCHK AUPN9913+19
IMES INSTALLD+7, INSTALLD+10, INSTALLD+14
MAIL POST+17
SINGLE MAIL+8
SORRY AUPN9913+7, AUPN9913+9, AUPN9913+21, AUPN9913+29, AUPN9913+38, VCHK+5

Naked Globals

Name Field # of Occurrence
^( MAIL+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MAIL+5*, MAIL+6*, MAIL+8*
AUPNPRE VCHK~, VCHK+3, VCHK+4
AUPNQUIT VCHK~, VCHK+5
AUPNSTAL INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
AUPNV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
AUPNVER VCHK~, VCHK+4, VCHK+5
AUPNY INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D AUPN9913+24*, INSTALLD+5*
DA AUPN9913+23~, PRE+6*, PRE+7*, PRE+8*, PRE+13*, PRE+14*, PRE+15*, PRE+16*, PRE+17*, PRE+18*
, PRE+19*, PRE+20*
DA(1 PRE+6*, PRE+7*, PRE+8*, PRE+13*, PRE+14*, PRE+15*, PRE+16*, PRE+17*, PRE+18*, PRE+19*
, PRE+20*
DIC AUPN9913+23~, AUPN9913+24*, INSTALLD+3~, INSTALLD+5*, INSTALLD+8*, INSTALLD+11*
DIC(0 AUPN9913+24*, INSTALLD+5*
DIFQ SORRY+1!
DIFROM MAIL+2~
DIK PRE+5~, PRE+6*, PRE+7*, PRE+8*, PRE+13*, PRE+14*, PRE+15*, PRE+16*, PRE+17*, PRE+18*
, PRE+19*, PRE+20*, POST+12*
DIK(1 POST+13*
DUZ AUPN9913+7, AUPN9913+11, MAIL+7
DUZ(0 AUPN9913+9
IOM AUPN9913+5, AUPN9913+12, AUPN9913+13, AUPN9913+27, AUPN9913+28, AUPN9913+32, AUPN9913+36, SORRY+4, VCHK+4, IMES+1
IORVOFF AUPN9913+15~, AUPN9913+28, AUPN9913+32
IORVON AUPN9913+15~, AUPN9913+28, AUPN9913+32
K SINGLE~, SINGLE+3, SINGLE+4
U AUPN9913+11
X AUPN9913+11*, AUPN9913+12, AUPN9913+16*, AUPN9913+24*, SORRY~, SORRY+2, SORRY+3, INSTALLD+3~, INSTALLD+4*, INSTALLD+8*
, INSTALLD+11*
XMDUZ MAIL+2~, MAIL+7*
XMSUB MAIL+2~, MAIL+7*
XMTEXT MAIL+2~, MAIL+7*
XMY MAIL+2~
XMY( MAIL+7*, SINGLE+4*
XMY(1 MAIL+7*
>> XPDA MAIL+6
>> XPDBLD MAIL+6
>> XPDDIQ("XPZ1" AUPN9913+34*
>> XPDDIQ("XPZ2" AUPN9913+34*
>> XPDENV AUPN9913+34
>> XPDQUIT AUPN9913+32, SORRY+2*, SORRY+3*
Y AUPN9913+26, SINGLE+1~, SINGLE+2*, SINGLE+4*, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13
, IMES+1

Marked Items

Name Field # of Occurrence
$T( AUPN9913+13, MAIL+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