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

Package: Automated Medical Information Exchange

Routine: DVBACMRP


Information

DVBACMRP ;ALB/GTS-557/THM-INCOMPETENT RPT ; 1/16/91 7:23 AM

Source Information

Source file <DVBACMRP.m>

Entry Points

Name Comments DBIA/ICR reference
SET
PRINTB
PRINT
PRINT1
TERM
SETUP
EN1
QUEUE
GO
KILL
DEQUE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?(80-$L(HEAD)\2),HEAD,!,?(80-$L(HEAD1)\2),HEAD1,!!
  • Line Location: PRINTB+6
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,"Admission Date:",?26,ADMDT,!,?3,"Admitting Diagnosis:",?26,DIAG,!
  • Line Location: PRINTB+7
Function Call: WRITE
  • Prompt: ?8,"Discharge Date:",?26,DCHGDT,!
  • Line Location: PRINTB+8
Function Call: WRITE
  • Prompt: ?5,"Type of Discharge:",?26,TDIS_$S(TO]"":" TO "_$S($D(^DIC(4,+TO,0)):$P(^(0),U,1),1:""),1:""),!
  • Condition for execution: DCHGDT]""
  • Line Location: PRINTB+8
Function Call: WRITE
  • Prompt: ?11,"Bed Service:",?26,BEDSEC,!,?13,"Recv A&A?:",?26,$S(RCVAA=0:"NO",RCVAA=1:"YES",1:"Not specified"),!
  • Line Location: PRINTB+9
Function Call: WRITE
  • Prompt: ?14,"Pension?:",?26,$S(RCVPEN=0:"NO",RCVPEN=1:"YES",1:"Not specified"),!
  • Line Location: PRINTB+10
Function Call: WRITE
  • Prompt: !,?5,"DATE RULED INCOMP:"
  • Line Location: PRINTB+11
Function Call: WRITE
  • Prompt: ?26,ICDAT_" (VA)"
  • Condition for execution: ICDAT]""
  • Line Location: PRINTB+11
Function Call: WRITE
  • Prompt: " - ",ICDAT2_" (CIVIL)"
  • Condition for execution: ICDAT2]""
  • Line Location: PRINTB+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTB+11
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRINTB+12
Function Call: WRITE
  • Prompt: *7,!,"Press RETURN to continue or ""^"" to stop "
  • Line Location: PRINTB+12
Function Call: WRITE
  • Prompt: @IOF,!,"VARO INCOMPETENCY REPORT"
  • Line Location: SETUP+0
Function Call: WRITE
  • Prompt: !,HEAD1
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: !!,"Please enter dates for search, oldest date first, most recent date last.",!!,"Last report was run on "
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: Y,!!
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: "."
  • Line Location: GO+0
Function Call: WRITE
  • Prompt: !!,*7,"No data found for parameters entered.",!!
  • Line Location: GO+1
Info |  Source |  Entry Points |  Interaction Calls