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

Package: Automated Medical Information Exchange

Routine: DVBAPND1


Information

DVBAPND1 ;ALB ISC/GTS-AMIE PENDING RPT UT ;13 JAN 93@08:10 ; 7/2/90 2:48 PM

Source Information

Source file <DVBAPND1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  ^XUWORKDY  
VA FileMan 2 ^DIC  YN^DICN  
Automated Medical Information Exchange 1 $$STATION^DVBAUTL1  

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 DVBAPEND  

Entry Points

Name Comments DBIA/ICR reference
SORTDIV
ENTDIV
DCHGDT
PRINT
ITEMS
PRINT1
TOP
ELAPSED
HEADER
FIELDS ;
7 ;;ADMISSION RPT
9 ;;NOTICE OF DISCHARGE
11 ;;HOSPITAL SUMMARY
13 ;;21-DAY CERTIFICATE
15 ;;OTHER/EXAM REVIEW RMKS
17 ;;SPECIAL REPORT
19 ;;COMPETENCY REPORT
21 ;;VA FORM 21-2680
23 ;;ASSET INFORMATION
26 ;;OPT TREATMENT REPORT
28 ;;BEGINNING DATE/CARE

External References

Name Field # of Occurrence
^DIC ENTDIV+1
YN^DICN SORTDIV
$$STATION^DVBAUTL1 PRINT+1
$$FMTE^XLFDT PRINT+6
^XUWORKDY ELAPSED

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sort by Division"
  • Line Location: SORTDIV+0
Function Call: WRITE
  • Prompt: !!,*7,"Enter Y to sort by the Division you"
  • Line Location: SORTDIV+2
Function Call: WRITE
  • Prompt: !,"select or enter N to report ALL Divisions."
  • Line Location: SORTDIV+3
Function Call: WRITE
  • Prompt: !,*7,"Invalid response.",!!
  • Line Location: SORTDIV+7
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"),!,?40,"Request date: ",$$FMTE^XLFDT(RDATE,"5DZ")
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: "** Discharged: ",Y
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?40,"Elapsed days: ",EDAYS,!!,?3,"Items Pending:"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: ITEMS+2
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+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ITEMS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEMS+3
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: TOP+0
Function Call: WRITE
  • Prompt: ?(80-$L(HEAD)\2),HEAD,?71,"Page: ",PG,!
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: ?(80-$L(HEAD2)\2),HEAD2,!
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: ?(80-$L(PROCDT)\2),PROCDT,!!
  • Line Location: HEADER+2
Routine Call
  • DIC
  • Line Location:
    • ENTDIV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] ENTDIV+2, PRINT1+2
^DGPM - [#405] DCHGDT
^DGPM("APTT1" PRINT+3
^DPT - [#2] PRINT
^DVB(396 - [#396] PRINT, ITEMS, ITEMS+1, ITEMS+2, PRINT1, PRINT1+1
^TMP("DVBA" PRINT+2!, PRINT+3*, PRINT+8

Label References

Name Line Occurrences
DCHGDT PRINT+3
ELAPSED PRINT+9
ENTDIV SORTDIV+6
HEADER TOP+1
PRINT1 ITEMS, ITEMS+1
SORTDIV SORTDIV+4, SORTDIV+7
TOP ITEMS+4, PRINT1+5

Naked Globals

Name Field # of Occurrence
^( PRINT
^(0 ENTDIV+2, DCHGDT, PRINT
^(1 PRINT
^(2 PRINT, ITEMS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SORTDIV*, SORTDIV+1, SORTDIV+5, SORTDIV+6
>> %Y SORTDIV+2, SORTDIV+3, SORTDIV+4
>> ADIV PRINT+4, PRINT+5
>> ADMDT PRINT*, PRINT+6, PRINT+8
>> ANS TOP*
>> CFLOC PRINT+1*
>> CNUM PRINT*, PRINT+6
>> DA PRINT, ITEMS, ITEMS+1, ITEMS+2, PRINT1, PRINT1+1
>> DCHGDT DCHGDT*, PRINT+3, PRINT+7*, PRINT+8*, PRINT+10
DCHPTR DCHGDT*, DCHGDT+1!
>> DFN PRINT*, PRINT+1, PRINT+3, PRINT+8
DIC ENTDIV*, ENTDIV+1!
DIC("A" ENTDIV*
DIC(0 ENTDIV*
>> DIVNAM ENTDIV+2*
>> DIVNUM SORTDIV+5*, ENTDIV+1*
>> DOCTYPE PRINT*, PRINT+6, PRINT+8
DT ELAPSED
DTIME TOP
DTOUT SORTDIV+1!
>> DVBADD PRINT+10
>> DVBAQUIT ITEMS, ITEMS+1, ITEMS+4, PRINT1+5, TOP*
EDAYS PRINT+11, ELAPSED!, ELAPSED+1*
>> GDIV PRINT1+4*, PRINT1+5*
>> GDIVNAM PRINT1+2*, PRINT1+3*, PRINT1+4, PRINT1+5
>> GDIVPTR PRINT1*, PRINT1+1*, PRINT1+2, PRINT1+3
>> HEAD HEADER+1
>> HEAD2 HEADER+1
IOF TOP, HEADER
IOST TOP, HEADER
>> L ITEMS+2*
>> MC PRINT1+4*, PRINT1+5*
>> MD PRINT1+4*, PRINT1+5*
>> NOASK TOP
>> NODTA PRINT1+4*
>> PG HEADER*, HEADER+1
>> PNAM PRINT*, PRINT+6
>> PROCDT HEADER+2
>> Q ITEMS*, ITEMS+1*, PRINT1
>> QQ PRINT1+4*, PRINT1+5*
>> RDATE PRINT*, PRINT+6, ELAPSED
>> RO PRINT+1
>> RONUM PRINT+1
>> SELDIV SORTDIV+5*, SORTDIV+6*, PRINT+4, PRINT+5
>> SSN PRINT*, PRINT+6
U DCHGDT, PRINT, PRINT+3, PRINT+8, ITEMS, ITEMS+1, ITEMS+2, TOP
X ELAPSED!*, ELAPSED+1
X1 ELAPSED!*
>> XADMDT DCHGDT*, PRINT+3
>> XI PRINT+3*
>> XJ DCHGDT, PRINT+3*
>> Y SORTDIV+1*, ENTDIV+1, ENTDIV+2, PRINT+10*

Marked Items

Name Field # of Occurrence
$T(@Q PRINT1+4, PRINT1+5
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 |  Marked Items  | All