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

Package: IHS Patient Registration

Routine: AG71A12


Information

AG71A12 ;IHS/OIT/NKD - PATIENT REGISTRATION 7.1 PATCH 12 CHECK/PRE/POST INSTALL ;

Source Information

Source file <AG71A12.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 $$CJ^XLFSTR  $$VERSION^XPDUTL  
IHS VA Utilities 1 $$DIR^XBDIR  
VA Fileman 1 IX^DIC  

Entry Points

Name Comments DBIA/ICR reference
PRE ; EP FR KIDS
VCHK(AGPRE,AGVER,AGPAT) ; Check patch level
LAST(PKG,VER) ; EP - returns last patch applied for a Package, PATCH^DATE
; Patch includes Seq # if Released
SORRY(X) ;
PCHK(PKG,VER,PAT) ; Check specific patch
DISP(AGPRE,AGVER,AGPAT,AGV,AGP,AGR) ; Display requirement checking results
POST ; EP FR KIDS

External References

Name Field # of Occurrence
IX^DIC AG71A12+19
$$DIR^XBDIR AG71A12+36
$$CJ^XLFSTR AG71A12+8, AG71A12+9, AG71A12+21, AG71A12+22, AG71A12+26, AG71A12+28, SORRY+3, PCHK+9, DISP+6
$$VERSION^XPDUTL VCHK+2, LAST+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: AG71A12+3
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: AG71A12+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: AG71A12+8
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: AG71A12+9
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AG"" prefix.",IOM)
  • Line Location: AG71A12+21
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
  • Line Location: AG71A12+22
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
  • Line Location: AG71A12+26
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: AG71A12+28
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  • Line Location: SORRY+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(AGS,IOM)
  • Line Location: PCHK+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(AGS,IOM)
  • Line Location: DISP+6
Routine Call
  • DIC
  • Line Location:
    • AG71A12+19

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] AG71A12+20, PCHK+5, PCHK+6, PCHK+7, LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
^VA(200 - [#200] AG71A12+7

Label References

Name Line Occurrences
$$LAST VCHK+5
$$PCHK AG71A12+13
$$VCHK AG71A12+11, AG71A12+12, AG71A12+14, AG71A12+15
DISP VCHK+3, VCHK+4, VCHK+6, VCHK+7
SORRY AG71A12+3, AG71A12+5, AG71A12+23, AG71A12+36

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGP VCHK+1~, VCHK+3, VCHK+4, VCHK+5*, VCHK+6, VCHK+7, DISP~, DISP+4
AGPAT VCHK~, VCHK+3, VCHK+4, VCHK+6, VCHK+7, DISP~, DISP+3
AGPRE VCHK~, VCHK+2, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~, DISP+3, DISP+4
AGR DISP~, DISP+5
AGS PCHK+1~, PCHK+3*, PCHK+8*, PCHK+9, DISP+2~, DISP+3*, DISP+4*, DISP+5*, DISP+6
AGV VCHK+1~, VCHK+2*, VCHK+3, VCHK+4, DISP~, DISP+4
AGVER VCHK~, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~, DISP+3
>> D AG71A12+18*
DA AG71A12+17~
DIC AG71A12+17~, AG71A12+18*
DIC(0 AG71A12+18*
DIFQ SORRY+1!, VCHK+3!, VCHK+6!
DUZ AG71A12+3, AG71A12+7
DUZ(0 AG71A12+5
IOM AG71A12+8, AG71A12+9, AG71A12+21, AG71A12+22, AG71A12+26, AG71A12+28, SORRY+3, PCHK+9, DISP+6
LATEST LAST+2~, LAST+6*, LAST+8*, LAST+9, LAST+10
PAT PCHK~, PCHK+2*, PCHK+3, PCHK+7
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
SUBIEN LAST+2~, LAST+6*, LAST+7*, LAST+8, LAST+9
U AG71A12+7, LAST+8, LAST+9, LAST+10
VER PCHK~, PCHK+2*, PCHK+3, PCHK+6, LAST~, LAST+3*, LAST+5
VERIEN PCHK+1~, PCHK+6*, PCHK+7, LAST+2~, LAST+5*, LAST+7, LAST+8, LAST+9
X AG71A12+7*, AG71A12+8, AG71A12+18*, SORRY~, SORRY+2
>> XPDDIQ("XPZ1" AG71A12+33*
>> XPDDIQ("XPZ2" AG71A12+33*
>> XPDENV AG71A12+30
>> XPDQUIT AG71A12+11*, AG71A12+12*, AG71A12+13*, AG71A12+14*, AG71A12+15*, AG71A12+26, SORRY+2*
>> Y AG71A12+20

Marked Items

Name Field # of Occurrence
$T( AG71A12+9
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