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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All
Print Page as PDF
Routine: DVBADSNT

Package: Automated Medical Information Exchange

Routine: DVBADSNT


Information

DVBADSNT ;ALB/GTS-557/THM-GENERATE AMIE NOTICE OF DISCHARGE ; 1/16/91 7:37 AM

Source Information

Source file <DVBADSNT.m>

Entry Points

Name Comments DBIA/ICR reference
SET
ENBROKER(Y) ;
PRINTB
FUPD
PRINT
PRINT1
TERM
SETUP
EN1
QUEUE
GO
KILL
DEQUE
CHK ;pull 7131 pointer
REPRINT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Admission entry in Patient Movement File has been deleted for: ",!,?5,PNAM,?25,SSN,?35," at ",Y,!,"Contact VAMC for further information.",!
  • Line Location: PRINTB+4
Function Call: WRITE
  • Prompt: !!!!,?(80-$L(HEAD)\2),HEAD,!,?(80-$L(HEAD1)\2),HEAD1,!!
  • Line Location: PRINTB+9
Function Call: WRITE
  • Prompt: ?10,"Patient Name:",?26,PNAM,!!,?14,"Claim No:",?26,CNUM,!,?6,"Claim Folder Loc:",?26,CFLOC,!,?9,"Social Sec No:",?26,SSN,!,?8,"Discharge Date:",?26,$$FMTE^XLFDT(DCHGDT,"5DZ"),!
  • Line Location: PRINTB+10
Function Call: WRITE
  • Prompt: ?5,"Type of Discharge:",?26,TDIS,!
  • Line Location: PRINTB+11
Function Call: WRITE
  • Prompt: ?8,"Length of Stay:",?26,LOS_$S(LOS="":"Discharged same day",LOS=1:" day",1:" days"),!
  • Line Location: PRINTB+12
Function Call: WRITE
  • Prompt: ?11,"Bed Service:",?26,BEDSEC,!
  • Line Location: PRINTB+13
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: FUPD+3
Function Call: WRITE
  • Prompt: *7,!,"Press RETURN to continue or ""^"" to stop "
  • Line Location: FUPD+3
Function Call: WRITE
  • Prompt: @IOF,!,"NOTICE OF DISCHARGE REPORT"
  • Line Location: SETUP+0
Function Call: WRITE
  • Prompt: !,HEAD1
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: !!,"This program will print out any new NOTICES OF DISCHARGE,",!,"based on the hospital's discharges.",!!,"Do you want to continue"
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,"Enter Y to print out the notice, N if you want to exit the program.",!
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: GO+0
Function Call: WRITE
  • Prompt: !!,*7,"No data found.",!!
  • Line Location: GO+1

Used in RPC

RPC Name Call Tags
DVBAB REPORT NEW NOTICES DC ENBROKER

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396 - [#396] Classic Fileman Calls
^DVB(396.2 - [#396.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All