Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
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>

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")

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(364.7 - [#364.7] Classic Fileman Calls
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call