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

Package: Contract Health Management Information System

Routine: ACHSBMC


Information

ACHSBMC ; IHS/ITSC/PMF - RCIS INTERFACE SUBROUTINES ;

Source Information

Source file <ACHSBMC.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS VA Utilities 3 $$DIR^XBDIR  $$EXTSET^XBFUNC  EN^XBVK  
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  
Contract Health Management Information System 2 ($$DIE,$$DOC,$$FC,$$HRN,$$TRAN,RTRN)^ACHS  ^ACHSUD  
Kernel 2 $$FMDIFF^XLFDT  ($$PATCH,$$VERSION)^XPDUTL  
Referred Care Information System 2 (AUTH,DXA,DXD,PXA,SET,STAT)^BMCCHS  APPEAL^BMCCHS1  

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Contract Health Management Information System 11 ACHS ADD REFERRAL  ACHSA  ACHSA7  ACHSAC  ACHSAS  ACHSDADP  ACHSDN  ACHSEOB3  
ACHSEOB9  ACHSPA  ACHSPAM  

Entry Points

Name Comments DBIA/ICR reference
GETREF4 ;ACHS*3.1*10 4.19.04 IHS/ITSC/FCJ ADD LN LABEL NXT SEC
GETREF2 ; TEST FOR ADDING NEW PO'S
ADD2 ;
ADD1 ;
GETREF1 ;
PX ;EP - Transfer PX info to RCIS.
; ACHSDIEN = P.O. IEN at the "D" level
LINK() ;EP - Is link to RCIS on?
VCHK() ;EP - VER OF RCIS
AUTH ;EP - Update the P.O. status in REF
; ACHSREF = Ref IEN Req
; ACHSDIEN = P.O. IEN, "D" level Req
GETREF(ACHS) ;EP - select ref, retrieve info
GETREF0
ADD ;EP - link P.O. to referral
DX1 ;EP;UPDATE FOR ICD9 FIX ;ACHS*3.1*22 ADDED CALL TO DELETE DX IN RCIS
; ACHSDIEN = P.O. IEN, "D" level req
DX ;EP - Trans DX info to RCIS.
; ACHSDIEN = P.O. IEN, "D" level req
P(I,S,P) ;EP - Return Internal format of Referral with IEN of I,S, Piece P.
; FOR USE DURING DEVELOPMENT. RCIS WILL PROVIDE REQUIRED DATA ITEMS
STAT(S) ;EP - Update Referral status
; ACHSREF must contain the Referral IEN.
APPEAL ;EP -Update Referral appeal info
GETREF3 ;ACHS*3.1*10 4.19.04 IHS/ITSC/FCJ TST CALL FR DEN PKG ADDED NXT 3 LINES

External References

Name Field # of Occurrence
$$DIE^ACHS ADD2+8, AUTH+8, AUTH+28
$$DOC^ACHS ADD1+3, ADD1+5, ADD2+3, ADD2+5, AUTH+5, AUTH+10, AUTH+11, AUTH+12, AUTH+23, AUTH+24
, DX+5, DX+6, DX1+4, DX1+5, PX+5, PX+6
$$FC^ACHS AUTH+23
$$HRN^ACHS GETREF4+29
$$TRAN^ACHS AUTH+14
RTRN^ACHS ADD2+8
^ACHSUD ADD1+1
AUTH^BMCCHS AUTH+6, AUTH+26
DXA^BMCCHS DX+13, DX1+11
DXD^BMCCHS DX1+14
PXA^BMCCHS PX+18
SET^BMCCHS GETREF0+4, GETREF4+2
STAT^BMCCHS STAT+28
APPEAL^BMCCHS1 APPEAL+13
^DIC GETREF1+1
$$GET1^DIQ ADD1+5, GETREF1+6, GETREF2+6, GETREF2+9, LINK+2
^DIR GETREF4+27
$$DIR^XBDIR GETREF2+7, GETREF2+10, GETREF2+13
$$EXTSET^XBFUNC GETREF4+21
EN^XBVK GETREF1+11
$$FMDIFF^XLFDT GETREF2+7
$$PATCH^XPDUTL APPEAL+13
$$VERSION^XPDUTL VCHK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The link to the Referral system is not on."
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: *7,!,"This document has been canceled."
  • Line Location: ADD1+3
