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

Package: Automated Medical Information Exchange

Routine: DVBADSRP


Information

DVBADSRP ;ALB/GTS-557/THM-REPRINT NOTICE OF DISCHARGE ; 1/22/91 12:05 PM

Source Information

Source file <DVBADSRP.m>

Call Graph

Call Graph

Call Graph Total: 9

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

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

Package Total Caller Graph
Automated Medical Information Exchange 2 DVBA REPRINT NOTICE/DISCHARGE  DVBAB82  

Entry Points

Name Comments DBIA/ICR reference
SET
PRINTB
PRINT
PRINT1
TERM
SETUP
EN1
ONE
ASK
QUEUE
GO
KILL
DEQUE
REPRINT

External References

Name Field # of Occurrence
^%DT ASK
DD^%DT PRINTB+4
^%ZIS ASK+2
HOME^%ZIS TERM
^%ZTLOAD QUEUE+1
KILL^%ZTLOAD KILL
YN^DICN EN1, ONE
^DVBADSR1 ONE
DUZ2^DVBAUTIL TERM+1
KILL^DVBAUTIL SETUP, GO+2, 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: PRINTB+14
Function Call: WRITE
  • Prompt: *7,!,"Press RETURN to continue or ""^"" to stop"
  • Line Location: PRINTB+14
Function Call: WRITE
  • Prompt: @IOF,!,"* REPRINT * NOTICE OF DISCHARGE REPORT"
  • Line Location: SETUP+0
Function Call: WRITE
  • Prompt: !,HEAD1
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: !!,"This program will reprint NOTICES OF DISCHARGE,",!!,"Do you want to continue"
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !!,"Enter Y to reprint or N to quit.",!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,"Do you want only one Veteran"
  • Line Location: ONE+0
Function Call: WRITE
  • Prompt: !!,"Enter Y to get one VET, N for all.",!
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"The date the notices were originally printed on.",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: GO+0
Function Call: WRITE
  • Prompt: !!,*7,"No data found for parameters.",!!
  • Line Location: GO+1
Routine Call
  • %ZIS
  • Line Location:
    • ASK+2
Routine Call
  • %ZIS
  • Line Location:
    • TERM

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.1 - [#396.1] SETUP
^DVB(396.2 - [#396.2] GO
^TMP($J DVBADSRP+2!, SET*, PRINT+1, PRINT1, GO+1, DEQUE!

Label References

Name Line Occurrences
ASK ASK+1
EN1 EN1+1
GO DEQUE
KILL TERM+1, EN1+2, ONE+2, ASK, ASK+2, ASK+3, QUEUE+1, GO+1, REPRINT
ONE ONE+1
PRINT GO+2, REPRINT
PRINT1 PRINT+1
PRINTB PRINT1
SET GO, REPRINT
TERM DVBADSRP+2

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1*, EN1+2, ONE*, ONE+2
%DT ASK*!
%DT("A" ASK*
%DT(0 ASK*
>> %Y EN1+1, ONE+1
%ZIS ASK+2*!
%ZIS("B" ASK+2*
>> ADM PRINTB+1, PRINT1*
>> ADMDT SET, PRINTB*, PRINTB+3, PRINTB+4, GO*
>> ANS PRINTB+14*
>> BDATE ASK*, GO
>> BEDSEC PRINTB+13
>> CFLOC SET, PRINTB+10, PRINT+1*, PRINT1
>> CNUM SET, PRINTB*, PRINTB+10
>> DA SET, PRINTB, PRINT1*, GO*
>> DCHGDT PRINTB+7*, PRINTB+10
>> DCHPTR PRINTB+5*, PRINTB+7
>> DFN SET*, PRINTB*
DT SETUP, ASK
>> DTA PRINTB, PRINT1*
>> DTAR SETUP*, SETUP+1
DTIME PRINTB+14
>> DTOUT ONE+2
>> DVBAD2 GO
DVBAON2 PRINTB+4*, PRINTB+8, PRINTB+15*, GO+2!, KILL!
DVBAQUIT PRINTB+14*, TERM+1!, SETUP, GO+2
>> 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, PRINTB+14
>> 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 ASK+3
>> QUIT PRINTB+14*, 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, PRINTB+14, SETUP+1*, ASK+2, GO
>> X ASK+1, ASK+2
>> XCN SET, PRINT+1*, PRINT1
>> XDA GO*
Y PRINTB+4~*!, ASK
>> 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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All