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 |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DILIBF

Package: VA Fileman

Routine: DILIBF


Information

DILIBF ;SFISC/STAFF-LIBRARY OF FUNCTIONS ;1:48 PM 20 Feb 2013

Source Information

Source file <DILIBF.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 4 BLD^DIALOG  $$OUT^DIALOGU  OS^DII  $$CREF^DILF  

Caller Graph

Caller Graph Total: 80

Package Total Caller Graph
VA Fileman 55 DDBRU  DDMP2  DDR1  DDS0  DDW  DIAUTL  DIAXMS  DIBTED  
DIC0  DIC1  DIC2  DIC5  DICA  DICATT4  DICE  DICF1  
DICM  DICN0  DICOMP0  DICOMPZ  DICU2  DIDH  DIDU  DIE  
DIEF  DIEFU  DIEH  DIET  DIEV  DIEV1  DIEZ  DIFROMSX  
DIFROMSY  DIK  DIKCFORM  DIKCR  DINIT6  DINVMSM  DIO2  DIOC  
DIOU  DIP12  DIP21  DIP5  DIPZ0  DIPZ2  DIQ  DIQG  
DIQGU  DIR1  DIS  DITMGM2A  DIU21  DIVR1  DIWE3  
Controlled Substances 5 PSDRF  PSDRF4  PSDRFR  PSDRFS  PSDRFW  
IHS Prenatal Care Module 2 BJPN20AU  BJPNPRL  
Kernel 2 CPRS TAB  XPDCOMF  
Outpatient Pharmacy 2 CPRS TAB  ^PS(59  
Registration 2 DGENRPT5  DGRP14  
Scheduling 2 SCMCCV4  ^DIC(40.7  
Capacity Management - RUM 1 KMPRPG02  
Contract Health Management Information System 1 AMENDMENTS  
IHS Patient Registration 1 AGED11A  
IHS Standard Terminology 1 BSTSUTIL  
IHS VA Support Files 1 CPRS TAB  
Integrated Billing 1 SERVICE [OEF OR OIF]  
Order Entry Results Reporting 1 CPRS TAB  
Patient Registration GUI 1 AGGUL1  
Problem List 1 CPRS TAB  
iCare 1 BQIUL1  

Entry Points

Name Comments DBIA/ICR reference
DOW(X,Y) ;Day of Week
M ;; Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
HDIFF(X1,X2,X3) ;$H diff in two dates, X3 same as FMDIFF.
UP(X) ; convert string X to uppercase
CONVQQ(X) ; CONVERT SINGLE TO DOUBLE QUOTES IN STRING X
GLO(Z) ; gets the file number from a global root
HKERR(DIFILE,DIIENS,DIFLD,DIHOOK) ;
FMADD(X,D,H,M,S) ;Add to FM date
FILENUM(DIGREF) ;Return file/subfile number from open global reference
QRER
HADD(X,D,H,M,S) ;Add to $H date
A2
QUOTE(X) ; PUT QUOTES AROUND STRING
HTFM(%H,%F) ;$H to FM
TM
FMTH(X,%F) ;FM to $H
FMDIFF(X1,X2,X3) ;FM diff in two dates in days if x3=1 seconds if x3=2.
H ;
T2
ROUEXIST(X) ; Execute routine existence test
F1
F2
F3
F4
F5 ;
F6
F7
D2
MU ;; JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC
FNO(X) ; gets a subfile's top level file number
HTE(%H,%F) ;$H to external
CONVQ(X) ; CONVERT DOUBLE TO SINGLE QUOTES IN STRING X
FMTE(Y,%F) ;FM to external

External References

Name Field # of Occurrence
BLD^DIALOG HKERR+6
$$OUT^DIALOGU FMTE+1
OS^DII ROUEXIST+1
$$CREF^DILF FILENUM+5, FILENUM+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" ROUEXIST+2
^DD( FNO+3, FILENUM+11
^DD("OS" - [#.7] ROUEXIST+3
^DIC - [#1] FNO+2, FNO+4

Label References

Name Line Occurrences
$$FMTH FMADD+1
$$FNO GLO+4
$$HTFM HTE+1, FMADD+1
@( T2
A2 HADD+1, FMADD+1
D2 HDIFF+2
H FMTH+1, DOW+1, FMDIFF+1
M F1
MU F1
QRER ROUEXIST+1
T2 HTE+1
TM F2+1, F3+1, F4+1, F6+1, F7+1

Naked Globals

Name Field # of Occurrence
^("TEST" ROUEXIST+2
^(18 ROUEXIST+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HTFM+1~, HTFM+3*, HTFM+4, HTFM+5*, HTFM+6*, HTFM+7, H+1~, H+8*, H+9, H+12
, D2+2*, D2+3, D2+4*, D2+5
%D HTFM+1~, HTFM+4*, HTFM+5, H+1~, H+2*, H+7, H+8, DOW+1~
%F HTFM~, HTFM+1*, HTFM+7, FMTH~, FMTH+1*, HTE~, HTE+1*, FMTE~, FMTE+1*, T2
, F1, TM, TM+1, TM+2
%H HTFM~, HTFM+2*, HTFM+3, HTFM+5, FMTH+1~*, H+1*, H+7*, H+9*, H+10*, H+11*
, H+12, HTE~, HTE+1, DOW+1~, FMDIFF+1~, D2, HDIFF+1~*, HADD+1~*, A2*, A2+1*
, FMADD+1~*
%M HTFM+1~, HTFM+4*, HTFM+5, H+1~, H+2*, H+5, H+7, H+8, DOW+1~
%R HTE+1~, FMTE+2~, T2, F1*, TM+1*, TM+2*, F2*, F3*, F4*, F6*
, F7*
%T H+1~, H+3*, H+10*, H+11, HTE+1~, FMTE+2~, T2*, DOW+1~, HDIFF+1~, HADD+1~*
, A2*, A2+1*, FMADD+1~*, TM, TM+1, TM+2
%Y HTFM+1~, HTFM+3*, HTFM+4, HTFM+5, FMTH+1~, H+1*, H+2*, H+5, H+8*, H+9
, H+12*, DOW+1~, DOW+2, FMDIFF+1~
A UP+2~, UP+3*
B UP+2~, UP+3*
C UP+2~*, UP+3*, UP+4
D HADD~, A2, FMADD~, CONVQ+1~*, CONVQ+2
DIEXT HKERR+1~, HKERR+6
DIEXT("FIELD" HKERR+3*
DIEXT("FILE" HKERR+2*
DIEXT("IENS" HKERR+4*
DIEXT(1 HKERR+5*
DIFILE HKERR~, HKERR+2, FILENUM+3~, FILENUM+4*, FILENUM+11*, FILENUM+12
DIFLD HKERR~, HKERR+3
DIGREF FILENUM~, FILENUM+1, FILENUM+2, FILENUM+4, FILENUM+5*, FILENUM+6
DIHOOK HKERR~, HKERR+5, HKERR+6
DIIENS HKERR~, HKERR+4
DILEAP H+4~, H+6*, H+9
DISYS ROUEXIST+1~, ROUEXIST+3
DUZ("LANG" FMTE+1
F CONVQQ+1~, CONVQQ+2*, CONVQ+1~, CONVQ+2*, FILENUM+3~, FILENUM+8*, FILENUM+9*, FILENUM+10*, FILENUM+11*
H HADD~, A2, FMADD~
L UP+2~, UP+3*
M HADD~, A2, FMADD~
Q CONVQQ+1~*, CONVQQ+2, CONVQ+1~*, CONVQ+2
S HADD~, A2, FMADD~, FILENUM+3~, FILENUM+10*
U GLO+3, FILENUM+4, FILENUM+10, FILENUM+11
X HTFM+1~, HTFM+5*, HTFM+7*, FMTH~, H+1, H+2, H+3, DOW~, FMDIFF+1~*, D2*
, D2+2*, D2+3*, D2+4*, D2+5*, D2+7, HDIFF+1~, HADD~, HADD+1, FMADD~, FMADD+1
, CONVQQ~, CONVQQ+2*, CONVQQ+3, CONVQ~, CONVQ+2*, CONVQ+3, QUOTE~, QUOTE+1*, FNO~, FNO+1*
, FNO+2, FNO+3, FNO+4!, FNO+5*, UP~, UP+1, UP+3, ROUEXIST~, ROUEXIST+1, FILENUM+3~
, FILENUM+6*, FILENUM+7*, FILENUM+8, FILENUM+9, FILENUM+10, FILENUM+11*
X( FILENUM+6*, FILENUM+8, FILENUM+9, FILENUM+10, FILENUM+11
X("" FILENUM+7
X1 FMDIFF~, FMDIFF+1*, D2, HDIFF~, HDIFF+1*
X1(1 FMDIFF+1*, D2, HDIFF+1*
X2 FMDIFF~, FMDIFF+1, HDIFF~, HDIFF+1
X3 FMDIFF~, FMDIFF+1*, D2, D2+1, HDIFF~, HDIFF+1*
Y H+5~*, H+6, HTE+1~*, FMTE~, FMTE+1, T2, DOW~, DOW+1, FNO+1~, FNO+3*
, FNO+4, FNO+5, FNO+7, GLO+2~, GLO+3*, GLO+4, F1, F2, F3, F4
, F6, F7
Z GLO~, GLO+1, GLO+3

Marked Items

Name Field # of Occurrence
$T(M F1
$T(MU F1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All