Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
PRINTB
PRINT
PRINTC
KILL
ELIG

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
Info |  Source |  Entry Points |  Interaction Calls