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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DVBADSNT

Package: Automated Medical Information Exchange

Routine: DVBADSNT


Information

DVBADSNT ;ALB/GTS-557/THM-GENERATE AMIE NOTICE OF DISCHARGE ; 1/16/91 7:37 AM

Source Information

Source file <DVBADSNT.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Automated Medical Information Exchange 4 ($$HFS,END,HFSOPEN)^DVBAB82  (DUZ2,KILL,LOS)^DVBAUTIL  NOPARM^DVBAUTL2  (ADM,ELIG,RCV)^DVBAVDPT  
Kernel 3 (,HOME)^%ZIS  (,KILL)^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 DD^%DT  YN^DICN  ^DIE  

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

Package Total Caller Graph
Automated Medical Information Exchange 4 DVBA NOTICE/DISCHARGE PRINT  DVBAB REPORT NEW NOTICES DC  DVBAB82  DVBADSR1  

Entry Points

Name Comments DBIA/ICR reference
SET
ENBROKER(Y) ;
PRINTB
FUPD
PRINT
PRINT1
TERM
SETUP
EN1
QUEUE
GO
KILL
DEQUE
CHK ;pull 7131 pointer
REPRINT

External References

Name Field # of Occurrence
DD^%DT PRINTB+4
^%ZIS EN1+3
HOME^%ZIS TERM
^%ZTLOAD QUEUE+1
KILL^%ZTLOAD KILL
YN^DICN EN1+1
^DIE FUPD, FUPD+1
$$HFS^DVBAB82 ENBROKER+2
END^DVBAB82 PRINT+2, EN1+4
HFSOPEN^DVBAB82 EN1+4
DUZ2^DVBAUTIL TERM+1
KILL^DVBAUTIL SETUP, KILL
LOS^DVBAUTIL PRINTB+12
NOPARM^DVBAUTL2 SETUP
ADM^DVBAVDPT PRINTB
ELIG^DVBAVDPT PRINTB+13
RCV^DVBAVDPT SET
$$FMTE^XLFDT PRINTB+10, SETUP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Admission entry in Patient Movement File has been deleted for: ",!,?5,PNAM,?25,SSN,?35," at ",Y,!,"Contact VAMC for further information.",!
  • Line Location: PRINTB+4
Function Call: WRITE
  • Prompt: !!!!,?(80-$L(HEAD)\2),HEAD,!,?(80-$L(HEAD1)\2),HEAD1,!!
  • Line Location: PRINTB+9
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,!,?8,"Discharge Date:",?26,$$FMTE^XLFDT(DCHGDT,"5DZ"),!
  • Line Location: PRINTB+10
Function Call: WRITE
  • Prompt: ?5,"Type of Discharge:",?26,TDIS,!
  • Line Location: PRINTB+11
Function Call: WRITE
  • Prompt: ?8,"Length of Stay:",?26,LOS_$S(LOS="":"Discharged same day",LOS=1:" day",1:" days"),!
  • Line Location: PRINTB+12
Function Call: WRITE
  • Prompt: ?11,"Bed Service:",?26,BEDSEC,!
  • Line Location: PRINTB+13
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: FUPD+3
Function Call: WRITE
  • Prompt: *7,!,"Press RETURN to continue or ""^"" to stop "
  • Line Location: FUPD+3
Function Call: WRITE
  • Prompt: @IOF,!,"NOTICE OF DISCHARGE REPORT"
  • Line Location: SETUP+0
Function Call: WRITE
  • Prompt: !,HEAD1
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: !!,"This program will print out any new NOTICES OF DISCHARGE,",!,"based on the hospital's discharges.",!!,"Do you want to continue"
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,"Enter Y to print out the notice, N if you want to exit the program.",!
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: GO+0
Function Call: WRITE
  • Prompt: !!,*7,"No data found.",!!
  • Line Location: GO+1
Routine Call
  • DIE
  • Line Location:
    • FUPD
    • FUPD+1
Routine Call
  • %ZIS
  • Line Location:
    • EN1+3
Routine Call
  • %ZIS
  • Line Location:
    • TERM

Used in RPC

