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

Package: Automated Medical Information Exchange

Routine: DVBADSCK


Information

DVBADSCK ;ALB/GTS-557/THM-DISCHARGE CHECKER ;21 JUL 89

Source Information

Source file <DVBADSCK.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Automated Medical Information Exchange 3 KILL^DVBAUTIL  NOPARM^DVBAUTL2  ADM^DVBAVDPT  
VA FileMan 3 ^%DT  ^DIC  ^DIE  
Kernel 2 (,HOME)^%ZIS  (,KILL)^%ZTLOAD  
Registration 1 INP^VADPT  

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

Package Total Caller Graph
Automated Medical Information Exchange 3 DVBA 7132 TASKMAN  DVBA MANUAL NOTIFY  DVBA2714  

Entry Points

Name Comments DBIA/ICR reference
DATE
ZTM
CHK ;* Find the IFN of the 7131 which matches the admission date (If a 7131
SET ;* Set up TMP global of admissions for discharges within range
SET1 ;* Get the discharge type and execute CREATE and CREAT1 as needed
LOOK ;* Loop through Admission Date TMP global execute CHK and SET1
DATA
KILL
CREATE ;create notice
CREAT1
DOC ;XADMDT=admission date on 7131

External References

Name Field # of Occurrence
^%DT DATE+2, DATE+3, ZTM+1, ZTM+3
^%ZIS DATE+6
HOME^%ZIS DVBADSCK+5
^%ZTLOAD DATE+8
KILL^%ZTLOAD KILL
^DIC CREAT1+5
^DIE CREAT1+5
KILL^DVBAUTIL KILL+1
NOPARM^DVBAUTL2 DVBADSCK+4, ZTM
ADM^DVBAVDPT CREAT1
INP^VADPT SET+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!!!
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: *7,!!,"Invalid date sequence."
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !,"Notices of discharge created on "_FDT(0)_" for discharge date range "
  • Line Location: DATA+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: DATA+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: DATA+1
Function Call: WRITE
  • Prompt: "Name",?35,"SSN",?50,"Admission date",!
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: "There were no NOTICES OF DISCHARGE to create.",!!!
  • Line Location: DATA+16
Function Call: WRITE
  • Prompt: "There ",$S(COUNT=1:"was ",1:"were ")_COUNT_$S(COUNT=1:" notice",1:" notices")_" of discharge created.",!!!
  • Line Location: DATA+17
Function Call: WRITE
  • Prompt: PNAM,?35,SSN
  • Line Location: CREAT1+6
Function Call: WRITE
  • Prompt: ?50,Y,?70,TDIS,!
  • Line Location: CREAT1+6
Routine Call
  • DIC
  • Line Location:
    • CREAT1+5
Routine Call
  • DIE
  • Line Location:
    • CREAT1+5
Routine Call
  • %ZIS
  • Line Location:
    • DATE+6
Routine Call
  • %ZIS
  • Line Location:
    • DVBADSCK+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DATE+5, ZTM+2, DATA+1, CREAT1+6
^DG(405.2 - [#405.2] SET1+2
^DGPM - [#405] SET+1, SET1+1
^DGPM("AMV3" DATA+12
^DIC(4 - [#4] DATA+7
^DPT - [#2] CREAT1
^DVB(396 - [#396] CHK+2, SET1+3, CREATE+2, CREATE+3, CREATE+4
^DVB(396.1 - [#396.1] DATA+7
^DVB(396.2 - [#396.2] CREAT1+4
^TMP($J DVBADSCK+5!, ZTM+3!, SET+3*, LOOK+1

Label References

Name Line Occurrences
CHK LOOK+1
CREAT1 SET1+4
CREATE SET1+3
DATA DATE+9, ZTM+3
DATE DATE+3, DATE+4
KILL DVBADSCK+4, DATE+2, DATE+6, DATE+8, ZTM
LOOK DATA+16
SET DATA+12
SET1 LOOK+1

Naked Globals

Name Field # of Occurrence
^( DATA+7
^(0 SET+1, SET1+1, SET1+2, CREATE+3
^(2 CREATE+2
^(99 DATA+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE*, DATE+3*, DATE+5!
%DT("A" DATE*, DATE+3*
%DT(0 DATE*
%ZIS DATE+6*!
%ZIS("A" DATE+6*
>> ADMDT CHK+2, SET+1*, SET+3, LOOK+1*, CREATE+4, CREAT1+4, CREAT1+5, CREAT1+6
>> ADMNUM SET+1*, SET+3
>> BDATE DATE+2*, DATE+4, ZTM+3*, DATA+12
>> BDATE1 DATE+2*, ZTM+3*, DATA+1
>> CFLOC CREAT1+1, CREAT1+2, CREAT1+3*, CREAT1+5
COUNT DATA+12*, DATA+17, KILL+1!, CREAT1+5*
DA SET+1, SET+3, LOOK+1!, DATA+12*, CREAT1+5*
>> DCHPTR SET1+1*
>> DFN CHK+2, SET+1*, LOOK+1*, CREAT1, CREAT1+4
>> DIC CREAT1+5*
>> DIC(0 CREAT1+5*
>> DIE CREAT1+5*
DLAYGO CREAT1+5*!
>> DR CREAT1+5*
DT DATE, DATE+5, ZTM+1*, ZTM+2
>> DVBAMAN DVBADSCK+3*, KILL
>> DVBAQUIT DVBADSCK+4, ZTM
>> EDATE DATE+3*, DATE+4, ZTM+3*, DATA+12
>> EDATE1 DATE+3*, ZTM+3*, DATA+1
>> FDT(0 DATE+5*, ZTM+2*, DATA+1, DATA+16
>> HD DVBADSCK+5*, DATE+1
>> I DATE+7*, DATA+7*
IO DATA
IO("Q" DATE+7, DATE+8
IOF DATE+1, DATA, DATA+16
IOM DATE+1, DATA+2
ION DATE+7
IOST DATA
>> J DATA+7*, DATA+12*
>> LADM SET1+1, LOOK+1*, CREAT1+5
>> LINE DATA+2*
MA LOOK+1!, DATA+12*
MB SET+1, LOOK+1!, DATA+12*
NEW DATA+16, DATA+17, KILL+1!, CREAT1+5*
>> NOASK DATE+7*
>> PNAM CREAT1+6
>> POP DATE+6
>> SSN CREAT1+5, CREAT1+6
>> TDIS SET1+1*, SET1+2*, SET1+4, CREAT1+3, CREAT1+6
U CHK+2, SET+1, SET1+1, SET1+2, DATA+7, CREATE+2, CREATE+3, CREATE+4
VA200 SET+1*!
>> VAIN(1 SET+1
>> VAIN(7 SET+1
>> VAINDT SET+1*
>> X ZTM+1*, ZTM+3*, CREAT1+5*
>> XADMDT CREATE+4*
>> XDA CHK+2*, SET1+3, CREATE+2, CREATE+3, CREATE+4
XRO KILL+1!
XRO( DATA+7*, CREAT1+2
XRO(0 CREAT1+3
>> Y DATE+2, DATE+3, DATE+5*, ZTM+1, ZTM+2*, ZTM+3, DATA+1*, CREAT1+5, CREAT1+6*
>> ZTDESC DATE+7*
>> ZTIO DATE+7*
>> ZTQUEUED KILL
>> ZTRTN DATE+7*
>> ZTSAVE( DATE+7*
>> ZTSK DATE+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All