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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: MCPOS04

Package: Medicine

Routine: MCPOS04


Information

MCPOS04 ;HIRMFO/DAD-CONSULT CONVERSION 699 >>>===> 699.5 ;7/5/96 10:33

Source Information

Source file <MCPOS04.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^%DT  FILE^DICN  ^DIE  
Kernel 2 ^%ZTLOAD  MES^XPDUTL  
Medicine 1 ^MCPOS04A  

Entry Points

Name Comments DBIA/ICR reference
TASK ;
EXIT ;
MAIN ;

External References

Name Field # of Occurrence
^%DT MAIN+50
^%ZTLOAD MCPOS04+36
FILE^DICN MAIN+18
^DIE MAIN+56
^MCPOS04A MAIN+58
MES^XPDUTL MCPOS04+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Moving the Consult data from the Endoscopy/Consult"
  • Line Location: MCPOS04+22
Function Call: WRITE
  • Prompt: !,"file (#699) to the Generalized Procedure/Consult"
  • Line Location: MCPOS04+23
Function Call: WRITE
  • Prompt: !,"file (#699.5)."
  • Line Location: MCPOS04+24
Function Call: WRITE
  • Prompt: !!,"The CONSULT entry was not found in the"
  • Line Location: MCPOS04+27
Function Call: WRITE
  • Prompt: !,"PROCEDURE/SPECIALTY file (#697.2), data cannot"
  • Line Location: MCPOS04+28
Function Call: WRITE
  • Prompt: !,"be converted without this entry being present."
  • Line Location: MCPOS04+29
Function Call: WRITE
  • Prompt: !
  • Line Location: MCPOS04+36
Function Call: WRITE
  • Prompt: !,"Task # ",ZTSK,"."
  • Line Location: MCPOS04+38
Routine Call
  • DIE
  • Line Location:
    • MAIN+56

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MCAR(699.5 - [#699.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] MAIN+33
^GMR(123 - [#123] MAIN+36
^MCAR(697.2 - [#697.2] MCPOS04+3, MCPOS04+4
^MCAR(699 - [#699] TASK+2, MAIN+3
^MCAR(699.5 - [#699.5] MAIN+9, MAIN+10
^MCAR(699.82 - [#699.82] MAIN+32
^OR(100 - [#100] MAIN+35
^VA(200 - [#200] MAIN+29, MAIN+40
^XUSEC("PROVIDER" MAIN+29

Label References

Name Line Occurrences
EXIT MCPOS04+6, MCPOS04+21
MAIN TASK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT MAIN+50*
DA MAIN+26!, MAIN+56*
DD MAIN+15!
DIC MAIN+15!, MAIN+16*, MAIN+26!
DIC("DR" MAIN+17*
DIC(0 MAIN+16*
DIE MAIN+26!, MAIN+56*
DINUM MAIN+15!
>> DLAYGO MAIN+16*
DO MAIN+15!
DR MAIN+26!, MAIN+27*
DR(1 MAIN+28*, MAIN+29*, MAIN+30*, MAIN+31*, MAIN+32*, MAIN+33*, MAIN+35*, MAIN+36*, MAIN+53*
>> GMRCO MAIN+34*, MAIN+36
>> MC MAIN+10*, MAIN+11
>> MC6995D0 MAIN+8*, MAIN+9, MAIN+12*, MAIN+14, MAIN+18*, MAIN+21, MAIN+56
>> MC699D0 TASK+1*, TASK+2*, MAIN+3
>> MCCONTYP MAIN+23*, MAIN+32
MCDATA MCPOS04+7!, MCPOS04+19!, MAIN+1!, MAIN+38*, MAIN+40, MAIN+42, MAIN+44*, MAIN+46, MAIN+47, MAIN+48
, MAIN+49, MAIN+50*, MAIN+51, MAIN+52, MAIN+53
MCDATA( MAIN+3*, MAIN+22, MAIN+23
MCDATA("ES" MAIN+38
MCDATA("OR" MAIN+34
MCDATA("PCC" MAIN+33
MCDATA("PROV" MAIN+25
MCDATA(0 MAIN+5, MAIN+6, MAIN+7, MAIN+22, MAIN+24
MCDATA(1 MCPOS04+8*
MCDATA(15 MAIN+23
MCDATA(2 MCPOS04+9*
MCDATA(3 MCPOS04+10*
MCDATA(4 MCPOS04+11*
MCDATA(5 MCPOS04+14*
MCDATA(6 MCPOS04+15*
MCDATA(7 MCPOS04+16*
MCDATA(8 MCPOS04+17*
>> MCDATE MAIN+6*, MAIN+9, MAIN+18
>> MCDFN MAIN+6*, MAIN+12, MAIN+17
>> MCDRNUM MAIN+26*, MAIN+28*, MAIN+29*, MAIN+30*, MAIN+31*, MAIN+32*, MAIN+33*, MAIN+35*, MAIN+36*, MAIN+53
, MAIN+54*
>> MCFOUND MCPOS04+4*, MCPOS04+6, MCPOS04+13, MCPOS04+26
>> MCIEN MAIN+8*, MAIN+9*, MAIN+10, MAIN+12
>> MCINDCOM MAIN+22*, MAIN+28
>> MCNEWDFN MAIN+11*, MAIN+12
>> MCNEWPRC MAIN+11*, MAIN+12
>> MCNODE MAIN+2*, MAIN+3
>> MCONSULT MCPOS04+3*, MCPOS04+4, TASK+2, MAIN+5
>> MCPIECE MAIN+37*, MAIN+38, MAIN+40, MAIN+41, MAIN+42, MAIN+44, MAIN+46, MAIN+47, MAIN+48, MAIN+49
, MAIN+50, MAIN+51, MAIN+52, MAIN+53
>> MCPRC MAIN+7*, MAIN+12, MAIN+17
>> MCPRCSUM MAIN+23*, MAIN+31
>> MCPROVID MAIN+24*, MAIN+25*, MAIN+29
>> MCSLASH MAIN+39*, MAIN+40*, MAIN+43*, MAIN+53
>> MCSUMMRY MAIN+22*, MAIN+30
>> MCVALCOD( MAIN+42*
>> ORIFN MAIN+34*, MAIN+35
U MCPOS04+4, MAIN+5, MAIN+6, MAIN+7, MAIN+11, MAIN+22, MAIN+23, MAIN+24, MAIN+25, MAIN+29
, MAIN+30, MAIN+32, MAIN+33, MAIN+34, MAIN+35, MAIN+36, MAIN+38, MAIN+40, MAIN+41, MAIN+46
, MAIN+51
>> X MAIN+18*, MAIN+50*
>> XPDNM MCPOS04+6, EXIT+1
>> Y MAIN+18, MAIN+50
>> ZTDESC MCPOS04+33*
>> ZTIO MCPOS04+35*
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
>> ZTRTN MCPOS04+32*
>> ZTSAVE("MCONSULT" MCPOS04+34*
>> ZTSK MCPOS04+37, MCPOS04+38
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All