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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IB20P207

Package: Integrated Billing

Routine: IB20P207


Information

IB20P207 ;BP/TJH; ENVIRONMENT CHECK WITH PRE-INIT CODE ; 01/03/2003

Source Information

Source file <IB20P207.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ($$NEWCP,BMES,MES)^XPDUTL  
VA FileMan 1 (,WP)^DIE  

Entry Points

Name Comments DBIA/ICR reference
ENV ; environment check
; No special environment check at this time.
PRE ; set up check points for pre-init
R28 ; set new value into record 28 of file 364.7, re: WAS-0902-20562
; change the Format Code
R900 ; set new values into record 900 of file 364.7, re: CTX-1002-70456
; change the Data Element from 234 to 236
COMPLETE ; display message that step has completed successfully
END ; display message that pre-init has completed successfully
TEXT ;Storage area for long strings of text
TEXT1 ;;S IBXDATA=$G(IBXSAVE("DISDT")) D:$S(IBXDATA="":'$$INPAT^IBCEF(IBXIEN,1),1:0) F^IBCEF("N-STATEMENT COVERS TO DATE",,,IBXIEN) I IBXDATA S IBXDATA=$$DT^IBCEFG1(IBXDATA\1,"","D8")
TEXT2 ;;N A,Z,Q S Q=IBXDATA K IBXDATA F Z=1,2 S A=$P(Q,U,Z) I $D(^DGCR(399,IBXIEN,"I"_(Z+1))) S IBXDATA(Z)=$S(A="":"G2","MAMB16"[A:"1C",A="TV"!(A="MC"):"1D",A="CH":"1H",A="BL":$S($$FT^IBCEF(IBXIEN)=2:"1B",1:"1A"),1:"G2")

External References

Name Field # of Occurrence
^DIE R28+4, R900+7, R900+10
WP^DIE R28+12, R900+18
$$NEWCP^XPDUTL PRE+2, PRE+3
BMES^XPDUTL R28+2, R28+6, R900+2, R900+9, R900+12, COMPLETE+1, END+1
MES^XPDUTL R900+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(364.7 - [#364.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(364.5 - [#364.5] R900+5

Label References

Name Line Occurrences
COMPLETE R28+13, R900+19
TEXT1 R28+4
TEXT2 R900+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRE+1~, PRE+2*, PRE+3*
DA R28+3~, R28+4*, R900+4~, R900+7*, R900+10*
DIE R28+3~, R28+4*, R900+4~, R900+7*, R900+10*
DR R28+3~, R28+4*, R900+4~, R900+7*, R900+10*
FIELD R28+3~, R28+11*, R28+12, R900+4~, R900+17*, R900+18
FILE R28+3~, R28+11*, R28+12, R900+4~, R900+17*, R900+18
FLAGS R28+3~, R28+11*, R28+12, R900+4~, R900+17*, R900+18
IBELE R900+4~, R900+5*, R900+6*, R900+7
IBERRM R28+3~, R900+4~
IBWPA R28+3~, R900+4~
IBWPA(1 R28+7*, R900+13*
IBWPA(2 R28+8*, R900+14*
IBWPA(3 R28+9*, R900+15*
IBWPA(4 R28+10*, R900+16*
IENS R28+3~, R28+11*, R28+12, R900+4~, R900+17*, R900+18

Marked Items

Name Field # of Occurrence
$T(TEXT1 R28+4
$T(TEXT2 R900+10
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All