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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DVBARAD1

Package: Automated Medical Information Exchange

Routine: DVBARAD1


Information

DVBARAD1 ;RE-ADMISSION REPORT, PRINT DRIVER ; 1/23/91 7:37 AM

Source Information

Source file <DVBARAD1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZISC  KILL^%ZTLOAD  $$FMTE^XLFDT  
Automated Medical Information Exchange 2 FINAL^DVBAUTIL  ADM^DVBAVDPT  

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
Automated Medical Information Exchange 1 DVBARADM  

Entry Points

Name Comments DBIA/ICR reference
PRINTB
PRINT
PRINTC
KILL
ELIG

External References

Name Field # of Occurrence
^%ZISC KILL+1
KILL^%ZTLOAD KILL+1
FINAL^DVBAUTIL KILL+1
ADM^DVBAVDPT PRINTB, PRINTB+1
$$FMTE^XLFDT PRINTB+4, PRINTB+5, PRINTB+6, PRINTB+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!!!!!!!
  • Line Location: DVBARAD1+7
Function Call: WRITE
  • Prompt: @IOF,!!!,?(80-$L(HEAD)\2),HEAD,!,?(80-$L(HEAD1)\2),HEAD1,!,?(80-$L(HEADDT)\2),HEADDT,!!!
  • Line Location: PRINTB+3
Function Call: WRITE
  • Prompt: "Patient: ",PNAM,?60,"SSN: ",SSN,!,"Claim #: ",CNUM,?56,"Pension: ",RCVPEN,!,"Claim Folder Loc: ",CFLOC,?60,"A&A: ",RCVAA,!
  • Line Location: PRINTB+8
Function Call: WRITE
  • Prompt: "="
  • Line Location: PRINTB+8
Function Call: WRITE
  • Prompt: !?26,"------- Admission data -------",!!?18,"Current",?57,"Prior",!,?18,"-------",?57,"-----",!
  • Line Location: PRINTB+9
Function Call: WRITE
  • Prompt: ?(25-$L(ADMDT)),ADMDT,?26,"------ Admission date ------- ",LADMDT,!
  • Line Location: PRINTB+10
Function Call: WRITE
  • Prompt: ?(25-$L(DIAG)),$E(DIAG,1,26),?26,"---- Admitting diagnosis ---- ",$E(LDIAG,1,23),!
  • Line Location: PRINTB+11
Function Call: WRITE
  • Prompt: ?(25-$L(DCHGDT)),DCHGDT,?26,"------- Discharge date ------- ",LDCHGDT,!
  • Line Location: PRINTB+12
Function Call: WRITE
  • Prompt: ?(25-$L(TDIS)),$E(TDIS,1,26),?26,"------- Discharge type ------- ",$E(LTDIS,1,23),!
  • Line Location: PRINTB+13
Function Call: WRITE
  • Prompt: ?(25-$L(BEDSEC)),BEDSEC,?26,"-------- Bed Service --------- ",LBEDSEC,!
  • Line Location: PRINTB+14
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRINTB+15
Function Call: WRITE
  • Prompt: *7,!,"Press RETURN to continue or ""^"" to stop "
  • Line Location: PRINTB+15
Function Call: WRITE
  • Prompt: ?5,$S(DVBAT="PEN":MSG,DVBAT="A&A":MSG1,1:""),!!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: "Eligibility: "
  • Line Location: ELIG+1
Function Call: WRITE
  • Prompt: ELIG_$S(ELIG]"":", ",1:"")
  • Line Location: ELIG+5
Function Call: WRITE
  • Prompt: !?14
  • Condition for execution: $X>60
  • Line Location: ELIG+5
Function Call: WRITE
  • Prompt: $S(INCMP=1:"Incompetent",1:""),!
  • Line Location: ELIG+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ELIG+3, ELIG+4
^TMP("DVBA" PRINTB, PRINT+1, PRINT+2, PRINTC, KILL!

Label References

Name Line Occurrences
ELIG PRINTB+8
KILL DVBARAD1+8
PRINT DVBARAD1+7
PRINTB PRINTC
PRINTC PRINT+2

Naked Globals

Name Field # of Occurrence
^( PRINTC, ELIG+3, ELIG+4
^("LADM" PRINTB

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADMDT PRINTB*, PRINTB+1*, PRINTB+4*, PRINTB+10
>> ANS PRINTB+15*, PRINT*
>> BEDSEC PRINTB+1, PRINTB+14
>> CFLOC PRINTB+8
>> CNUM PRINTB+1*, PRINTB+8
>> DA PRINTB, PRINTC*, ELIG+3, ELIG+4
>> DATA PRINTB+1, PRINTC*
DATA1 PRINTB*!
>> DCHGDT PRINTB+1, PRINTB+5*, PRINTB+12
>> DFN PRINTB*
>> DIAG PRINTB+1, PRINTB+11
DTIME PRINTB+15
>> DVBAELIG ELIG
>> DVBAELST ELIG+2
>> DVBAM PRINT+2*
DVBAQ PRINTB!
DVBAQUIT DVBARAD1+6!, DVBARAD1+7, PRINTB+15*
>> DVBAT DVBARAD1+7*, PRINTB, PRINT+1, PRINT+2, PRINTC
>> ELIG ELIG*, ELIG+2*, ELIG+5
>> HEAD PRINTB+3
>> HEAD1 PRINTB+3
>> HEADDT PRINTB+3
>> INCMP ELIG*, ELIG+3*, ELIG+4*, ELIG+5
IO DVBARAD1+6
IOF DVBARAD1+7, PRINTB+3
IOST DVBARAD1+7, PRINTB+15
>> J PRINT+2*
>> K PRINTB, PRINT+2*, PRINTC
>> LADMDT PRINTB*, PRINTB+6*, PRINTB+10
>> LBEDSEC PRINTB+1*, PRINTB+14
>> LDCHGDT PRINTB+1*, PRINTB+7*, PRINTB+12
>> LDIAG PRINTB+1*, PRINTB+11
>> LINE PRINTB+8*
>> LTDIS PRINTB*, PRINTB+13
>> MSG DVBARAD1+4*, PRINT+1
>> MSG1 DVBARAD1+5*, PRINT+1
>> NODTA PRINT*
>> PNAM PRINTB+8
QUIT1 PRINTB*!
>> RCVAA PRINTB+1*, PRINTB+2*, PRINTB+8
>> RCVPEN PRINTB+1*, PRINTB+2*, PRINTB+8
>> SSN PRINTB+8
>> TDIS PRINTB+1*, PRINTB+13
U PRINTB, PRINTB+1, PRINTB+15, ELIG+3, ELIG+4
>> X KILL+1*
>> XCFLOC PRINTB, PRINT*, PRINT+2*, PRINTC
>> XCN PRINTB, PRINTB+15*, PRINT*, PRINT+2*, PRINTC
>> XLINE PRINT+1*
>> ZTQUEUED KILL+1
>> ZX DVBARAD1+3*, DVBARAD1+4
>> ZY DVBARAD1+3*, DVBARAD1+5
>> ZZ DVBARAD1+4*, DVBARAD1+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All