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: HBHCAPPT

Package: Hospital Based Home Care

Routine: HBHCAPPT


Information

HBHCAPPT ; LR VAMC(IRMS)/MJT-HBHC batch job to create ^HBHC(632) (visit) nodes from PCE module info => patient, appointment date/time, hospital location (clinic), prov, DX code(s), & CPT code(s), calls ^HBHCCAN, HBHCAPP1 ; Jul 2000

Source Information

Source file <HBHCAPPT.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Scheduling 2 (GETCPT,GETDX,GETPRV)^SDOE  (ACTIVE,CLOSE,DATE,INDEX,OPEN,SCAN,SCANCB)^SDQ  
VA FileMan 2 FILE^DICN  IX^DIK  
Hospital Based Home Care 1 (ERROR,EXIT,MAIL,START)^HBHCAPP1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Hospital Based Home Care 4 HBHC AUTO-QUEUED FILE UPDATE  HBHCFILE  HBHCPS12  HBHCPS24  

Entry Points

Name Comments DBIA/ICR reference
SCAN ; Scan
EXIT ; Exit module
CB(HBHCOEP,HBHCSCE0,HBHCSTOP) ;
; Omit Child encounter, (child if Parent Encounter field contains data)
VERIFY ; Verify record doesn't already exist in ^HBHC(632) file
PROCESS ; Process provider, diagnosis (DX), & CPT code data
; Dx
SET ; Set node, call ^DIK to set cross-refs in ^HBHC(632) (visit) file
SETLOOP ; Set loop
CHECK ; Check to ensure provider only has 1 HBHC Provider Number (631.4) or if > 1, has others flagged as Inactive Provider Numbers
PROV ; Encounter provider & CPT code processing
SUB1 ; Subroutine 1 for encounter provider & CPT code processing
SUB2 ; Subroutine 2 for encounter provider & CPT code processing
SETCPT ; Set CPT multiple
SETMOD ; Set CPT Modifier multiple

External References

