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

Package: Medicine

Routine: MCPOS0C


Information

MCPOS0C ;HIRMFO/RMP,DAD-ASTM file update ;7/24/96 08:39

Source Information

Source file <MCPOS0C.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  $$GET1^DID  ^DIE  
Kernel 1 MES^XPDUTL  

Entry Points

Name Comments DBIA/ICR reference
START(FILE) ;DESIGNED TO CREATE MCPMVA - Medicine View ASTM subfile
SCODE(STEMP,SDA,FILE) ;
STUFF(ROUTINE,TFILE) ;ROUTINE is set to "MCPMVA"
ASTM(ENTRY) ;
TMP(FILE,REC) ;FOR EVERY Template with ASTM pointers in the SUB OR
; SUBSUBfile structure GET ASTM ID's

External References

Name Field # of Occurrence
^DIC STUFF+11, SCODE+7
$$GET1^DID SCODE+5
^DIE SCODE+11
MES^XPDUTL STUFF+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,";;",$P(^MCAR(FILE,REC,0),U)_"^"_TMP
  • Line Location: START+10
Routine Call
  • DIE
  • Line Location:
    • SCODE+11
Routine Call
  • DIC
  • Line Location:
    • STUFF+11
    • SCODE+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MCAR( START+6, START+7, START+8, START+10, TMP+4, TMP+5
^MCAR(690.5 - [#690.5] TMP+7, ASTM+3, ASTM+4

Label References

Name Line Occurrences
$$ASTM SCODE+3
$$TMP START+8
SCODE STUFF+13
STUFF MCPOS0C+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY TMP+2~, TMP+3*, TMP+9*, TMP+10*, TMP+12
ASTM SCODE+3*, ASTM+1~*, ASTM+3, ASTM+4*, ASTM+6
CNT TMP+2~, TMP+3*, TMP+4*, TMP+5
CODE START+4~, SCODE+1~, SCODE+6*, ASTM+2*, ASTM+3
>> CODE2 SCODE+6*, ASTM+2*, ASTM+4
COUNT START+4~, START+5*, STUFF+2~
DA STUFF+11!, STUFF+12*, STUFF+13, SCODE+8!, SCODE+9*, SCODE+12!
DA(1 SCODE+4*
DATE SCODE+1~
DIC STUFF+9*, STUFF+11!, SCODE+4*, SCODE+8!, SCODE+9!
DIC("P" SCODE+5*
DIC(0 STUFF+9*, SCODE+4*
DIE SCODE+9*, SCODE+12!
>> DLAYGO STUFF+9*, SCODE+5*
DR SCODE+10*, SCODE+12!
ENTRY SCODE+1~, SCODE+2*, SCODE+3, SCODE+6, ASTM~, ASTM+2
FILE START~, START+6, START+7, START+8, START+10, TMP~, TMP+4, TMP+5, SCODE~, SCODE+4
, SCODE+5
HOLD STUFF+2~, STUFF+8*, STUFF+10, STUFF+13
LOOP STUFF+2~, STUFF+8*, SCODE+1~, SCODE+2*
>> MCDATA STUFF+6
>> MCDATA(1 STUFF+3*
>> MCDATA(2 STUFF+4*
>> MCDATA(3 STUFF+5*
PROC START+4~
REC START+4~, START+7*, START+8, START+10, TMP~, TMP+4, TMP+5
ROUTINE STUFF~
SDA SCODE~, SCODE+4
STEMP SCODE~, SCODE+2
SUBENTRY TMP+2~, TMP+6*, TMP+8
TEMP START+4~, START+5*, START+6*, START+7, STUFF+2~
TFILE STUFF~, STUFF+9, STUFF+13
TMP START+8*, START+9, START+10, TMP+2~, TMP+5*, TMP+6*, TMP+7*, TMP+8*, TMP+10, ASTM+1~*
, ASTM+3*, ASTM+4
TYPE SCODE+1~
U START+10, TMP+6, TMP+7, STUFF+10, STUFF+13
VALUE STUFF+2~, STUFF+10*
>> X STUFF+10*, SCODE+6*, ASTM+2*
Y STUFF+11, STUFF+12, SCODE+8, SCODE+9, SCODE+12!

Marked Items

Name Field # of Occurrence
$T(DATA+LOOP^@(1) STUFF+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All