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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSEC

Package: Pharmacy Point of Sale

Routine: ABSPOSEC


Information

ABSPOSEC ; IHS/SD/lwj - Point of Sale environment checker [ 05/28/2002 10:03 AM ]

Source Information

Source file <ABSPOSEC.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
SORRY(ABSPMSG,ABSPCD)
VCHK(ABSPPRE,ABSPVER,ABSPQUIT)
INSTALLD(ABSPPKG)
CHECK ;EP - called from Kids install routine
; First let's make sure they have DUZ(0) defined, and greet the user

External References

Name Field # of Occurrence
^DIC INSTALLD+13, INSTALLD+19
IX^DIC INSTALLD+8
$$DIR^XBDIR VCHK+5, SORRY+5
$$CJ^XLFSTR CHECK+8, CHECK+9, VCHK+4, VCHK+5, SORRY+4, SORRY+5
$$VERSION^XPDUTL VCHK+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(ABSPERS,",",2)_" "_$P(ABSPERS,","),IOM)
  • Line Location: CHECK+8
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" Ver: "_$P($T(+2),";",3)_" Patch: "_$P($T(+2),";",5)_".",IOM),!
  • Line Location: CHECK+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHECK+20
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_ABSPPRE_" v "_ABSPVER_"....."_ABSPPRE_" v "_ABSPV_" Present ",IOM)
  • Line Location: VCHK+4
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....",IOM)
  • Line Location: VCHK+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(ABSPMSG,IOM)
  • Line Location: SORRY+4
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry.....",IOM),$$DIR^XBDIR("E","Press RETURN")
  • Line Location: SORRY+5
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+13
    • INSTALLD+19
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+8

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)
^%ZOSF("TEST" CHECK+28
^VA(200 - [#200] CHECK+7

Label References

Name Line Occurrences
$$INSTALLD CHECK+34
$$VCHK CHECK+14, CHECK+15, CHECK+16, CHECK+17, CHECK+18, CHECK+19
SORRY CHECK+4, CHECK+5, CHECK+29, CHECK+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABSPCD SORRY~, SORRY+3
ABSPERS CHECK+3~, CHECK+7*, CHECK+8
ABSPMSG CHECK+3~, CHECK+29*, CHECK+35*, SORRY~, SORRY+4
>> ABSPPK CHECK+33*, CHECK+34
ABSPPKG INSTALLD~, INSTALLD+6, INSTALLD+12, INSTALLD+18
ABSPPRE VCHK~, VCHK+3, VCHK+4
>> ABSPPTCH CHECK+34*, CHECK+35
ABSPQUIT VCHK~, VCHK+5
ABSPV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5*
ABSPVER VCHK~, VCHK+4, VCHK+5
>> D INSTALLD+7*
DIC INSTALLD+3~, INSTALLD+7*, INSTALLD+12*, INSTALLD+18*
DIC(0 INSTALLD+7*
DIFQ VCHK+5!, SORRY+2!
DUZ CHECK+4, CHECK+7
DUZ(0 CHECK+5
IOM CHECK+8, CHECK+9, VCHK+4, VCHK+5, SORRY+4, SORRY+5
U CHECK+7
X CHECK+3~, CHECK+28*, INSTALLD+3~, INSTALLD+6*, INSTALLD+12*, INSTALLD+18*
>> XPDQUIT VCHK+5*, SORRY+3*
Y INSTALLD+3~, INSTALLD+9, INSTALLD+12, INSTALLD+14, INSTALLD+18, INSTALLD+20

Marked Items

Name Field # of Occurrence
$T( CHECK+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All