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

Package: IHS Patient

Routine: AUPN99P7


Information

AUPN99P7 ;IHS/CMI/LAB,GTH,EFG,SDR - AUPN 99.1 PATCH 7 ; [ 05/09/2003 7:58 AM ]

Source Information

Source file <AUPN99P7.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZTLOAD  $$FMTE^XLFDT  ($$CJ,$$LJ)^XLFSTR  ($$VERSION,BMES,MES)^XPDUTL  
VA Fileman 2 (,IX)^DIC  ^DIK  
IHS Patient 1 POST^AUPN99P5  
IHS VA Utilities 1 $$DIR^XBDIR  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP - From KIDS.
ASU(P) ;
DATES ;
MCD ;
SINGLE(K) ; Get holders of a single key K.
RSLT(%)
RRE ;
MCR ;
QUERPT ;
VCHK(AUPNPRE,AUPNVER,AUPNQUIT) ; Check versions needed.
;
ELIGDATS ;EP - From TaskMan or Programmer mode.
; One-time report on Insurance Eligibility records whose Ending date
; preceeds the begin date.
SORRY(X) ;
PVT ;
FMTE(D) ;
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*10".
HDR ;

External References

Name Field # of Occurrence
^%ZTLOAD QUERPT+4
POST^AUPN99P5 POST+7
^DIC INSTALLD+9, INSTALLD+12
IX^DIC AUPN99P7+25, INSTALLD+6
^DIK PRE+5, PRE+6, PRE+7
$$DIR^XBDIR AUPN99P7+31, AUPN99P7+45, SORRY+3
$$FMTE^XLFDT FMTE+2
$$CJ^XLFSTR AUPN99P7+10, AUPN99P7+11, AUPN99P7+19, AUPN99P7+27, AUPN99P7+28, AUPN99P7+29, AUPN99P7+33, AUPN99P7+43, SORRY+3, VCHK+4
, VCHK+5, INSTALLD+14
$$LJ^XLFSTR MCR+7, MCD+7, RRE+7
^XMD MAIL+9, ELIGDATS+10
$$VERSION^XPDUTL AUPN99P7+18, VCHK+3
BMES^XPDUTL PRE+1, PRE+3, PRE+9, PRE+11, POST+1, POST+6, POST+10, POST+14, MAIL+1, QUERPT+1
, QUERPT+5, QUERPT+6
MES^XPDUTL POST+6, POST+8, INSTALLD+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: AUPN99P7+5
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: AUPN99P7+7
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: AUPN99P7+10
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: AUPN99P7+11
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least AUT 98.1.....AUT "_X_" Present",IOM)
  • Line Location: AUPN99P7+19
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: AUPN99P7+27
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
  • Line Location: AUPN99P7+28
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
  • Line Location: AUPN99P7+29
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("No 'AUPN' dups in PACKAGE file",IOM)
  • Line Location: AUPN99P7+33
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: AUPN99P7+43
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_AUPNPRE_" v "_AUPNVER_"....."_AUPNPRE_" v "_AUPNV_" Present",IOM)
  • Line Location: VCHK+4
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....",IOM)
  • Line Location: VCHK+5
Function Call: WRITE
  • Prompt: !,"The results are in your MailMan 'IN' basket."
  • Line Location: ELIGDATS+13
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+9
    • INSTALLD+12