Name Field # of Occurrence
FILE^DICN SETLOOP+7, SETCPT+1, SETMOD+1
IX^DIK SETLOOP+10
ERROR^HBHCAPP1 CB+10
EXIT^HBHCAPP1 EXIT+1
MAIL^HBHCAPP1 SCAN+9
START^HBHCAPP1 HBHCAPPT+3
GETCPT^SDOE PROCESS+20
GETDX^SDOE PROCESS+3
GETPRV^SDOE PROCESS+10
ACTIVE^SDQ SCAN+6
CLOSE^SDQ SCAN+8
DATE^SDQ SCAN+4
INDEX^SDQ SCAN+3
OPEN^SDQ SCAN+2
SCAN^SDQ SCAN+7
SCANCB^SDQ SCAN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HBHC(632 - [#632] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(632 SETLOOP+7, SETCPT+1
^DD(632.032 SETCPT+4
^HBHC(631.4 - [#631.4] SETLOOP+1, CHECK+1
^HBHC(631.6 - [#631.6] CB+8
^HBHC(631.9 - [#631.9] SCAN+11*
^HBHC(632 - [#632] VERIFY+3, SETLOOP+2*, SETLOOP+3*, SETLOOP+4, SETLOOP+6, SETLOOP+7, SETLOOP+8, SETLOOP+9*
^HBHC(634.1 - [#634.1] SCAN+9
^HBHC(634.2 - [#634.2] SCAN+9
^HBHC(634.3 - [#634.3] SCAN+9
^HBHC(634.5 - [#634.5] SCAN+9

Label References

Name Line Occurrences
CHECK PROCESS+11, PROCESS+21
PROCESS CB+10
PROV PROCESS+21
SETCPT SETLOOP+5
SETLOOP SET+1
SETMOD SETLOOP+5
SUB1 PROV+2
SUB2 PROV+2
VERIFY CB+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA SETLOOP+10*, SETCPT+3*, SETCPT+4, SETMOD+1*
>> DA(1 SETLOOP+7*, SETCPT+1*, SETCPT+3*
>> DA(2 SETCPT+3*
DD SETLOOP+7!, SETCPT+1!, SETCPT+4!
>> DIC SETLOOP+7*, SETCPT+1*, SETCPT+4*
>> DIC("P" SETLOOP+7*, SETCPT+1*, SETCPT+4*
>> DIC(0 SETLOOP+7*, SETCPT+1*
DIK SETLOOP+10!*
DO SETLOOP+7!, SETCPT+1!, SETCPT+4!
>> HBHC SETLOOP+1*, SETLOOP+9
>> HBHCAPDT VERIFY+1*, VERIFY+3, SETLOOP+9
>> HBHCBGDT SCAN+4
>> HBHCBXRF VERIFY+3*
>> HBHCCLN CB+9*, SETLOOP+9
>> HBHCCNT PROCESS+4*, PROCESS+5*
>> HBHCCPT SETLOOP+4*, SETLOOP+5*, SETCPT+1, SETMOD+1
HBHCCPTL PROCESS+19!, PROCESS+27
HBHCCPTL( PROCESS+21, SUB1+1, SUB1+2, SUB2+1
>> HBHCDFN PROCESS+5*, PROCESS+11*, PROCESS+21*, SETLOOP+2*, SETLOOP+4, SETLOOP+6, SETLOOP+7, SETLOOP+8, SETLOOP+9, SETLOOP+10
, SUB1+1, SUB1+2, SUB2+1, SETCPT+1
>> HBHCDPT VERIFY+1*, VERIFY+2, VERIFY+3, SETLOOP+9
HBHCDX PROCESS+2!
HBHCDX( PROCESS+4*, PROCESS+5*, SETLOOP+7
HBHCDX(1 PROCESS+5*
HBHCDXL PROCESS+2!, PROCESS+4, PROCESS+5, PROCESS+7
HBHCDXL( PROCESS+5
>> HBHCFLG CB+10, VERIFY+1*, VERIFY+2*, VERIFY+3*
>> HBHCI PROCESS+4*, SETLOOP+7*
>> HBHCIEN CHECK+1*
>> HBHCJ PROV+2*, SUB1+1, SUB1+2, SUB2+1
>> HBHCK SETLOOP+5*, SUB1+2*, SUB2+1*, SETMOD+1
>> HBHCLSDT SCAN+4
>> HBHCMSG CB+10, PROCESS+7*, PROCESS+13*, PROCESS+15*, PROCESS+17*, PROCESS+21, PROCESS+23, PROCESS+25*, PROCESS+27*, PROCESS+29*
, SUB2+2*
>> HBHCNBR PROCESS+21*, SETLOOP+5*, PROV+2, SETMOD+1
HBHCOEP CB~, VERIFY+3, PROCESS+3, PROCESS+10, PROCESS+20, SETLOOP+9
>> HBHCONE PROCESS+11*, PROCESS+15, PROCESS+17, PROCESS+21*, CHECK+1*, SUB2+1
>> HBHCPCNT PROCESS+11*, PROV+1, SUB1+1, SUB1+2
HBHCPRV PROCESS+11*, PROCESS+19!, PROCESS+21*, SET+1*, SETLOOP+1, SETLOOP+5, CHECK+1, PROV+2, SUB2+1, SUB2+2
, SETMOD+1
HBHCPRV( SET+1, SETLOOP+5, SUB1+1*, SUB1+2*, SUB2+1*, SETMOD+1
HBHCPRV("ZZ" PROCESS+25
HBHCPRV1 PROCESS+9!
HBHCPRV1( PROCESS+11*, PROV+1, SUB2+1, SUB2+2
HBHCPRVL PROCESS+9!, PROCESS+13
HBHCPRVL( PROCESS+11
HBHCQRY SCAN+1~, SCAN+2, SCAN+3, SCAN+4, SCAN+5, SCAN+6, SCAN+7, SCAN+8
HBHCSCE0 CB~, CB+2, CB+4, CB+6, CB+8, CB+9, VERIFY+1, PROCESS+29
HBHCSTOP CB~
>> HBHCTXT PROV+1*, SUB1+1, SUB1+2
U SCAN+11, CB+2, CB+4, CB+6, CB+8, CB+9, VERIFY+1, VERIFY+3, PROCESS+5, PROCESS+11
, PROCESS+21, PROCESS+29, SETLOOP+2, SETLOOP+3, SETLOOP+7, SETLOOP+9, SUB1+1, SUB1+2, SUB2+1, SETCPT+1
, SETCPT+4
>> X SETLOOP+7*, SETCPT+1*, SETMOD+1*
>> Y SETCPT+3, SETMOD+1
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