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

Package: Automated Lab Instruments

Routine: LA7VPFL


Information

LA7VPFL ;DALOI/PDL - Lab Mapping Data Verification ;03/07/12 16:04

Source Information

Source file <LA7VPFL.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
MAIN(LABORT) ;
; Prompts for subscript and type of report then queues or displays.
; Inputs
; LABORT: <byref> See Outputs
; Outputs
; LABORT: User wants to abort (1=abort)
SHOW(SS,RPT,LABORT) ;
; Branches to the appropriate report subroutine.
; Inputs
; SS: LR subscript (MI,SP,CY)
; RPT: Which report 1=errors 2=correct
; LABORT: <byref> See Outputs
; Outputs
; LABORT: User wants to abort 1=abort
RPT1(LASS,LABORT) ;
; "Mapping Error" report
; Inputs
; LASS: Subscript (ie "MI","SP","CY")
; LABORT: <byref> See Outputs
; Outputs
; LABORT: User wants to abort (1=abort)
RPT2(LASS,LABORT) ;
; "Mapping Okay" report
; Inputs
; LASS: Subscript (ie "MI","SP","CY")
; LABORT: <byref> See Outputs
; Outputs
; LABORT: User wants to abort (1=abort)
HDR1 ;
; Generate header used with "Error" report
HDR2 ;
; Generate header used with "Correct" report
NP ;
; Convenience method

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"[",R60,"] ",TEST
  • Line Location: RPT1+29
Function Call: WRITE
  • Prompt: ?35," Not Mapped to File #64"
  • Line Location: RPT1+30
Function Call: WRITE
  • Prompt: !,"[",R60,"] ",TEST
  • Line Location: RPT1+36
Function Call: WRITE
  • Prompt: !,?35," No Workload Code"
  • Line Location: RPT1+37
Function Call: WRITE
  • Prompt: !,"[",R60,"] ",TEST
  • Line Location: RPT1+43
Function Call: WRITE
  • Prompt: !,?15,"is mapped to: ",PROC," [",WKLD,"]"
  • Line Location: RPT1+45
Function Call: WRITE
  • Prompt: !,?37,"Not Linked to File #64.061"
  • Line Location: RPT1+47
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("< < < End of report > > >",IOM),!
  • Line Location: RPT1+50
Function Call: WRITE
  • Prompt: !,"[",R60,"] ",TEST
  • Line Location: RPT2+40
Function Call: WRITE
  • Prompt: !,?3,"Mapped to: ",X," [",WKLD,"]"
  • Line Location: RPT2+42
Function Call: WRITE
  • Prompt: !,?5,"Linked to: ",LEC," [",R64061,"]"
  • Line Location: RPT2+44
Function Call: WRITE
  • Prompt: !,?7,"Lab Data: ",SECT," [",FIELD,"]"
  • Line Location: RPT2+62
Function Call: WRITE
  • Prompt: !,?9,"SCT Top Concept: ",$G(D64061(63.3,"E"))," [",$G(D64061(63.3,"I")),"]"
  • Line Location: RPT2+64
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("< < < End of report > > >",IOM),!
  • Line Location: RPT2+67
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !,"Laboratory Tests for "_LASS_" with mapping errors"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: ?IOM-$L(X),X
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: !?IOM-$L(X),X
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: !,"Laboratory Tests for "_LASS_" mapped correctly"
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: ?IOM-$L(X),X
  • Line Location: HDR2+7
Function Call: WRITE
  • Prompt: !?IOM-$L(X),X
  • Line Location: HDR2+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: HDR2+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] FIELD^DID
^LAB(64.061 - [#64.061] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call