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

Package: Automated Medical Information Exchange

Routine: DVBADSRT


Information

DVBADSRT ;ALB/GTS-557/THM-AMIE DISCHARGE RPT ; 1/16/91 4:23 PM

Source Information

Source file <DVBADSRT.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  $$FMTE^XLFDT  
Automated Medical Information Exchange 3 (DATE,FINAL,KILL,LOS)^DVBAUTIL  (ADTYPE,NOPARM)^DVBAUTL2  (DCHGDT,ELIG,RCV)^DVBAVDPT  
List Manager 1 EN^VALM  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBA DISCHARGE RPT  

Entry Points

Name Comments DBIA/ICR reference
PRINT1
DEQUE
TERM
SET
SETUP
QUEUE ;I $D(IO("Q")) S ZTRTN="DEQUE^DVBADSRT",ZTIO=ION,NOASK=1,ZTDESC="AMIE DISCHARGE REPORT" F I="^TMP(""DVBA"",$J,""DUP""","ADTYPE","DVBATYPS","BDATE","BDATE1","EDATE","FDT(0)","HEAD","HEAD1","HD","RO","RONUM","NOASK" S ZTSAVE(I)=""
EN1
PRINTB
KILL
PRINT
ADTYPE
GO

External References

Name Field # of Occurrence
^%ZIS ADTYPE+8
HOME^%ZIS TERM
^%ZISC KILL
^%ZTLOAD QUEUE+2
KILL^%ZTLOAD KILL
DATE^DVBAUTIL EN1+1
FINAL^DVBAUTIL KILL
KILL^DVBAUTIL SETUP, ADTYPE, ADTYPE+4, ADTYPE+5, ADTYPE+8, GO+2
LOS^DVBAUTIL PRINTB+5
ADTYPE^DVBAUTL2 ADTYPE
NOPARM^DVBAUTL2 SETUP
DCHGDT^DVBAVDPT PRINTB
ELIG^DVBAVDPT PRINTB+8
RCV^DVBAVDPT SET
EN^VALM ADTYPE+3
$$FMTE^XLFDT PRINTB+4, SETUP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?(80-$L(HEAD)\2),HEAD,!,?(80-$L(HEAD1)\2),HEAD1,!!
  • Line Location: PRINTB+2
Function Call: WRITE
  • Prompt: ?10,"Patient Name:",?26,PNAM,!!,?14,"Claim No:",?26,CNUM,!,?6,"Claim Folder Loc:",?26,CFLOC,!,?9,"Social Sec No:",?26,SSN,!
  • Line Location: PRINTB+3
Function Call: WRITE
  • Prompt: ?8,"Discharge Date:",?26,$$FMTE^XLFDT(DCHGDT,"5DZ"),!,?5,"Type of Discharge:",?26,TDIS,!
  • Line Location: PRINTB+4
Function Call: WRITE
  • Prompt: ?8,"Length of Stay:",?26,LOS_$S(LOS="":"Discharged same day",LOS=1:" day",1:" days"),!
  • Line Location: PRINTB+5
Function Call: WRITE
  • Prompt: ?11,"Bed Service:",?26,BEDSEC,!
  • Line Location: PRINTB+6
Function Call: WRITE
  • Prompt: ?13,"Recv A&A?:",?26,$S(RCVAA="0":"NO",RCVAA="1":"YES",1:"Not specified"),!
  • Line Location: PRINTB+7
Function Call: WRITE
  • Prompt: ?14,"Pension?:",?26,$S(RCVPEN="0":"NO",RCVPEN="1":"YES",1:"Not specified"),!
  • Line Location: PRINTB+8
Function Call: READ
  • Timeout: DTIME
  • Variable: ANS
  • Line Location: PRINTB+9
Function Call: WRITE
  • Prompt: @IOF,!,"VARO DISCHARGE REPORT"
  • Line Location: SETUP+0
Function Call: WRITE
  • Prompt: !,HEAD1
  • Line Location: SETUP+1
