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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RAUTL23

Package: Radiology Nuclear Medicine

Routine: RAUTL23


Information

RAUTL23 ;MANTECH/CLT - LOINC FOR THE HL7 UTILITY ; 28 Oct 2016 11:13 AM

Source Information

Source file <RAUTL23.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 ^DIC  (,FILE)^DIE  $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Radiology Nuclear Medicine 6 RA MAP ONE  RA SEEDING DONE  RALOINC ENTER  RAMAIN4  RAMAIN5  RANPROU2  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN ;MAIN ENTRY POINT
MTCH ;ALREADY MATCHED NOTIFICATION
MTCH1 ;ALTERNATE ENTRY POINT
SEED ;HAS FILE 71.99 BEEN SEEDED
ONE ;EDIT MAPPING ON A SINGLE PROCEDURE
ONEQT ; quit from one
ONECHK(A) ; check if MRPF has same CPT code
ONECK2(A) ; check if other 71 procedure is using MRPF item
LOINC ;ENTER/EDIT LOINC FOR ONE ENTRY IN FILE 71
ACTIVE ;IS THE MRPF ENTRY ACTIVE
CPT(DA,RAX) ;Ask for CPT Code when the 'Procedure Enter/Edit' option

External References

Name Field # of Occurrence
^DIC ONE+4, LOINC+2
^DIE SEED+2, ONE+31, LOINC+3
FILE^DIE CPT+19
$$GET1^DIQ ONE+5, ONE+7, ONE+9, ONE+11, ONE+32
^DIR ONE+26, CPT+5, CPT+9, CPT+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,$C(7),"The MRPF procedure "_RAMATCH_" is already mapped to your procedure ",$P(^RAMIS(71,RAIEN,0),U,1)_"."
  • Line Location: MTCH1+3
Function Call: WRITE
  • Prompt: !," Use the already created procedure.",!
  • Line Location: MTCH1+4
Function Call: WRITE
  • Prompt: !?3,"Either change "_$P(^RAMIS(71,RAIEN,0),U,1)_" or choose another MRPF.",!
  • Line Location: MTCH1+5
Function Call: WRITE
  • Prompt: !!,"This new procedure will be removed."
  • Line Location: MTCH1+6
Function Call: WRITE
  • Prompt: !!?3,"The populating of the MASTER RADIOLOGY PROCEDURE file is called seeding.",!
  • Line Location: SEED+1
Function Call: WRITE
  • Prompt: !!,"This procedure is inactive"
  • Line Location: ONE+7
Function Call: WRITE
  • Prompt: !!,"This procedure is not associated to a CPT Code."
  • Line Location: ONE+9
Function Call: WRITE
  • Prompt: !!,"This procedure is already mapped to "_RAXX_"."
  • Line Location: ONE+11
Function Call: WRITE
  • Prompt: !!,"There are not any MRPF entries associated to CPT Code: "_RACPTMR
  • Line Location: ONE+13
Function Call: WRITE
  • Prompt: !!,"All MRPF Terms for this CPT Code ("_RACPTMR_") are allocated to other Procedures"
  • Line Location: ONE+19
Function Call: WRITE
  • Prompt: !,"Nothing Selected"
  • Line Location: ONE+28
Function Call: WRITE
  • Prompt: !!,"Procedure "_RAPRNM_" is now associated to MRPF "_RAMRPFNM
  • Line Location: ONE+34
Function Call: WRITE
  • Prompt: !!
  • Line Location: ONE+35
Function Call: WRITE
  • Prompt: !?3,"Enter 'Y' to accept the CPT Code, or 'N' to reject the CPT Code or '^' to",!?3,"exit without selecting a CPT Code."
  • Line Location: CPT+14
Function Call: WRITE
  • Prompt: !?5,"Note: If an erroneous CPT Code is accepted it cannot be changed; the",!?5,"procedure must be inactivated."
  • Line Location: CPT+15
Routine Call
  • DIC
  • Line Location:
    • ONE+4
    • LOINC+2
Routine Call
  • DIE
  • Line Location:
    • SEED+2
    • ONE+31
    • LOINC+3
Routine Call
  • DIE
  • Line Location:
    • CPT+19