Routine Call
  • DIC
  • Line Location:
    • AUPN99P7+25
    • INSTALLD+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMCD - [#9000004] MCD+2, MCD+3, MCD+4, MCD+6
^AUPNMCR - [#9000003] MCR+2, MCR+3, MCR+4
^AUPNPAT - [#9000001] ASU+3
^AUPNPRVT - [#9000006] PVT+2, PVT+3, PVT+4, PVT+6
^AUPNRRE - [#9000005] RRE+2, RRE+3, RRE+4
^AUTTLOC - [#9999999.06] ASU+3
^DIC(9.4 - [#9.4] AUPN99P7+26
^TMP("AUPN991P7" ELIGDATS+5!, ELIGDATS+11!, RSLT
^TMP("AUPN99P7MS" MAIL+3!, MAIL+4*, MAIL+6*, MAIL+10!
^VA(200 - [#200] AUPN99P7+9
^XTMP("XPDI" MAIL+6
^XUSEC( SINGLE+3, SINGLE+4

Label References

Name Line Occurrences
$$ASU MCR+6, MCD+6, RRE+6, PVT+6
$$FMTE MCR+6, MCD+6, RRE+6, PVT+6
$$INSTALLD AUPN99P7+21, PRE+2, POST+5
$$VCHK AUPN99P7+15, AUPN99P7+16, AUPN99P7+17
DATES ELIGDATS+6
HDR DATES+32
MAIL POST+12
MCD DATES+32
MCR DATES+32
PVT DATES+32
QUERPT POST+3
RRE DATES+32
RSLT DATES+31, HDR+1, HDR+2, HDR+3, HDR+4, MCR+7, MCR+8, MCD+7, MCD+8, RRE+7
, RRE+8, PVT+7, PVT+8
SINGLE MAIL+8, ELIGDATS+8
SORRY AUPN99P7+5, AUPN99P7+7, AUPN99P7+30, AUPN99P7+35, AUPN99P7+45

Naked Globals

Name Field # of Occurrence
^( MAIL+6, RSLT*
^(0 MCR+4, MCD+4, RRE+4, PVT+4, RSLT*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% MAIL+5*, MAIL+6*, MAIL+8*, ELIGDATS+8*, DATES+31*, MCR+8*, MCD+8*, RRE+8*, PVT+8*, RSLT~
A MCR+1~, MCR+6*, MCR+7, MCR+8, MCD+1~, MCD+6*, MCD+7, MCD+8, RRE+1~, RRE+6*
, RRE+7, RRE+8, PVT+1~, PVT+6*, PVT+7, PVT+8, FMTE+1~
AUPNPRE VCHK~, VCHK+3, VCHK+4
AUPNQUIT AUPN99P7+13~, AUPN99P7+14*, AUPN99P7+15*, AUPN99P7+16*, AUPN99P7+17*, AUPN99P7+20*, AUPN99P7+21*, AUPN99P7+35, VCHK~
AUPNSTAL INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, INSTALLD+14
AUPNV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
AUPNVER VCHK~, VCHK+4, VCHK+5
AUPNY INSTALLD+3~, INSTALLD+13*, INSTALLD+15
D AUPN99P7+24*, INSTALLD+5*, MCR+1~, MCR+4*, MCR+5, MCR+6*, MCR+7, MCD+4*, MCD+5, MCD+6*
, MCD+7, RRE+4*, RRE+5, RRE+6*, RRE+7, PVT+4*, PVT+5, PVT+6*, PVT+7, FMTE~
, FMTE+2
DA AUPN99P7+23~, PRE+5*, PRE+6*, PRE+7*
DA(1 PRE+5*, PRE+6*, PRE+7*
DIC AUPN99P7+23~, AUPN99P7+24*, INSTALLD+3~, INSTALLD+5*, INSTALLD+8*, INSTALLD+11*
DIC(0 AUPN99P7+24*, INSTALLD+5*
DIFQ SORRY+1!
DIFROM MAIL+2~, ELIGDATS+9~
DIK PRE+4~, PRE+5*, PRE+6*, PRE+7*
DUZ AUPN99P7+5, AUPN99P7+9, MAIL+7, ELIGDATS+7
DUZ(0 AUPN99P7+7
I MCR+1~, MCR+3*, MCR+4, MCD+1~, MCD+3*, MCD+4, RRE+1~, RRE+3*, RRE+4, PVT+1~
, PVT+3*, PVT+4, ASU+1~, ASU+3*, FMTE+1~
IOM AUPN99P7+10, AUPN99P7+11, AUPN99P7+19, AUPN99P7+27, AUPN99P7+28, AUPN99P7+29, AUPN99P7+33, AUPN99P7+43, SORRY+3, VCHK+4
, VCHK+5, INSTALLD+14
J MCD+1~, PVT+1~, FMTE+1~
K SINGLE~, SINGLE+3, SINGLE+4
P MCR+1~, MCR+2*, MCR+3, MCR+4, MCR+6, MCD+1~, MCD+2*, MCD+3, MCD+4, MCD+6
, RRE+1~, RRE+2*, RRE+3, RRE+4, RRE+6, PVT+1~, PVT+2*, PVT+3, PVT+4, PVT+6
, ASU~, ASU+3, FMTE+1~
U AUPN99P7+9, MCR+4, MCR+5, MCR+7, MCR+8, MCD+4, MCD+5, MCD+6, MCD+7, MCD+8
, RRE+4, RRE+5, RRE+7, RRE+8, PVT+4, PVT+5, PVT+6, PVT+7, PVT+8, ASU+3
, FMTE+2
X AUPN99P7+9*, AUPN99P7+10, AUPN99P7+18*, AUPN99P7+19, AUPN99P7+20, AUPN99P7+24*, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+4*
, INSTALLD+8*, INSTALLD+11*, DATES+31*, ASU+1~, ASU+2*, ASU+3*, ASU+4, FMTE+1~
XMDUZ MAIL+2~, MAIL+7*, ELIGDATS+4~, ELIGDATS+7*
XMSUB MAIL+2~, MAIL+7*, ELIGDATS+4~, ELIGDATS+7*
XMTEXT MAIL+2~, MAIL+7*, ELIGDATS+4~, ELIGDATS+7*
XMY MAIL+2~, ELIGDATS+4~
XMY( MAIL+7*, SINGLE+4*, ELIGDATS+7*
XMY(1 MAIL+7*, ELIGDATS+7*
>> XPDA MAIL+6
>> XPDBLD MAIL+6
>> XPDDIQ("XPZ1" AUPN99P7+40*
>> XPDDIQ("XPZ2" AUPN99P7+40*
>> XPDENV AUPN99P7+37
>> XPDQUIT SORRY+2*
Y AUPN99P7+26, SINGLE+1~, SINGLE+2*, SINGLE+4*, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13
, INSTALLD+14, MCD+1~, PVT+1~, FMTE+1~
>> ZTDESC QUERPT+3*
>> ZTDTH QUERPT+3*
>> ZTIO QUERPT+3*
>> ZTQUEUED SORRY+3, ELIGDATS+12
>> ZTREQ ELIGDATS+12*
>> ZTRTN QUERPT+3*
>> ZTSAVE("DUZ" QUERPT+3*
>> ZTSK QUERPT+5, QUERPT+6

Marked Items

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