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 |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DVBAB9

Package: Automated Medical Information Exchange

Routine: DVBAB9


Information

DVBAB9 ;ALB/SPH - CAPRI DISCHARGE REPORT ;09/06/00

Source Information

Source file <DVBAB9.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  $$FMTE^XLFDT  
Automated Medical Information Exchange 3 (FINAL,KILL,LOS)^DVBAUTIL  NOPARM^DVBAUTL2  (DCHGDT,ELIG,RCV)^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 DVBAB REPORT CHECKLIST  

Entry Points

Name Comments DBIA/ICR reference
STRT(MSG,BDATE,EDATE,RONUM,DUZ) ;
SET
PRINTB
PRINT
PRINT1
TERM
SETUP
EN1 ;W !!,"Please enter dates for search, oldest date first, most recent date last.",!!,"Last report was run on " S Y=$P(DTAR,U,4) X ^DD("DD") W Y,!!
ADTYPE ;D ADTYPE^DVBAUTL2 G:$D(DVBAQUIT) KILL^DVBAUTIL
QUEUE
GO
KILL
DEQUE

External References

Name Field # of Occurrence
^%ZIS ADTYPE+7
HOME^%ZIS TERM
^%ZISC KILL
^%ZTLOAD QUEUE+1
KILL^%ZTLOAD KILL
FINAL^DVBAUTIL KILL
KILL^DVBAUTIL SETUP, ADTYPE+4, ADTYPE+5, ADTYPE+7, GO+2
LOS^DVBAUTIL PRINTB+5
NOPARM^DVBAUTL2 SETUP
DCHGDT^DVBAVDPT PRINTB
ELIG^DVBAVDPT PRINTB+8
RCV^DVBAVDPT SET
$$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
  • Variable: ANS
  • Timeout: DTIME
  • 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: Y,!!
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADTYPE+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: ADTYPE+7
Function Call: WRITE
  • Prompt: !!,*7,"No data found for parameters entered.",!!
  • Line Location: GO+1
Routine Call
  • %ZIS
  • Line Location:
    • ADTYPE+7
Routine Call
  • %ZIS
  • Line Location:
    • TERM

Used in RPC

RPC Name Call Tags
DVBAB REPORT CHECKLIST REPORT1

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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