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

Package: Hospital Based Home Care

Routine: HBHCADM


Information

HBHCADM ;LR VAMC(IRMS)/MJT - HBHC eval/adm data entry, obtain demographic info from ^DPT, verify patient D/C from last episode/care before creating episode, calls ACTION^HBHCUTL, BIRTHYR^HBHCUTL1, SEXRACE^HBHCUTL1, MFHS^HBHCUTL3 ;May 2000

Source Information

Source file <HBHCADM.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIK  
Hospital Based Home Care 2 FORMMSG^HBHCUTL1  MFHS^HBHCUTL3  
DRG Grouper 1 $$SINFO^ICDEX  
Registration 1 ELIG^VADPT  

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

Package Total Caller Graph
Hospital Based Home Care 1 HBHCADM  

Entry Points

Name Comments DBIA/ICR reference
START ; Initialization
PROMPT ; Prompt user for patient name
EXIT ; Exit module
CHECK ; Check previous episode(s) of care for 'Reject' in Admit/Reject Action or Discharge Date to ensure completed episode of care before allowing another episode of care to be created
DEMO ; Obtain patient demographic info

External References

Name Field # of Occurrence
^DIC PROMPT+1
^DIE PROMPT+18, PROMPT+28
^DIK CHECK+3
FORMMSG^HBHCUTL1 PROMPT+7
MFHS^HBHCUTL3 START+2
$$SINFO^ICDEX PROMPT+22
ELIG^VADPT DEMO+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Patient has 'pseudo' social security number (SSN) on file. If patient was",!,"not chosen in error, contact MAS to correct the invalid SSN. Patient must",!,"have a valid SSN to be selected.",!
  • Line Location: PROMPT+4
Function Call: WRITE
  • Prompt: $C(7),!!!,"*** Record contains Discharge data indicating a Complete Episode of Care ***",!!
  • Line Location: PROMPT+6
Function Call: WRITE
  • Prompt: $C(7),!!,"Another user is editing this entry.",!!
  • Line Location: PROMPT+30
Function Call: WRITE
  • Prompt: $C(7),!!,"Patient must be discharged from last episode of care before new episode",!,"can be entered. Current episode not created.",!
  • Line Location: CHECK+2
Routine Call
  • DIC
  • Line Location:
    • PROMPT+1
Routine Call
  • DIE
  • Line Location:
    • PROMPT+18
    • PROMPT+28

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PROMPT+3, DEMO+2, DEMO+3, DEMO+4, DEMO+5
^HBHC(631 - [#631] PROMPT+5, PROMPT+6, PROMPT+8*, PROMPT+18, PROMPT+21, PROMPT+29, CHECK+1, DEMO+6*, DEMO+7*, DEMO+8*
, DEMO+9*, DEMO+10*
^HBHC(631.8 - [#631.8] DEMO+2, DEMO+6

Label References

Name Line Occurrences
CHECK PROMPT+8
DEMO PROMPT+10
EXIT PROMPT+2, PROMPT+7
PROMPT PROMPT+4, PROMPT+7, PROMPT+9, PROMPT+19, PROMPT+29, PROMPT+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA PROMPT+11*, PROMPT+21, EXIT+1!, CHECK+3*
DFN DEMO+3*!
DIC PROMPT+1!*, EXIT+1!
DIC(0 PROMPT+1*
DIE PROMPT+11!*, EXIT+1!
DIE("NO^" PROMPT+11*
DIK EXIT+1!, CHECK+3!*
DR PROMPT+15*, PROMPT+17*, PROMPT+25*, PROMPT+27*, EXIT+1!
DR(2 PROMPT+17*
HBHCAFLG EXIT+1!
HBHCBXRF PROMPT+8*, EXIT+1!, CHECK+1
HBHCCNTY EXIT+1!, DEMO+1*, DEMO+2*, DEMO+6
HBHCDFN PROMPT+3*, PROMPT+5, PROMPT+6, PROMPT+8, PROMPT+11, PROMPT+18, PROMPT+29, EXIT+1!, CHECK+3, DEMO+6
, DEMO+7, DEMO+8, DEMO+9, DEMO+10
HBHCDPT PROMPT+3*, PROMPT+8, EXIT+1!, DEMO+2, DEMO+3, DEMO+4, DEMO+5
HBHCDPT0 PROMPT+3*, PROMPT+4, EXIT+1!
HBHCEL EXIT+1!, DEMO+1*, DEMO+3*
HBHCELGE EXIT+1!, DEMO+1*, DEMO+3*, DEMO+8
HBHCFLG PROMPT+1!, PROMPT+9, EXIT+1!, CHECK+4*
HBHCFORM START+1*, EXIT+1!
HBHCI EXIT+1!
HBHCIEN EXIT+1!, DEMO+2*
HBHCINFO EXIT+1!, DEMO+2*, DEMO+4*, DEMO+5*
HBHCJ EXIT+1!
HBHCMARE EXIT+1!, DEMO+1*, DEMO+5*, DEMO+10
HBHCMFHS PROMPT+14, PROMPT+16, PROMPT+24, PROMPT+26, EXIT+1!
HBHCMS EXIT+1!, DEMO+1*, DEMO+5*
HBHCNHSP PROMPT+7, EXIT+1!
HBHCNOD0 PROMPT+3*, EXIT+1!, DEMO+6, DEMO+7, DEMO+8, DEMO+9, DEMO+10
HBHCPRCT PROMPT+1!, PROMPT+7, EXIT+1!
HBHCPS EXIT+1!, DEMO+1*, DEMO+4*
HBHCPSRV EXIT+1!, DEMO+1*, DEMO+4*, DEMO+9
HBHCQ EXIT+1!
HBHCRFLG EXIT+1!
HBHCST EXIT+1!, DEMO+1*, DEMO+2*, DEMO+6
HBHCWRD1 EXIT+2!
HBHCWRD2 EXIT+2!
HBHCWRD3 EXIT+2!
HBHCXMT3 PROMPT+5*, PROMPT+7, EXIT+2!
HBHCY0 EXIT+2!
HBHCZIP EXIT+2!, DEMO+1*, DEMO+2*, DEMO+7
ICDFMT PROMPT+23*, PROMPT+29!
ICDSYS PROMPT+22*, PROMPT+23, PROMPT+25, PROMPT+27, PROMPT+29!
ICDVDT PROMPT+21*, PROMPT+22, PROMPT+29!
U PROMPT+3, PROMPT+4, PROMPT+5, PROMPT+6, PROMPT+8, PROMPT+21, CHECK+1, DEMO+2, DEMO+4, DEMO+5
, DEMO+6, DEMO+7, DEMO+8, DEMO+9, DEMO+10
VAEL EXIT+2!
VAEL(1 DEMO+3
X EXIT+2!
Y PROMPT+2, PROMPT+3, PROMPT+8, PROMPT+19, EXIT+2!
Y(0 PROMPT+3
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