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

Package: Toolkit

Routine: XDRDSHOW


Information

XDRDSHOW ;SF-IRMFO.SEA/JLI - DISPLAY DATA IN FIELDS, GET OVERWRITES ; Jun 23, 2022@08:57:56

Source Information

Source file <XDRDSHOW.m>

Entry Points

Name Comments DBIA/ICR reference
SHOW(FILE,REC1,REC2,FLDS,REVIEW) ;
LOOP ;
MULT
PAGE ;
HEADER ;
POINT(VAL,FILE) ;
TYPE(VAL,TYPE,DDNODE0,REC) ;
WARNING ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+20
Function Call: WRITE
  • Prompt: !,X0," ",$E(XN,1,20),?30,$E(X1,1,20),?55,$E(X2,1,20)
  • Line Location: LOOP+22
Function Call: WRITE
  • Prompt: !!,$E(NAME,1,25),?30,N1,?55,N2
  • Line Location: MULT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: !,I," ",$P(^DD(FILE,DIFFS(I),0),U)
  • Line Location: PAGE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?30,$S(PACKAGE="PRIMARY":"RECORD1 [#"_REC1_"]",PACKAGE="LABORATORY":"MERGE FROM [#"_NAMIEN1_"]",1:"MERGE FROM [#"_REC1_"]")
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: ?55,$S(PACKAGE="PRIMARY":"RECORD2 [#"_REC2_"]",PACKAGE="LABORATORY":"MERGE TO [#"_NAMIEN2_"]",1:"MERGE TO [#"_REC2_"]")
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !?38,"[#"_NAMIEN1_"]",?55,"[#"_NAMIEN2_"]"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,?30,$E(NAMREC1,1,20),?55,$E(NAMREC2,1,20)
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,?30,$E(NAMREC1,21,40),?55,$E(NAMREC2,21,40)
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: !,?30,"CMOR SCORE = "_$S($P($G(^DPT(REC1,"MPI")),U,6):$P(^DPT(REC1,"MPI"),U,6),1:"NULL"),?55,"CMOR SCORE = "_$S($P($G(^DPT(REC2,"MPI")),U,6):$P(^DPT(REC2,"MPI"),U,6),1:"NULL")
  • Line Location: HEADER+21
Function Call: WRITE
  • Prompt: !,?30,$S(REC1MB:"**MULTIPLE BIRTH**",1:""),?55,$S(REC2MB:"**MULTIPLE BIRTH**",1:"")
  • Line Location: HEADER+29
Function Call: WRITE
  • Prompt: !,"----------------------------------------------------------------------------"
  • Line Location: HEADER+32
Function Call: WRITE
  • Prompt: !,?2,"*** WARNING!!! One or both of these records indicated MULTIPLE BIRTH. ***",!,?2,"Use caution to ensure that these records are truly duplicates and not",!,?2,"siblings before proceeding.",!
  • Line Location: WARNING+1
Info |  Source |  Entry Points |  Interaction Calls