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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBNHAMI2

Package: Fee Basis

Routine: FBNHAMI2


Information

FBNHAMI2 ;AISC/CMR-CNH STAYS IN EXCESS OF 90 DAYS ;1DEC00

Source Information

Source file <FBNHAMI2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Fee Basis 3 ($$DATX,$$SSN,$$SSNL4,CLOSE,ZIS)^FBAAUTL  $$NAME^FBCHREQ2  $$DTC^FBUCUTL  
VA FileMan 2 ^%DT  ^DIR  
Registration 1 DEM^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: 2

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBAB82  
Fee Basis 1 FBCNH ADMISSIONS > 90 DAYS  

Entry Points

Name Comments DBIA/ICR reference
START
END ;
SET ;SETS UP TMP GLOBAL
PRINT ;
HED ;

External References

Name Field # of Occurrence
^%DT FBNHAMI2+4
^DIR START+11, PRINT+1
$$DATX^FBAAUTL START+10, PRINT+6, HED+1
$$SSN^FBAAUTL SET+4
$$SSNL4^FBAAUTL PRINT+4
CLOSE^FBAAUTL END+2
ZIS^FBAAUTL FBNHAMI2+5
$$NAME^FBCHREQ2 SET+4
$$DTC^FBUCUTL SET+2
DEM^VADPT PRINT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Use of this option will provide you with all 'ACTIVE' stays that are in excess",!,"of 90 days. The active stays are as of the date you choose.",!
  • Line Location: FBNHAMI2+3
Function Call: WRITE
  • Prompt: !!?5,"***LOS = Length of Stay as of ",$$DATX^FBAAUTL(FBDT)
  • Line Location: START+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,$E(FBNAME,1,15),?18,FBID
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,$E(FBNAME,1,15),?18,$$SSNL4^FBAAUTL(FBID)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?32,FBMS,?35,$$DATX^FBAAUTL($E(FBADT,1,7)),?45,$J(FBLOS,6),?53,$E(FBVNAME,1,27)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?22,"ACTIVE CNH STAYS IN EXCESS OF 90 DAYS",!?33,"AS OF ",$$DATX^FBAAUTL(FBDT),!?22,FBUL,!!
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: ?28,"MARITAL",!,"VETERAN",?20,"Pt. ID",?30,"ST.",?35,"ADM. DATE",?48,"LOS",?60,"VENDOR",!,FBHD
  • Line Location: HED+2
Routine Call
  • DIR
  • Line Location:
    • START+11
    • PRINT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAACNH - [#162.3] START+5, SET+1, SET+4
^FBAACNH("AC" START+2, START+3
^FBAAV - [#161.2] SET+4
^TMP($J START!, START+7, START+8, END+1!, SET+5*

Label References

Name Line Occurrences
END FBNHAMI2+4, FBNHAMI2+5, START+9
HED START, PRINT+2
PRINT START+8
SET START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT FBNHAMI2+4*, END+1!
%DT("A" FBNHAMI2+4*
DFN START+7*, START+8, END+1!, SET+4*, SET+5, SET+6!
DIR START+11!, PRINT+1!
DIR(0 START+11*, PRINT+1*
FBAAOUT START+7, START+9, END+1!, PRINT+1*
FBADM START+1*, START+2*, START+3, START+4, END+1!, SET+1, SET+4
FBADT START+8*, END+1!, SET+1*, SET+2, SET+5, PRINT+6
FBASSOC START+1*, START+3*, START+4, START+5, END+1!
FBCHK START+2*, START+5*, END+1!
FBDDT START+5*, END+1!
FBDT FBNHAMI2+4*, FBNHAMI2+5, START+5, START+10, END+1!, SET+2, HED+1
FBHD START*, END+1!, HED+2
FBI START+5*, START+8*, END+1!, SET+4*
FBID START+8*, END+1!, SET+4*, SET+5, SET+6!, PRINT+3, PRINT+4
FBLOS START+8*, END+1!, SET+2*, SET+3, SET+5, SET+6!, PRINT+6
FBMS END+1!, PRINT+5*, PRINT+6
FBNAME START+6*, START+7*, START+8, END+1!, SET+4*, SET+5, SET+6!, PRINT+3, PRINT+4
FBPOP FBNHAMI2+5, END+1!
>> FBSSNRF PRINT+3, PRINT+4
FBTYPE START+5*, END+1!
FBUL START*, END+1!, HED+1
FBVNAME START+8*, END+1!, SET+4*, SET+5, SET+6!, PRINT+6
IO START
IOF START, PRINT+2
IOSL PRINT+1, PRINT+2
IOST START, START+11, PRINT+1
PGM FBNHAMI2+5*, END+1!
VA END+1!, PRINT+5!
VADM END+1!, PRINT+5!
VADM(10 PRINT+5
VAL FBNHAMI2+5*, END+1!
VAR FBNHAMI2+5*, END+1!
>> Y FBNHAMI2+4, PRINT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All