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

Package: Automated Medical Information Exchange

Routine: DVBADSCK


Information

DVBADSCK ;ALB/GTS-557/THM-DISCHARGE CHECKER ;21 JUL 89

Source Information

Source file <DVBADSCK.m>

Entry Points

Name Comments DBIA/ICR reference
DATE
ZTM
CHK ;* Find the IFN of the 7131 which matches the admission date (If a 7131
SET ;* Set up TMP global of admissions for discharges within range
SET1 ;* Get the discharge type and execute CREATE and CREAT1 as needed
LOOK ;* Loop through Admission Date TMP global execute CHK and SET1
DATA
KILL
CREATE ;create notice
CREAT1
DOC ;XADMDT=admission date on 7131

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!!!
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: *7,!!,"Invalid date sequence."
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !,"Notices of discharge created on "_FDT(0)_" for discharge date range "
  • Line Location: DATA+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: DATA+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: DATA+1
Function Call: WRITE
  • Prompt: "Name",?35,"SSN",?50,"Admission date",!
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: "There were no NOTICES OF DISCHARGE to create.",!!!
  • Line Location: DATA+16
Function Call: WRITE
  • Prompt: "There ",$S(COUNT=1:"was ",1:"were ")_COUNT_$S(COUNT=1:" notice",1:" notices")_" of discharge created.",!!!
  • Line Location: DATA+17
Function Call: WRITE
  • Prompt: PNAM,?35,SSN
  • Line Location: CREAT1+6
Function Call: WRITE
  • Prompt: ?50,Y,?70,TDIS,!
  • Line Location: CREAT1+6

FileMan Files Accessed Via FileMan Db Call

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