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 |  Marked Items  | All
Print Page as PDF
Routine: DVBAREQ3

Package: Automated Medical Information Exchange

Routine: DVBAREQ3


Information

DVBAREQ3 ;ALB/GTS-557/THM-PRINT ROUTINE NEW REQUEST RPT ;21 JUL 89

Source Information

Source file <DVBAREQ3.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 ^DIWP  ^DIWW  
Automated Medical Information Exchange 1 WR^DVBAUTL4  
Kernel 1 $$FMTE^XLFDT  

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 DVBAREQ1  

Entry Points

Name Comments DBIA/ICR reference
PRINT
ITEMS
HEADER
PRINT1
TOP
HEADER2 ;prints a heading for the name selection
GETDIV ;** Get the division for 7131 Rpt
FIELDS ;
5 ;;NOTICE OF DISCHARGE
6 ;;HOSPITAL SUMMARY
7 ;;21-DAY CERTIFICATE
8 ;;OTHER/EXAM REVIEW RMKS
16 ;;SPECIAL REPORT
18 ;;COMPETENCY REPORT
20 ;;VA FORM 21-2680
22 ;;ASSET INFORMATION
24 ;;ADMISSION REPORT
25 ;;OPT TREATMENT REPORT
27 ;;BEGINNING DATE/CARE

External References

Name Field # of Occurrence
^DIWP ITEMS+4
^DIWW ITEMS+6
WR^DVBAUTL4 HEADER2+3, HEADER2+12
$$FMTE^XLFDT PRINT+7, PRINT+8, ITEMS+8, HEADER+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PNAM,?49,"SSN: ",SSN,!,?44,"CLAIM NO: ",CNUM,!,?38,$S(DOCTYPE="L":" ACTIVITY DATE: ",1:"ADMISSION DATE: "),$$FMTE^XLFDT(ADMDT,"5DZ"),!
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?40,"REQUEST DATE: ",$$FMTE^XLFDT(RDATE,"5DZ"),!!,?3,"Items Requested:",!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,?8,MD,GDIV,": ",$P(^DVB(396,DA,0),U,25)
  • Line Location: ITEMS+1
Function Call: WRITE
  • Prompt: !!,"Remarks: "
  • Line Location: ITEMS+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: ITEMS+7
Function Call: WRITE
  • Prompt: "Requested by: ",$S($P(^DVB(396,DA,2),U,8)]"":$P(^(2),U,8),1:" (Not specified)")," AT ",$S($P(^(2),U,7)]"":$P(^(2),U,7),1:" (Not specified) "),!
  • Condition for execution: $D(^DVB(396,DA,2))
  • Line Location: ITEMS+7
Function Call: WRITE
  • Prompt: !!,"This record was FINALIZED on ",$$FMTE^XLFDT(FNLDT,"5DZ")
  • Line Location: ITEMS+8
Function Call: WRITE
  • Prompt: !,?5,"**Request is incomplete, contact the Regional Office to complete**"
  • Line Location: ITEMS+9
Function Call: WRITE
  • Prompt: !!!!!,"Record Processing Notes: "
  • Line Location: ITEMS+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ITEMS+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: ITEMS+11
