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

Package: Imaging

Routine: MAGCRPT


Information

MAGCRPT ;WOIFO/EdM ; Report on inconsistencies ; [ 11/01/2001 11:27 ]

Source Information

Source file <MAGCRPT.m>

Entry Points

Name Comments DBIA/ICR reference
RPT(TYPE) ; This entry is called from the VistA Menu Option handler
; The value of TYPE is equal to either
; "QA" -- report for Quality Assurance (option MAG_IC_RPT_QA)
; "CO" -- report for Central Office (option MAG_IC_RPT_CO)
WORK
L(X,N)
PTLKP(DFN,IPN,ISS4) ;
PN
HDR(ERR) ;
QA ; Report for QA
CO ; Report for CO
TEST
DOCU ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Scanning appears to be active. It was started on: "_Y
  • Line Location: RPT+19
Function Call: WRITE
  • Prompt: !,"Note: Report will be partial and not the complete report."
  • Line Location: RPT+23
Function Call: WRITE
  • Prompt: !,"Note: You will get an old report."
  • Line Location: RPT+37
Function Call: WRITE
  • Prompt: !!,"Report is formatted for 132 columns",!,"Try again"
  • Line Location: RPT+44
Function Call: WRITE
  • Prompt: !!,$C(7),"Request canceled.",!
  • Line Location: RPT+58
Function Call: WRITE
  • Prompt: !!,"Request queued."
  • Line Location: RPT+59
Function Call: WRITE
  • Prompt: !!,"Report being produced on ",IOST,!!
  • Line Location: RPT+63
Function Call: WRITE
  • Prompt: !,$J(D0,7)," ",$$L(IPN,31)," ",$$L(PPN,31)," "
  • Line Location: WORK+77
Function Call: WRITE
  • Prompt: $$L(ISS4,5)," ",$$L(PSS4,5)," "
  • Line Location: WORK+78
Function Call: WRITE
  • Prompt: $J(IDFN,8)," ",$J(PDFN,8)," ",$$L(PK,8)," ",$J(X,5)," ",$J(ASITE,5)
  • Line Location: WORK+79
Function Call: WRITE
  • Prompt: !,"S u m m a r y"
  • Line Location: WORK+86
Function Call: WRITE
  • Prompt: !!,+X," ",$P(X,"^",2),!!
  • Line Location: WORK+87
Function Call: WRITE
  • Prompt: !!,X," entries scanned."
  • Line Location: WORK+88
Function Call: WRITE
  • Prompt: " of ",I
  • Line Location: WORK+92
Function Call: WRITE
  • Prompt: !!,"Database scan took "
  • Line Location: WORK+98
Function Call: WRITE
  • Prompt: HRS
  • Line Location: WORK+99
Function Call: WRITE
  • Prompt: MIN
  • Line Location: WORK+100
Function Call: WRITE
  • Prompt: SEC
  • Line Location: WORK+101
Function Call: WRITE
  • Prompt: DT#100," "
  • Line Location: PN+3
Function Call: WRITE
  • Prompt: $P("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",DT\100#100)
  • Line Location: PN+4
Function Call: WRITE
  • Prompt: " ",DT\10000+1700,?(IOM-$L(X)),X
  • Line Location: PN+5
Function Call: WRITE
  • Prompt: !?(IOM-$L(HEADING)\2),HEADING
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?(IOM-$L(ERR)\2),ERR,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Image Patient Name Patient Name SSN4 SSN4 DFN DFN Package"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Number (First one found) (Other one found) (fst) (oth) (fst) (oth) Package IEN SITE"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"======= =============================== =============================== ===== ===== ======== ======== ======= ======= ====="
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Info |  Source |  Entry Points |  Interaction Calls