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

Package: Beneficiary Travel

Routine: DGBTDLT


Information

DGBTDLT ;UNK/BLD - BENEFICIARY TRAVEL DENIAL LETTER TEMPLATES ; 1/8/24 12:36pm

Source Information

Source file <DGBTDLT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point for denial letter templates.
MENU(DGIEN) ;allow user to select which letter to edit
SETUP(DGIEN) ;this will set up ^TMP global for editing
EDIT ;this will invoke the screen editor
DGBTDR ;will ask for the denial reason
LTR ;
HEADER(DGBTINST) ;this will print all of the standard information at the top of the letter. IT WILL NOT PRINT LOGO'S ETC
PATIENT ; patient lookup, quit if patient doesn't exist
DIVISN(DGBTINST) ; if MED CTR DIV file set up (first record) and record does not exist, write warning, kill variables, and exit
INSTIT(DGBTINST) ; check for pointer to institution file and for address information on institution
DEVICE(RPTNAM,ROUTINE) ;common device call for DGBT reports
DEVICE1(DGBTRPT) ;
CLRLTR(DENIED) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DGBTDR+3
Function Call: WRITE
  • Prompt: !!,"Denial Reason Required. '^' to exit.",!
  • Line Location: DGBTDR+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: DGBTDR+40
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DGBTDR+42
Function Call: WRITE
  • Prompt: !,?LOC/2,ORG
  • Line Location: HEADER+21
Function Call: WRITE
  • Prompt: !,?LOC/2,INSTNAME
  • Line Location: HEADER+22
Function Call: WRITE
  • Prompt: !,?LOC/2,ADD1
  • Line Location: HEADER+23
Function Call: WRITE
  • Prompt: !,?LOC/2,ADD2
  • Line Location: HEADER+24
Function Call: WRITE
  • Prompt: !,?LOC/2,CITYSTZIP,!
  • Line Location: HEADER+26
Function Call: WRITE
  • Prompt: !?LOC,$P(DGBTDTE,"@",1)
  • Line Location: HEADER+27
Function Call: WRITE
  • Prompt: !,?LOC,DGBTDTFILED
  • Line Location: HEADER+31
Function Call: WRITE
  • Prompt: !,?LOC,DGBTINST("FAC NUMBER")
  • Line Location: HEADER+32
Function Call: WRITE
  • Prompt: ?LOC,$E(VADM(1),1)_$E($P(VADM(2),"^",1),6,99)
  • Line Location: HEADER+34
Function Call: WRITE
  • Prompt: !,?LOC2,$G(PATSEX),$G(PATNAME)
  • Line Location: HEADER+35
Function Call: WRITE
  • Prompt: !,?LOC2,$G(PATADD1)
  • Line Location: HEADER+36
Function Call: WRITE
  • Prompt: !,?LOC2,PATCITY,PATST,PATZIP,!!
  • Line Location: HEADER+38
Function Call: WRITE
  • Prompt: !!,"INSTITUTION HAS NOT BEEN DEFINED FOR ",$P(^(0),"^"),!,"USE THE ADT PARAMETER OPTION TO UPDATE",!
  • Line Location: INSTIT+3
Function Call: WRITE
  • Prompt: !!,"INSTITUTION ADDRESS NOT ENTERED. PLEASE UPDATE USING THE INSTITUTION FILE ENTER/EDIT",!
  • Line Location: INSTIT+4
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DEVICE1+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^VA(200 - [#200] GET1^DIQ
^DGBT(392 - [#392] GET1^DIQ
^DGBT(392.6 - [#392.6] Classic Fileman Calls,  GET1^DIQ
^DGBT(392.8 - [#392.8] Classic Fileman Calls,  GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
^DIC(49 - [#49] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call