Function Call: WRITE
  • Prompt: *7,!,"This document is already linked to Referral ",$P($G(^BMCREF($$DOC^ACHS(2,7),0)),U,2),"."
  • Line Location: ADD1+4
Function Call: WRITE
  • Prompt: *7,!,"This document is already linked to Referral ",$$GET1^DIQ(90001,$$DOC^ACHS(2,7),.02),"."
  • Line Location: ADD1+5
Function Call: WRITE
  • Prompt: *7,!,"Addition of Referral failed in routine ACHSBMC."
  • Line Location: ADD2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: GETREF0+0
Function Call: WRITE
  • Prompt: *7,!!,"You must have a CHS referral to enter a P.O.",!!
  • Line Location: GETREF2+12
Function Call: WRITE
  • Prompt: *7,!!,"A Referral has not been entered.",!!
  • Line Location: GETREF3+3
Routine Call
  • DIC
  • Line Location:
    • GETREF1+1
Routine Call
  • DIR
  • Line Location:
    • GETREF4+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BMCREF - [#90001] Classic Fileman Calls,  GET1^DIQ
^BMCPARM - [#90001.31] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEN - [#9002071] APPEAL+11, STAT+8, STAT+9, STAT+19, STAT+22, STAT+23
^ACHSDENA - [#9002074] APPEAL+6
^ACHSF - [#9002080] AUTH+14, AUTH+16, AUTH+17, AUTH+18, DX+9, DX+10, PX+10, PX+11, PX+17
^BMCREF - [#90001] GETREF0+4, P+2
^DPT - [#2] ADD2+4, ADD2+5, GETREF0+4

Label References

Name Line Occurrences
$$LINK ADD+1, AUTH+4, DX+3, GETREF+1, PX+3, APPEAL+1, STAT+2
ADD1 ADD1+3, ADD1+5
ADD2 ADD2+3
AUTH ADD2+10
DX ADD2+10
GETREF ADD2+1
GETREF0 GETREF1+5, GETREF4+19
GETREF1 GETREF4+9, GETREF4+25
GETREF2 GETREF1+4
GETREF3 GETREF1+3
GETREF4 GETREF1+10
PX ADD2+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GETREF4+31*, GETREF4+32
A GETREF2+4~
>> ACHD("FAC" GETREF1+3, GETREF4+9, GETREF4+15, GETREF4+19, GETREF4+25
>> ACHDDOS STAT+11
>> ACHDNUM STAT+16
ACHS ADD1+6~, ADD1+7*, ADD2+1, ADD2+2, ADD2+8, ADD2+9, AUTH+9~, AUTH+26, DX+4~, DX+13
, DX1+3~, DX1+11, DX1+14, GETREF~, GETREF0+4, GETREF2+7!, GETREF2+10!, GETREF4+1*, GETREF4+2, GETREF4+12*
, GETREF4+22*, GETREF4+27, GETREF4+28*, PX+4~, PX+18, APPEAL+13, STAT+3~, STAT+28
ACHS( AUTH+10*, AUTH+11*, AUTH+12*, AUTH+13*, AUTH+14*, AUTH+15*, AUTH+17*, AUTH+18*, AUTH+19!, AUTH+20!
, AUTH+23*, AUTH+24*, DX+5*, DX+6*, DX+7*, DX+10*, DX+12*, DX+13, DX1+4*, DX1+5*
, DX1+6*, DX1+8*, DX1+10*, DX1+11, DX1+13*, DX1+14, GETREF0+4, GETREF4+9, GETREF4+19, GETREF4+21
, GETREF4+25, GETREF4+29, GETREF4+30, GETREF4+31, GETREF4+37, PX+5*, PX+6*, PX+7*, PX+8*, PX+11*
, PX+12, PX+13*, PX+15*, PX+16*, PX+17*, PX+18, STAT+8*, STAT+9*, STAT+10*, STAT+23*
ACHS("ADD" ADD1+7*, GETREF2+3
ACHS(1101 GETREF4+38
ACHS(1105 GETREF4+35
ACHS(1106 GETREF4+35, STAT+11*
ACHS(1112 APPEAL+7*, STAT+4*
ACHS(1113 APPEAL+8*, STAT+5*, STAT+12*
ACHS(1114 STAT+13*
ACHS(1121 APPEAL+9*, STAT+14*
ACHS(1122 APPEAL+10*, STAT+15*
ACHS(1128 GETREF4+16, APPEAL+11*, STAT+16*
ACHS(6116 APPEAL+2*
ACHS(6117 APPEAL+3*
ACHS(6118 APPEAL+4*, APPEAL+6
ACHS(6119 APPEAL+5*
>> ACHSA APPEAL+11, STAT+8, STAT+9, STAT+19, STAT+22, STAT+23
>> ACHSDES GETREF4+36*
>> ACHSDIEN ADD1+2, AUTH+6, AUTH+14, AUTH+16, AUTH+17, AUTH+18, AUTH+26, DX+9, DX+10, PX+10
, PX+11, PX+17
ACHSDX DX+4~, DX+8*, DX+9*, DX+10, DX+12, DX1+10
>> ACHSEDOS GETREF4+35*
>> ACHSESDO GETREF4+38*
>> ACHSHRN GETREF4+29*
>> ACHSICDN DX1+8
>> ACHSICDO DX1+13
>> ACHSPROV GETREF4+30*
ACHSPX PX+4~, PX+9*, PX+10*, PX+11, PX+17
ACHSPX1 PX+4~, PX+15, PX+16*
>> ACHSREC APPEAL+2, APPEAL+3, APPEAL+4, APPEAL+5
ACHSREF ADD2+9*, AUTH+6, AUTH+26, AUTH+28, GETREF2+7!, GETREF2+10!, STAT+28
ACHSREF(1114 STAT+13
ACHSREF(1128 GETREF4+15
ACHSREF(1201 GETREF4+36
>> ACHSRMPC GETREF4+37*
ACHSTIEN AUTH+9~, AUTH+13*, AUTH+14*, AUTH+15*, AUTH+16*
>> ACHSTYP GETREF4+32*
CT STAT+20*, STAT+21*, STAT+23, STAT+24*, STAT+25!
D GETREF0+1~
DA GETREF4+12!, GETREF4+28!
>> DFN ADD2+3, ADD2+4, GETREF4+29*
DIADD AUTH+7!, AUTH+27!
DIC AUTH+7!, AUTH+27!, DX+14!, DX1+15!, GETREF0+1~, GETREF0+3*
DIC("A" GETREF0+3*
DIC("B" GETREF0+4*
DIC(0 GETREF0+3*
DIR GETREF4+27!
DIR("A" GETREF4+27*
DIR("B" GETREF4+27*
DIR(0 GETREF4+27*
DLAYGO DX+14!, DX1+15!
DT GETREF2+7, APPEAL+8, APPEAL+10, STAT+5, STAT+12, STAT+15
>> DTOUT ADD2+2, GETREF2+3, GETREF3+2
>> DUOUT ADD2+2, GETREF1+2, GETREF1+5, GETREF2+3, GETREF2+11, GETREF2+13*, GETREF3+2
DUZ APPEAL+9, STAT+14
DUZ(2 AUTH+14, AUTH+16, AUTH+17, AUTH+18, AUTH+23, DX+9, DX+10, GETREF1+6, GETREF2+6, GETREF2+9
, GETREF4+29, LINK+2, PX+10, PX+11, PX+17, APPEAL+11, STAT+8, STAT+9, STAT+19, STAT+22
, STAT+23
I GETREF2+4~, P~, P+2, APPEAL+6*, APPEAL+7
LAYGO AUTH+7!, AUTH+27!
P P~, P+2
S P~, P+2, APPEAL+12!, STAT~, STAT+4, STAT+7, STAT+27!
U ADD2+4, ADD2+5, AUTH+17, AUTH+18, DX+10, GETREF0+4, P+2, PX+11, PX+17, APPEAL+2
, APPEAL+3, APPEAL+4, APPEAL+5, APPEAL+6, APPEAL+11, STAT+8, STAT+9, STAT+23
V GETREF2+4~
X STAT+19*, STAT+21, STAT+22, STAT+23, STAT+25!
X1 STAT+20*, STAT+22*, STAT+23, STAT+25!
>> Y GETREF1+6, GETREF1+8, GETREF2+2, GETREF2+6*, GETREF2+7, GETREF2+9*, GETREF2+10, GETREF3+1, GETREF4+1, GETREF4+12*
, GETREF4+25, GETREF4+27*, GETREF4+28*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All