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

Package: DSS Extracts

Routine: ECXAMTL


Information

ECXAMTL ;ALB/JAM - MTL Extract Audit Report; May 24, 1999 ;10/22/13 17:31

Source Information

Source file <ECXAMTL.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point for MTL extract audit report
PROCESS ;process data in file #727.812
PRINT ;print the MTL audit report
P1 ;print ASI and GAF records
HEADER ;header and page control
H1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Setup for ",ECXHEAD," Extract Audit Report --",!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,?5,"Try again later... exiting.",!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: ?5,NAM,?32,$J(INSTOT,8),!
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: ?5,LN,!,?5,"Total",?30,$J(PITOT,10),!
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?5,LN,!,?5,"Total: ",GAFTOT,!
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: ?5,LN,!
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: ?29,$J(ASI(CLS),8)," ",ASI(CLS,0)
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: ?50,$J(ASISP(SPC),8)," ",ASISP(SPC,0)
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: ?5,LN,!,?27,$J(ASITOT,10),?48,$J(ASISPTOT,10)," ","Total"
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: ?5,NAM,?14,$E(SSN,$L(SSN)-3,$L(SSN))
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: ?21,DATE,?36,$S(CLS=1:"Full",CLS=2:"Lite",CLS=3:"F-up",CLS=4:"ASI-MV",1:""),?57,SPC,!
  • Line Location: P1+7
Function Call: WRITE
  • Prompt: ?21,DATE,?36,$P(DATND,U,2),!
  • Line Location: P1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"DSS Extract Log #: "_ECXARRAY("EXTRACT")
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END")
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"Report Run Date/Time: "_ECXRUN
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"Facility: "_$P(ECXDIV(DIV),U)
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: " ("_$P(ECXDIV(DIV),U,4)_")",?68,"Page: "_PG
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !!,CNT,".",?5
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: "Psych Instruments segment",!!
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: ND," segment",!!
  • Line Location: H1+3
Function Call: WRITE
  • Prompt: ?5,"Name",?14,"SSN",?21
  • Line Location: H1+4
Function Call: WRITE
  • Prompt: "Interview",?36,"Class",?54,"Special"
  • Line Location: H1+5
Function Call: WRITE
  • Prompt: "Date",?36,"Clinician"
  • Line Location: H1+6
Function Call: WRITE
  • Prompt: !,?5,LN,!
  • Line Location: H1+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call