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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AUPN9925

Package: IHS Patient

Routine: AUPN9925


Information

AUPN9925 ; IHS/OIT/FBD&NKD - AUPN V99.1 PATCH 25 ENVIRONMENT CHECKS AND POST-INIT PROCESS ; 07/14/2017

Source Information

Source file <AUPN9925.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 HOME^%ZIS  $$CJ^XLFSTR  ($$VERSION,BMES)^XPDUTL  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
PRE ; EP FR KIDS
VCHK(PRE,VER,PAT) ; Check patch level
SINGLE(K) ;----- GET HOLDERS OF A SINGLE KEY K.
GCHK(GL,MSG) ; Check for global
LAST(PKG,VER) ; EP - returns last patch applied for a Package, PATCH^DATE
; Patch includes Seq # if Released
DISP(PRE,VER,PAT,V,P,R) ; Display requirement checking results
SORRY(X) ; Environment check failure message
MAIL ;----- SEND INSTALL MAIL MESSAGE
PCHK(PKG,VER,PAT) ; Check specific patch
POST ; EP FR KIDS

External References

Name Field # of Occurrence
HOME^%ZIS AUPN9925+4
$$CJ^XLFSTR AUPN9925+16, AUPN9925+17, AUPN9925+30, SORRY+3, GCHK+5, PCHK+9, DISP+5
^XMD MAIL+9
$$VERSION^XPDUTL VCHK+2, LAST+3
BMES^XPDUTL POST+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: AUPN9925+11
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: AUPN9925+13
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: AUPN9925+16
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_$S($L($P($T(+2),";",5))>4:" Patch "_$P($T(+2),";",5),1:"")_".",IOM),!
  • Line Location: AUPN9925+17
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
  • Line Location: AUPN9925+30
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  • Line Location: SORRY+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(S,IOM)
  • Line Location: GCHK+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(S,IOM)
  • Line Location: PCHK+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(S,IOM)
  • Line Location: DISP+5
Routine Call
  • %ZIS
  • Line Location:
    • AUPN9925+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] PCHK+5, PCHK+6, PCHK+7, LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
^TMP("AUPN9925" MAIL+3!, MAIL+4*, MAIL+6*, MAIL+10!
^VA(200 - [#200] AUPN9925+15
^XTMP("XPDI" MAIL+6
^XUSEC( SINGLE+1, SINGLE+2

Label References

Name Line Occurrences
$$LAST VCHK+5
$$VCHK AUPN9925+20, AUPN9925+21, AUPN9925+22, AUPN9925+23
DISP VCHK+3, VCHK+4, VCHK+6, VCHK+7
MAIL POST+2
SINGLE MAIL+8
SORRY AUPN9925+11, AUPN9925+13, AUPN9925+32

Naked Globals

Name Field # of Occurrence
^( MAIL+6
^(0 LAST+8, LAST+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MAIL+5*, MAIL+6*, MAIL+8*
DIFQ SORRY+1!, VCHK+3!, VCHK+6!
DIFROM MAIL+2~
DUZ AUPN9925+11, AUPN9925+15, MAIL+7
DUZ(0 AUPN9925+13
GL GCHK~, GCHK+1, GCHK+3, GCHK+4, GCHK+6
IOM AUPN9925+4, AUPN9925+16, AUPN9925+17, AUPN9925+30, SORRY+3, GCHK+5, PCHK+9, DISP+5
K SINGLE~, SINGLE+1, SINGLE+2
LATEST LAST+2~, LAST+6*, LAST+8*, LAST+9, LAST+10
MSG GCHK~, GCHK+3
P VCHK+1~, VCHK+3, VCHK+4, VCHK+5*, VCHK+6, VCHK+7, DISP~, DISP+3
PAT VCHK~, VCHK+3, VCHK+4, VCHK+6, VCHK+7, PCHK~, PCHK+2*, PCHK+3, PCHK+7, DISP~
, DISP+2
PATCH LAST+2~, LAST+6*, LAST+8*, LAST+9*, LAST+10
PATIEN PCHK+1~, PCHK+7*, PCHK+8, PCHK+10
PKG PCHK~, PCHK+2*, PCHK+3, PCHK+5, LAST~, LAST+3, LAST+4
PKGIEN PCHK+1~, PCHK+5*, PCHK+6, PCHK+7, LAST+2~, LAST+4*, LAST+5, LAST+7, LAST+8, LAST+9
PRE VCHK~, VCHK+2, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~, DISP+2, DISP+3
R DISP~, DISP+4
S GCHK+2~, GCHK+3*, GCHK+4*, GCHK+5, PCHK+1~, PCHK+3*, PCHK+8*, PCHK+9, DISP+1~, DISP+2*
, DISP+3*, DISP+4*, DISP+5
SUBIEN LAST+2~, LAST+6*, LAST+7*, LAST+8, LAST+9
U AUPN9925+15, LAST+8, LAST+9, LAST+10
V VCHK+1~, VCHK+2*, VCHK+3, VCHK+4, DISP~, DISP+3
VER VCHK~, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, PCHK~, PCHK+2*, PCHK+3, PCHK+6
, DISP~, DISP+2, LAST~, LAST+3*, LAST+5
VERIEN PCHK+1~, PCHK+6*, PCHK+7, LAST+2~, LAST+5*, LAST+7, LAST+8, LAST+9
X AUPN9925+9*, AUPN9925+15*, AUPN9925+16, SORRY~, SORRY+2
XMDUZ MAIL+2~, MAIL+7*
XMSUB MAIL+2~, MAIL+7*
XMTEXT MAIL+2~, MAIL+7*
XMY MAIL+2~
XMY( MAIL+7*, SINGLE+2*
XMY(1 MAIL+7*
>> XPDA MAIL+6
>> XPDBLD MAIL+6
>> XPDDIQ( AUPN9925+9*
>> XPDDIQ("XPZ1" AUPN9925+8*
>> XPDDIQ("XPZ2" AUPN9925+8*
>> XPDENV AUPN9925+8
>> XPDNM POST+1
>> XPDQUIT AUPN9925+20*, AUPN9925+21*, AUPN9925+22*, AUPN9925+23*, AUPN9925+30, AUPN9925+32, SORRY+2*
Y SINGLE+2~*

Marked Items

Name Field # of Occurrence
$T( AUPN9925+17, MAIL+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All