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

Package: Automated Medical Information Exchange

Routine: DVBADSRP


Information

DVBADSRP ;ALB/GTS-557/THM-REPRINT NOTICE OF DISCHARGE ; 1/22/91 12:05 PM

Source Information

Source file <DVBADSRP.m>

Entry Points

Name Comments DBIA/ICR reference
SET
PRINTB
PRINT
PRINT1
TERM
SETUP
EN1
ONE
ASK
QUEUE
GO
KILL
DEQUE
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: PRINTB+14
Function Call: WRITE
  • Prompt: *7,!,"Press RETURN to continue or ""^"" to stop"
  • Line Location: PRINTB+14
Function Call: WRITE
  • Prompt: @IOF,!,"* REPRINT * NOTICE OF DISCHARGE REPORT"
  • Line Location: SETUP+0
Function Call: WRITE
  • Prompt: !,HEAD1
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: !!,"This program will reprint NOTICES OF DISCHARGE,",!!,"Do you want to continue"
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !!,"Enter Y to reprint or N to quit.",!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,"Do you want only one Veteran"
  • Line Location: ONE+0
Function Call: WRITE
  • Prompt: !!,"Enter Y to get one VET, N for all.",!
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"The date the notices were originally printed on.",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: GO+0
Function Call: WRITE
  • Prompt: !!,*7,"No data found for parameters.",!!
  • Line Location: GO+1
Info |  Source |  Entry Points |  Interaction Calls