Function Call: WRITE
  • Prompt: !!!!!,"AMIE 7131 NEW REQUEST REPORT FOR ",$$FMTE^XLFDT(BDT,"5DZ")," TO ",$$FMTE^XLFDT(EDT,"5DZ")_" * LONG VERSION *",!
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: ?5,"FOR ",HOSP,", DIVISION NOT GIVEN"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?5,"FOR ",HOSP
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ", DIVISION ",DIVHD,!!
  • Condition for execution: DIVHD]""
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ", UNABLE TO DETERMINE DIVISION",!!
  • Line Location: HEADER+3
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: TOP+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] HEADER+3, HEADER2+9, GETDIV+13
^DPT - [#2] PRINT+2
^DVB(396 - [#396] PRINT+2, PRINT+3, ITEMS, ITEMS+1, ITEMS+4, ITEMS+7, ITEMS+8, GETDIV+1, GETDIV+2, GETDIV+3
, GETDIV+4, GETDIV+5, GETDIV+6, GETDIV+9, GETDIV+11, GETDIV+12
^TMP($J PRINT*, PRINT+1*
^UTILITY($J ITEMS+3!

Label References

Name Line Occurrences
GETDIV ITEMS+1, PRINT1
HEADER PRINT+4
HEADER2 PRINT+5
PRINT1 ITEMS
TOP ITEMS+11

Naked Globals

Name Field # of Occurrence
^( PRINT+2
^(0 PRINT+2, HEADER+3, HEADER2+9
^(1 PRINT+2, ITEMS+8
^(2 PRINT+3, ITEMS+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADIV PRINT+3*, ITEMS+9, HEADER+2, HEADER+3, HEADER2+7, HEADER2+8, HEADER2+9
>> ADMDT PRINT+2*, PRINT+7
ANS TOP!*
>> BDT HEADER+1
>> CNUM PRINT+2*, PRINT+7
>> DA PRINT, PRINT+1, PRINT+2, PRINT+3, ITEMS, ITEMS+1, ITEMS+4, ITEMS+7, ITEMS+8, TOP*
, GETDIV+1, GETDIV+2, GETDIV+3, GETDIV+4, GETDIV+5, GETDIV+6, GETDIV+9, GETDIV+11, GETDIV+12
>> DFN PRINT+2*
>> DIVHD HEADER+3*, HEADER2+9*, HEADER2+10
DIWF ITEMS+3*, ITEMS+5!
DIWL ITEMS+3*, ITEMS+5!
DIWR ITEMS+3*, ITEMS+5!
>> DOCTYPE PRINT+2*, PRINT+7
DTIME TOP
>> DVBAON2 HEADER, HEADER+4*, HEADER2+1
DVBAPCE GETDIV+8*, GETDIV+9, GETDIV+10!
>> DVBATASK PRINT, PRINT+1
DVBAWO ITEMS+2*, ITEMS+4*, ITEMS+6, ITEMS+7!
>> DVBSEL PRINT+4, PRINT+5
>> EDT HEADER+1
>> FNLDT ITEMS+8*
>> GDIV ITEMS+1*, PRINT1+1*, PRINT1+2*
>> GDIVNAM ITEMS+1, PRINT1+1, PRINT1+2, GETDIV+13*
GDIVPTR GETDIV+2*, GETDIV+3*, GETDIV+4*, GETDIV+5*, GETDIV+6*, GETDIV+9*, GETDIV+11*, GETDIV+12*, GETDIV+13, GETDIV+14!
>> HOSP HEADER+2, HEADER+3, HEADER2+7, HEADER2+10
IOF HEADER
IOST ITEMS+10, HEADER, TOP, HEADER2+1
>> LN ITEMS+10*
LPCNT ITEMS+4*, ITEMS+5!
>> LPDIV PRINT
>> MA TOP*
>> MC ITEMS+1*, PRINT1+1*, PRINT1+2*
>> MD ITEMS+1*, PRINT1+1*, PRINT1+2*
>> NOASK TOP
>> NODTA PRINT+6*
>> PNAM PRINT+2*, PRINT+7, HEADER2+6
>> Q ITEMS*, ITEMS+1*, GETDIV+2, GETDIV+3, GETDIV+4, GETDIV+5, GETDIV+6, GETDIV+7, GETDIV+8
>> QQ PRINT1+1*, PRINT1+2*
>> RDATE PRINT+2*, PRINT+8
>> SSN PRINT+2*, PRINT+7
U PRINT+2, PRINT+3, ITEMS, ITEMS+1, ITEMS+7, ITEMS+8, HEADER+3, TOP, HEADER2+9
VAR HEADER2+4!, HEADER2+13!
VAR(1 HEADER2+2*, HEADER2+6*
VAR(2 HEADER2+7*, HEADER2+10*
>> X ITEMS+4*
>> XDIV PRINT+4

Marked Items

Name Field # of Occurrence
$T(@Q ITEMS+1, PRINT1+1, PRINT1+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All