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

Package: Contract Health Management Information System

Routine: ACHS278


Information

ACHS278 ;IHS/SET/GTH - X12 278 SETUP ; [ 12/06/2002 10:36 AM ]

Source Information

Source file <ACHS278.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 NOW^%DTC  $$GET1^DIQ  
IHS Generic Interface System 1 $$TS^INHUT1  
IHS Patient 1 ($$DOB,$$SEX,$$SSN)^AUPNPAT  
IHS VA Utilities 1 $$LOC^XBFUNC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHS278O  

Entry Points

Name Comments DBIA/ICR reference
GEN278(ACHSDIEN,ACHSTIEN,ACHS) ;PEP - Generate an array for the 278Outbound.
; DUZ(2) must exist.
; ACHSDIEN = IEN of the Document.
; ACHSTIEN = IEN of the Transaction.
; ACHSTOS = Type Of Service:
; 43 = Inpatient
; 57 = Dental
; 64 = Outpatient
TS() ;-- make a time stamp
SEGCNT() ;-- count number of segments
VNDR(I) ;-- get the vendors ein

External References

Name Field # of Occurrence
NOW^%DTC TS+1
$$DOB^AUPNPAT GEN278+187
$$SEX^AUPNPAT GEN278+189
$$SSN^AUPNPAT GEN278+182
$$GET1^DIQ GEN278+9, GEN278+10, GEN278+78, GEN278+83, GEN278+86, GEN278+90, GEN278+92, GEN278+93, GEN278+95, GEN278+103
, GEN278+107, GEN278+119, GEN278+122, GEN278+168, GEN278+170, GEN278+177, GEN278+236, GEN278+238, GEN278+285, GEN278+293
, GEN278+301, GEN278+302, GEN278+309, GEN278+313, GEN278+315, GEN278+317, GEN278+323, GEN278+327, GEN278+355, GEN278+361
, GEN278+376, GEN278+379, GEN278+388, GEN278+412, GEN278+498
$$TS^INHUT1 TS+2
$$LOC^XBFUNC GEN278+70

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(5 - [#5] GET1^DIQ
^USC(8932.1 - [#8932.1] GET1^DIQ
^ACHSF - [#9002080] GET1^DIQ
9002080.01 GET1^DIQ
9002080.02 GET1^DIQ
^AUTTLOC - [#9999999.06] GET1^DIQ
^AUTTVNDR - [#9999999.11] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] VNDR+2
^AUPNPAT - [#9000001] GEN278+365
^AUTTVNDR - [#9999999.11] VNDR+4

Label References

Name Line Occurrences
$$SEGCNT GEN278+503
$$TS GEN278+24, GEN278+26, GEN278+28
$$VNDR GEN278+52

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GEN278+92*, GEN278+93, GEN278+102*, GEN278+103, GEN278+119*, GEN278+120, GEN278+122, GEN278+285*, GEN278+286, GEN278+302*
, GEN278+303, GEN278+355*, GEN278+356, TS+2
ACHS GEN278~
ACHS( SEGCNT+3
ACHS("2782000AHL1" GEN278+32*
ACHS("2782000AHL3" GEN278+35*
ACHS("2782000AHL4" GEN278+37*
ACHS("2782000BHL1" GEN278+56*
ACHS("2782000BHL2" GEN278+58*
ACHS("2782000BHL3" GEN278+60*
ACHS("2782000BHL4" GEN278+62*
ACHS("2782000CHL1" GEN278+125*
ACHS("2782000CHL2" GEN278+127*
ACHS("2782000CHL3" GEN278+129*
ACHS("2782000CHL4" GEN278+131*
ACHS("2782000DHL1" GEN278+192*
ACHS("2782000DHL2" GEN278+194*
ACHS("2782000DHL3" GEN278+196*
ACHS("2782000DHL4" GEN278+198*
ACHS("2782000EHL1" GEN278+271*
ACHS("2782000EHL2" GEN278+273*
ACHS("2782000EHL3" GEN278+275*
ACHS("2782000EHL4" GEN278+277*
ACHS("2782000EMSG1" GEN278+286*
ACHS("2782000FDTPA1" GEN278+372*
ACHS("2782000FDTPA2" GEN278+374*
ACHS("2782000FDTPA3" GEN278+376*
ACHS("2782000FDTPB1" GEN278+382*
ACHS("2782000FDTPB2" GEN278+384*
ACHS("2782000FDTPB3" GEN278+379*, GEN278+380*, GEN278+382, GEN278+384
ACHS("2782000FDTPC1" GEN278+391*
ACHS("2782000FDTPC2" GEN278+393*
ACHS("2782000FDTPC3" GEN278+388*, GEN278+389*, GEN278+391, GEN278+393
ACHS("2782000FHL1" GEN278+338*
ACHS("2782000FHL2" GEN278+340*
ACHS("2782000FHL3" GEN278+342*
ACHS("2782000FHL4" GEN278+344*
ACHS("2782000FHSD1" GEN278+410*
ACHS("2782000FHSD2" GEN278+412*, GEN278+413*
ACHS("2782000FMSG1" GEN278+498*
ACHS("2782000FUM1" GEN278+353*
ACHS("2782000FUM2" GEN278+356*
ACHS("2782000FUM6" GEN278+361*
ACHS("2782000FUM9" GEN278+365*
ACHS("2782010ANM11" GEN278+41*
ACHS("2782010ANM12" GEN278+43*
ACHS("2782010ANM18" GEN278+50*
ACHS("2782010ANM19" GEN278+52*
ACHS("2782010BN31" GEN278+86*
ACHS("2782010BN41" GEN278+90*
ACHS("2782010BN42" GEN278+93*
ACHS("2782010BN43" GEN278+95*
ACHS("2782010BNM11" GEN278+66*
ACHS("2782010BNM12" GEN278+68*
ACHS("2782010BNM13" GEN278+70*
ACHS("2782010BNM18" GEN278+76*
ACHS("2782010BNM19" GEN278+78*
ACHS("2782010BPER1" GEN278+99*
ACHS("2782010BPER2" GEN278+101*, GEN278+103*
ACHS("2782010BPER3" GEN278+105*
ACHS("2782010BPER4" GEN278+107*
ACHS("2782010BPRV1" GEN278+114*
ACHS("2782010BPRV2" GEN278+116*, GEN278+121*
ACHS("2782010BPRV3" GEN278+118*, GEN278+122*
ACHS("2782010BREF1" GEN278+81*
ACHS("2782010BREF2" GEN278+83*
ACHS("2782010CDMG1" GEN278+185*
ACHS("2782010CDMG2" GEN278+187*
ACHS("2782010CDMG3" GEN278+189*
ACHS("2782010CNM11" GEN278+164*
ACHS("2782010CNM12" GEN278+166*
ACHS("2782010CNM13" GEN278+168*
ACHS("2782010CNM14" GEN278+170*
ACHS("2782010CNM18" GEN278+175*
ACHS("2782010CNM19" GEN278+177*
ACHS("2782010CREF1" GEN278+180*
ACHS("2782010CREF2" GEN278+182*
ACHS("2782010DNM11" GEN278+232*
ACHS("2782010DNM12" GEN278+234*
ACHS("2782010DNM13" GEN278+236*
ACHS("2782010DNM14" GEN278+238*
ACHS("2782010EN31" GEN278+309*
ACHS("2782010EN41" GEN278+313*
ACHS("2782010EN42" GEN278+315*
ACHS("2782010EN43" GEN278+317*
ACHS("2782010ENM11" GEN278+289*
ACHS("2782010ENM12" GEN278+291*
ACHS("2782010ENM13" GEN278+293*
ACHS("2782010ENM18" GEN278+299*
ACHS("2782010ENM19" GEN278+301*, GEN278+303*
ACHS("2782010EPER1" GEN278+321*
ACHS("2782010EPER2" GEN278+323*
ACHS("2782010EPER3" GEN278+325*
ACHS("2782010EPER4" GEN278+327*
ACHS("278HFBHT1" GEN278+20*
ACHS("278HFBHT2" GEN278+22*
ACHS("278HFBHT3" GEN278+24*
ACHS("278HFBHT4" GEN278+26*
ACHS("278HFBHT5" GEN278+28*
ACHS("278HFSE1" GEN278+503*
ACHS("278HFSE2" GEN278+501*
ACHS("278HFST1" GEN278+14*
ACHS("278HFST2" GEN278+16*
ACHS("DTP032000F" GEN278+380, GEN278+389
ACHSDIEN GEN278~, GEN278+9, GEN278+10, GEN278+24, GEN278+52, GEN278+119, GEN278+168, GEN278+170, GEN278+177, GEN278+236
, GEN278+238, GEN278+285, GEN278+293, GEN278+301, GEN278+302, GEN278+309, GEN278+313, GEN278+315, GEN278+317, GEN278+323
, GEN278+327, GEN278+355, GEN278+361, GEN278+376, GEN278+379, GEN278+388, GEN278+412, GEN278+498
ACHSTIEN GEN278~, GEN278+355
>> ACHSTOS GEN278+9*, GEN278+102, GEN278+353
C SEGCNT+1~, SEGCNT+2*, SEGCNT+3*, SEGCNT+4
D SEGCNT+1~, SEGCNT+2*, SEGCNT+3*
>> DFN GEN278+10*, GEN278+182, GEN278+187, GEN278+189, GEN278+365
DUZ(2 GEN278+9, GEN278+10, GEN278+78, GEN278+83, GEN278+86, GEN278+90, GEN278+92, GEN278+95, GEN278+103, GEN278+107
, GEN278+119, GEN278+168, GEN278+170, GEN278+177, GEN278+236, GEN278+238, GEN278+285, GEN278+293, GEN278+301, GEN278+302
, GEN278+309, GEN278+313, GEN278+315, GEN278+317, GEN278+323, GEN278+327, GEN278+355, GEN278+361, GEN278+376, GEN278+379
, GEN278+388, GEN278+412, GEN278+498, VNDR+2
I VNDR~, VNDR+2
U VNDR+2, VNDR+4
V VNDR+1~, VNDR+2*, VNDR+3, VNDR+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All