Routine Call
  • DIR
  • Line Location:
    • ONE+26
    • CPT+5
    • CPT+9
    • CPT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71 - [#71] Classic Fileman Calls,  GET1^DIQ
^RAMRPF(71.98 - [#71.98] Classic Fileman Calls
^RAMRPF(71.99 - [#71.99] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RAMIS(71 - [#71] EN+1, MTCH1+1, MTCH1+3, ONE+16, ONECK2+3
^RAMRPF(71.99 - [#71.99] EN+2, ONE+13, ONE+15, ONE+30, ONECHK+2, ACTIVE+1, ACTIVE+2, ACTIVE+3
^XTMP("RAMAIN4" MTCH+1, MTCH1+7*

Label References

Name Line Occurrences
ONE ONE+7, ONE+9, ONE+11, ONE+13, ONE+19, ONE+28, ONE+35
ONEQT ONE+4, ONE+7, ONE+9, ONE+11, ONE+13, ONE+19, ONE+27, ONE+28, ONE+35

Naked Globals

Name Field # of Occurrence
^(0 ACTIVE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A ONE+1~, ONE+2*, ONE+5*, ONE+7*, ONE+11*, ONE+13*, ONE+15*, ONE+16, ONE+30*, ONE+31
, ONEQT+1!, ONECHK~, ONECHK+1, ONECHK+2, ONECK2~, ONECK2+1, ONECK2+3
B ONE+16*, ONE+17, ONECHK+2~*, ONECHK+3!, ONECHK+4!, ONECK2+2~*, ONECK2+3*, ONECK2+4!, ONECK2+5!
DA SEED+2*, ONE+1~, ONE+5*, ONE+7, ONE+9, ONE+11, ONE+21!, ONE+29~, ONE+31*, ONE+33!
, ONEQT+1!, LOINC+2*, CPT~, CPT+19
DIC ONE+1~, ONE+3*, ONEQT+1!, LOINC+1~, LOINC+2*, LOINC+3
DIC("A" ONE+3*
DIC(0 ONE+3*, LOINC+2*
DIE SEED+2*, ONE+1~, ONE+29~, ONE+31*, ONE+33!, ONEQT+1!, LOINC+1~, LOINC+3*
DIR ONE+1~, ONE+21!, ONEQT+1!, CPT+3~
DIR("?" ONE+25*
DIR("A" ONE+24*, CPT+9*
DIR("B" CPT+9*
DIR("S" ONE+22*
DIR(0 ONE+23*, CPT+5*, CPT+9*
DIROUT CPT+3~
DIRUT ONE+21!, CPT+3~, CPT+4, CPT+5
DR SEED+2*, ONE+1~, ONE+29~, ONE+31*, ONE+33!, ONEQT+1!, LOINC+3*
DT ACTIVE+3
DTOUT CPT+3~
DUOUT CPT+3~
I99 ACTIVE+1~*, ACTIVE+2
I999 ACTIVE+1~, ACTIVE+2*, ACTIVE+3
OK ONE+1~, ONE+15*, ONE+18*, ONE+19, ONEQT+1!
RA99 ACTIVE+1~, ACTIVE+3*, ACTIVE+5
>> RACN0 EN+1
RACPTMR ONE+1~, ONE+2*, ONE+5*, ONE+9*, ONE+13, ONE+15, ONE+19, ONEQT+1!, ONECHK+3
RAFDA CPT+3~
RAFDA(71 CPT+19*
>> RAIEN MTCH1+1*, MTCH1+3
>> RALOINC EN+2*
>> RAMATCH EN+1*, EN+2, MTCH1+2, MTCH1+3
RAMRPFDA ONE+1~, ONE+30*, ONE+31, ONE+32, ONEQT+1!
RAMRPFNM ONE+1~, ONE+32*, ONE+34, ONEQT+1!
RAMTCH MTCH1+4, MTCH1+7!
>> RANEW MTCH1+6
>> RAPLUSY MTCH+1*, MTCH1+1
RAPRDA ONE+1~, ONE+5*, ONE+31, ONEQT+1!
RAPRNM ONE+1~, ONE+5*, ONE+34, ONEQT+1!
>> RAPROIEN ACTIVE+1, ACTIVE+2, ACTIVE+3
RAX CPT~, CPT+8, CPT+9
RAXX ONE+1~, ONE+11*, ONEQT+1!
RAYN CPT+3~*, CPT+4, CPT+16*, CPT+17*, CPT+19
U EN+1, EN+2, MTCH1+3, ACTIVE+3, CPT+8, CPT+19
X ONE+27, LOINC+1~, CPT+3~, CPT+5!, CPT+14, CPT+16, CPT+17
Y MTCH+1, ONE+4, ONE+5, ONE+21!, ONE+27, ONE+28, ONE+30, LOINC+1~, LOINC+2, CPT+3~
, CPT+5!, CPT+8, CPT+9, CPT+19
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All