Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: MCNP2CHK

Package: Medicine

Routine: MCNP2CHK


Information

MCNP2CHK ;HIRMFO/DAD-UNIQUE PROVIDER NAME PRINT ;4/18/96 08:33

Source Information

Source file <MCNP2CHK.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$DT,$$FMTE)^XLFDT  
VA Fileman 2 ($$GET1,FIELD)^DID  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
TASK ;
SETTMP(MC200) ;
HEADER ;
PAUSE ;
XIT
GETMULT ;
PRINT ;
EXIT ;
GETDATA ;
FILEFLD ;;

External References

Name Field # of Occurrence
^%ZIS MCNP2CHK+3
^%ZISC EXIT+1
^%ZTLOAD MCNP2CHK+7
$$GET1^DID TASK+5
FIELD^DID TASK+9
^DIR PAUSE+2
$$DT^XLFDT PRINT+2
$$FMTE^XLFDT PRINT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MCNP2CHK+3
Function Call: WRITE
  • Prompt: !!,"Task queued, task number ",ZTSK,"."
  • Line Location: MCNP2CHK+8
Function Call: WRITE
  • Prompt: !!,"Task not queued."
  • Line Location: MCNP2CHK+9
Function Call: WRITE
  • Prompt: !!,^TMP("MC",$J,MCFILE)," file (#",MCFILE,")"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?5,^TMP("MC",$J,MCFILE,MCFLD)," field (#",MCFLD,")"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !?10,"*** NONE ***"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !?10,MCPROV,?50,$J($P(MCDATA,U),6),?65,$S($P(MCDATA,U,2):"YES",1:"NO")
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !?15,"Unique New Person Names in Medicine Provider Fields"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?68,MCTODAY,!?68,"Page: ",MCPAGE
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"File Name (Number)"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !?5,"Field Name (Number)"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !?10,"New Person Name",?50,"IEN",?65,"Provider Key",!,MCUNDL
  • Line Location: HEADER+7
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2
Routine Call
  • %ZIS
  • Line Location:
    • MCNP2CHK+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MCAR( GETDATA+2, GETDATA+7, GETMULT+2, GETMULT+3
^TMP("MC" TASK+5*, TASK+11*, PRINT+5, PRINT+6, PRINT+8, PRINT+9, PRINT+10, PRINT+15, PRINT+16, XIT+2!
, SETTMP+3, SETTMP+5*
^VA(200 - [#200] SETTMP+2
^XUSEC("PROVIDER" SETTMP+4

Label References

Name Line Occurrences
EXIT MCNP2CHK+3, MCNP2CHK+4
GETDATA TASK+13
GETMULT GETDATA+5
HEADER PRINT+3, PRINT+12, PRINT+18
PAUSE PRINT+12, PRINT+18
SETTMP GETDATA+8, GETMULT+4
XIT TASK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS MCNP2CHK+3!*, XIT!
DIR XIT!, PAUSE+2~
DIR(0 PAUSE+2*
DIROUT XIT!
DIRUT XIT!
DTOUT XIT!
IO PRINT+3
IO("Q" MCNP2CHK+4
IOF HEADER+2
IOP MCNP2CHK+3!
IOSL PRINT+12, PRINT+18
IOST PAUSE+1, HEADER+2
MC200 XIT!, GETDATA+7*, GETDATA+8, GETMULT+3*, GETMULT+4, SETTMP~, SETTMP+1, SETTMP+2, SETTMP+4, SETTMP+5
MC200(0 SETTMP+2*, SETTMP+3, SETTMP+5
MCD0 XIT!, GETDATA+1*, GETDATA+2*, GETDATA+7, GETMULT+2, GETMULT+3
MCD1 XIT!, GETMULT+1*, GETMULT+2*, GETMULT+3
MCDATA TASK+2*, TASK+4, PRINT+16*, PRINT+17, XIT!
MCDD TASK+8!, XIT!
MCDD("GLOBAL SUBSCRIPT LOCATION" , TASK+10
MCDD("LABEL" TASK+11
MCER TASK+8!, XIT!
MCEXIT PRINT+1*, PRINT+5, PRINT+8, PRINT+15, XIT!, PAUSE+2*, HEADER+1
MCFILE TASK+4*, TASK+5, TASK+9, TASK+11, PRINT+4*, PRINT+5*, PRINT+6, PRINT+8, PRINT+9, PRINT+10
, PRINT+15, PRINT+16, XIT+1!, GETDATA+2, GETDATA+5, GETDATA+7, GETMULT+2, GETMULT+3, SETTMP+3, SETTMP+5
MCFLD TASK+3!, TASK+7*, TASK+9, TASK+10, TASK+11, PRINT+7*, PRINT+8*, PRINT+9, PRINT+10, PRINT+15
, PRINT+16, XIT+1!, GETDATA+3*, GETDATA+4*, GETDATA+5, GETDATA+6, SETTMP+3, SETTMP+5
MCFLD( TASK+10*, GETDATA+4, GETDATA+6
MCFLD(0 TASK+4*, TASK+6, TASK+7
MCLINE TASK+2*, XIT+1!
MCNODE XIT+1!, GETDATA+6*, GETDATA+7
MCPAGE PRINT+1*, XIT+1!, HEADER+2, HEADER+4*
MCPIECE TASK+6*, TASK+7, XIT+1!, GETDATA+6*, GETDATA+7
MCPROV PRINT+14*, PRINT+15*, PRINT+16, PRINT+17, XIT+1!, SETTMP+4*, SETTMP+5
MCTODAY PRINT+2*, XIT+1!, HEADER+4
MCUNDL PRINT+1!*, XIT+1!, HEADER+7
POP MCNP2CHK+3, XIT+1!
U TASK+4, PRINT+17, GETDATA+7, GETMULT+3, SETTMP+2, SETTMP+5
X XIT+2!
Y XIT+2!, PAUSE+2
ZTDESC MCNP2CHK+6*, XIT+2!
ZTRTN MCNP2CHK+5*, XIT+2!
>> ZTSK MCNP2CHK+7*, MCNP2CHK+8

Marked Items

Name Field # of Occurrence
$T(FILEFLD+MCLINE TASK+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All