Function Call: WRITE
  • Prompt: !!,"Please enter dates for search, oldest date first, most recent date last.",!!,"Last report was run on "
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: Y,!!
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADTYPE+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: ADTYPE+8
Function Call: WRITE
  • Prompt: !!,*7,"No data found for parameters entered.",!!
  • Line Location: GO+1
Function Call: WRITE
  • Prompt: !!,"End of the Report"
  • Line Location: GO+3
Routine Call
  • VALM
  • Line Location:
    • ADTYPE+3
Routine Call
  • %ZIS
  • Line Location:
    • TERM
Routine Call
  • %ZIS
  • Line Location:
    • ADTYPE+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN1
^DG(405.2 - [#405.2] SET+2, SET+5
^DGPM - [#405] SET+1
^DGPM("AMV3" GO
^DPT - [#2] SET
^DVB(396.1 - [#396.1] SETUP
^TMP("DVBA" ADTYPE+5, ADTYPE+6
^TMP($J DVBADSRT+3!, SET+6*, PRINT+1, PRINT1, GO+1, DEQUE!

Label References

Name Line Occurrences
GO DEQUE
KILL EN1+2, QUEUE+2, GO+1
PRINT GO+2
PRINT1 PRINT+1
PRINTB PRINT1
SET GO
TERM DVBADSRT+3

Naked Globals

Name Field # of Occurrence
^( PRINT1
^(0 SET+1, SET+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ADTYPE+8*!
>> ADM PRINT1*
>> ADTYPE SET
>> ANS PRINTB+9*
>> BDATE GO
>> BEDSEC PRINTB+6
>> CFLOC SET, SET+6, PRINTB+3, PRINT+1*, PRINT1
>> CNUM SET+6, PRINTB*, PRINTB+3
>> DA SET, SET+6, PRINTB, PRINT1*, GO*
>> DATA PRINTB, PRINT1*
>> DCHGDT PRINTB+4
>> DFN SET*, PRINTB*
DISTYPE ADTYPE+6*, GO+2!, KILL!
DISTYPE( SET+4
>> DSRP SETUP+1*
DT SETUP
>> DTAR SETUP*, SETUP+1, EN1
DTIME PRINTB+9
DVBACEPT ADTYPE+2!, ADTYPE+4
DVBAON2 PRINTB+1, PRINTB+10*, GO+2!, KILL!
>> DVBAQUIT PRINTB+9*, SETUP, ADTYPE, GO+2
>> DVBASC SET*
>> EDATE GO
>> FDT(0 SETUP*, SETUP+1
>> HEAD PRINTB+2
>> HEAD1 PRINTB+2, SETUP+1*
>> I QUEUE+1*
IO PRINT, GO+1
IO("Q" QUEUE+1, QUEUE+2
IOF PRINTB+1, SETUP, ADTYPE+1
ION QUEUE+1
IOST PRINTB+1, PRINTB+9
>> J PRINT+1*, GO*
>> K PRINT1*
>> L PRINT1*
>> LOS PRINTB+5
>> M PRINT+1*
>> MA SET+6, PRINTB*, GO*
>> MB SET+1, SET+6, GO*
NOASK TERM!, QUEUE+1*, GO
>> PNAM PRINTB+3
>> POP ADTYPE+8
>> QUIT PRINTB+9*, PRINT*, PRINT+1, PRINT1
>> QUIT1 PRINTB*
>> RCVAA SET, SET+6, PRINTB*, PRINTB+7
>> RCVPEN SET, SET+6, PRINTB*, PRINTB+8
>> RO SET
>> RONUM SET
>> SSN PRINTB+3
>> TDIS SET+1*, SET+2, SET+4, SET+5*, SET+6, PRINTB*, PRINTB+4
U SET+1, SET+5, SET+6, PRINTB, PRINTB+9, SETUP+1, EN1
>> X EN1+2, KILL*
>> XCN SET+6, PRINT+1*, PRINT1
>> Y EN1*, EN1+2
>> ZTDESC QUEUE+1*
>> ZTIO QUEUE+1*
>> ZTQUEUED KILL
>> ZTRTN QUEUE+1*
>> ZTSAVE( QUEUE+1*
>> ZTSK QUEUE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All