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

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

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
Info |  Source |  Entry Points |  Interaction Calls