Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call