RPC Name Call Tags
DVBAB REPORT NEW NOTICES DC ENBROKER

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396 - [#396] Classic Fileman Calls
^DVB(396.2 - [#396.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.2 - [#405.2] PRINTB+6
^DGPM - [#405] PRINTB+2, PRINTB+3, PRINTB+5, PRINTB+7
^DPT - [#2] SET, PRINTB+3
^DVB(396 - [#396] FUPD, CHK+1
^DVB(396.1 - [#396.1] SETUP
^DVB(396.2 - [#396.2] GO
^TMP($J DVBADSNT+4!, SET*, ENBROKER+3!, PRINT+1, PRINT1, GO+1, DEQUE!

Label References

Name Line Occurrences
CHK GO, REPRINT
EN1 EN1+2
FUPD PRINTB+4
GO DEQUE
KILL TERM+1, EN1+3, QUEUE+1, GO+1, REPRINT
PRINT GO+2, REPRINT
PRINT1 PRINT+1
PRINTB PRINT1
SET GO, REPRINT
TERM DVBADSNT+4, ENBROKER+3

Naked Globals

Name Field # of Occurrence
^( PRINT1
^(0 PRINTB+5, PRINTB+6, PRINTB+7, GO

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1+1*, EN1+3
>> %Y EN1+2
%ZIS EN1+3*!
>> ADM PRINTB+1, PRINT1*
>> ADMDT SET, PRINTB*, PRINTB+3, PRINTB+4, GO*, CHK+1
>> ANS FUPD+3*
>> BEDSEC PRINTB+13
>> CFLOC SET, PRINTB+10, FUPD+1, PRINT+1*, PRINT1
>> CNUM SET, PRINTB*, PRINTB+10
DA PRINTB+13*, FUPD!*, FUPD+1*
>> DATA PRINTB, PRINT1*
>> DCHGDT PRINTB+7*, PRINTB+10
>> DCHPTR PRINTB+5*, PRINTB+7
>> DFN SET, PRINTB+13, PRINT1*, GO*, CHK+1
>> DIE FUPD*, FUPD+1*
>> DR FUPD*, FUPD+1*
DT FUPD, FUPD+1, SETUP
>> DTAR SETUP*, SETUP+1
DTIME FUPD+3
DUZ FUPD+1
>> DVBAD2 FUPD+1, GO
DVBAON2 PRINTB+8, FUPD+4*, KILL!
DVBAQUIT FUPD+3*, TERM+1!, SETUP
DVBERR ENBROKER+1~, ENBROKER+2*, EN1+4
DVBGUI DVBADSNT+2~, DVBADSNT+3*, ENBROKER+1~, ENBROKER+2*, FUPD+2, PRINT+2, EN1, EN1+4
DVBHFS ENBROKER+1~, ENBROKER+2*, EN1+4
>> FDT(0 SETUP*, SETUP+1
FND PRINTB+2*, PRINTB+3*, PRINTB+4!
>> HEAD PRINTB+9, SETUP+1*
>> HEAD1 PRINTB+9, SETUP+1*, SETUP+2
HPAT PRINTB+3~*
>> I QUEUE*
IO PRINT, GO+1
IO("Q" QUEUE, QUEUE+1
IOF PRINTB+8, SETUP
ION QUEUE
IOST PRINTB+8, FUPD+3
>> J PRINT+1*
>> K PRINT1*
>> L PRINT1*
>> LADM PRINTB+1*, PRINTB+2, PRINTB+3, PRINTB+5
>> LOS PRINTB+12
>> M PRINT+1*
>> MB SET, GO*
NOASK TERM!, QUEUE*, GO
>> PNAM PRINTB+3, PRINTB+4, PRINTB+10
>> POP EN1+3
>> QUIT FUPD+3*, PRINT*, PRINT+1, PRINT1
>> QUIT1 PRINTB*
>> RCVAA SET, PRINTB*
>> RCVPEN SET, PRINTB*
>> SSN PRINTB+4, PRINTB+10
>> TDIS PRINTB+5*, PRINTB+6*, PRINTB+11
U SET, PRINTB, PRINTB+5, PRINTB+6, PRINTB+7, FUPD, FUPD+3, SETUP+1, GO, CHK+1
>> XCN SET, PRINT+1*, PRINT1
>> XDA SET, PRINTB*, FUPD+1, GO*
>> XDA2 SET, PRINTB*, FUPD, CHK+1*
Y ENBROKER~, PRINTB+4~*!
>> 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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All