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

Package: Radiology Nuclear Medicine

Routine: RAORD1


Information

RAORD1 ;HISC/CAH - AISC/RMO-Request An Exam ; 20 Apr 2011 6:57 PM

Source Information

Source file <RAORD1.m>

Call Graph

Call Graph Total: 25

Package Total Call Graph
Radiology Nuclear Medicine 14 ($$PROV,ASK,FILEDX)^RABWORD  (ADDEXAM,PREV)^RABWORD2  EXAM^RADEM1  KILL^RAORD  $$PREG^RAORD1A  ^RAORDQ  ($$ORVR,OERR,SETORD)^RAORDU  DISP^RAORDU1  
(DISP,DISP1,HELP,LOOKUP)^RAPRI  $$ITYPE^RASITE  $$DESDT^RAUTL12  ($$LK,OENO,ULK)^RAUTL19  CONTRAST^RAUTL2  CH^RAUTL5  
VA Fileman 6 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIK  $$EXTERNAL^DILFD  
Kernel 2 $$FMTE^XLFDT  $$PATCH^XPDUTL  
Registration 2 (ELIG,IN5)^VADPT  $$SITE^VASITE  
Adverse Reaction Tracking 1 $$ORCHK^GMRAOR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RA ORDEREXAM  RAORR  RAREG1  

Entry Points

Name Comments DBIA/ICR reference
Q ; Kill, unlock if locked, and quit
MODS ;RAPRI= Procedure IEN, RAIMAG=Imaging Type for the procedure.
PAT
ENADD ;OE/RR Entry Point for the ACTION Option
CREATE
ALLERGY ; If patient has had a previous contrast media allergic reaction
; check procedure RAPRI for specific contrast media associations
; (new with RA*5*45)
ADDORD
CREATE1 ;ask for the 'Date Desired' req'd P75
ADDORD1
SAVE ; Save original value of RAMDV before it is altered in the ENADD sub-
; routine. This code will also reset RAMDV to the sign-on value.
PL ;Ask for the patient location (REQ. LOCATION file: 75.1, field: #22)
BAQUES ;*Billing Awareness Project
; Ask Ordering ICD-9 Diagnosis and Related SC/EI/MST/HNC questions.

External References

Name Field # of Occurrence
NOW^%DTC BAQUES+2
^DIC PAT, PL+15, PL+21, MODS+4
FILE^DICN BAQUES+6
^DIE BAQUES+14
^DIK BAQUES+17
$$EXTERNAL^DILFD ENADD+15
$$ORCHK^GMRAOR ALLERGY+3
$$PROV^RABWORD PL+20
ASK^RABWORD BAQUES+3, BAQUES+13
FILEDX^RABWORD BAQUES+16
ADDEXAM^RABWORD2 ADDORD+6
PREV^RABWORD2 ADDORD+5
EXAM^RADEM1 ENADD+6
KILL^RAORD Q+1
$$PREG^RAORD1A CREATE1+6
^RAORDQ BAQUES+16
$$ORVR^RAORDU Q+3, BAQUES+26
OERR^RAORDU BAQUES+16
SETORD^RAORDU BAQUES+16
DISP^RAORDU1 BAQUES+4
DISP^RAPRI ADDORD+7
DISP1^RAPRI ADDORD1+4, ADDORD1+7
HELP^RAPRI ADDORD1+4
LOOKUP^RAPRI ADDORD1+6
$$ITYPE^RASITE MODS+2
$$DESDT^RAUTL12 CREATE1+1
$$LK^RAUTL19 PAT+2
OENO^RAUTL19 BAQUES+28
ULK^RAUTL19 Q+4
CONTRAST^RAUTL2 ALLERGY+6, ALLERGY+9
CH^RAUTL5 CREATE1+8
ELIG^VADPT ADDORD+3
IN5^VADPT PAT+4, ENADD+6
$$SITE^VASITE ENADD+9
$$FMTE^XLFDT CREATE1+2
$$PATCH^XPDUTL PL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !,"Select Procedure",$S(RACNT:" (1-"_RACNT_") ",1:" "),"or enter '?' for help: "
  • Line Location: ADDORD1+0
Function Call: WRITE
  • Prompt: !!!,"Processing procedure: ",$S(+X&(+X'>RACNT):$P($G(RAPRC(X)),"^"),$E(X)'="`":X,1:"")
  • Line Location: ADDORD1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: BAQUES+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: BAQUES+13
Function Call: WRITE
  • Prompt: !?3,$C(7),"Request not complete. Must Delete..."
  • Line Location: BAQUES+17
Function Call: WRITE
  • Prompt: "...deletion complete!"
  • Line Location: BAQUES+17
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: MODS+4
Routine Call
  • DIE
  • Line Location:
    • BAQUES+14
Routine Call
  • DIC
  • Line Location:
    • PAT
    • PL+15
    • PL+21
    • MODS+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
^RADPT - [#70] EXTERNAL^DILFD
^RAMIS(71.2 - [#71.2] Classic Fileman Calls
^RAO(75.1 - [#75.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(71.2 MODS+2
^DPT - [#2] ENADD+6
^RA(79 - [#79] ENADD+10, ENADD+11, BAQUES+8
^RA(79.1 - [#79.1] BAQUES+24
^RADPT - [#70] ENADD+14
^RAMIS(71 - [#71] ALLERGY+4, ALLERGY+9
^RAO(75.1 - [#75.1] ADDORD+4, BAQUES+16, BAQUES+18, BAQUES+22
^SC - [#44] ENADD+8
^TMP("XQORS" ENADD+22
^TMP($J ENADD+21!, ENADD+22!
^VA(200 - [#200] PL+20

Label References

Name Line Occurrences
ADDORD RAORD1+21, PL+21
ADDORD1 ADDORD1+4, ADDORD1+7
ALLERGY ADDORD, ADDORD1+6
CREATE ADDORD1+6
CREATE1 ADDORD
MODS CREATE, MODS+4, MODS+5
PAT PAT+2
Q RAORD1+23, PL+15, PL+21, ENADD+2, ADDORD, ADDORD+7, ADDORD1+2, ADDORD1+4
SAVE ENADD+7, Q+2

Naked Globals

Name Field # of Occurrence
^( BAQUES+8, ALLERGY+9
^(0 ENADD+8, BAQUES+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BAQUES+2
C Q+9!
>> DA BAQUES+9*, BAQUES+17*
DD PL+21!
DE BAQUES+15!
>> DFN PAT+3*, ENADD+2*
DI Q+9!
DIC PAT*!, PL+3*, PL+15!, PL+20*, PL+21!, BAQUES+5*, BAQUES+6!, MODS+2*, MODS+4!
DIC("A" PL+2*, PL+16*, MODS+2*
DIC("B" PL+2*, PL+20*
DIC("S" PL+13*, PL+18*, MODS+3*
DIC(0 PAT*, PL+3*, PL+20*, BAQUES+5*, MODS+2*
DIE BAQUES+9*, BAQUES+15!
DIE("NO^" BAQUES+9*, BAQUES+15!
DIG Q+9!
DIH Q+9!
>> DIK BAQUES+17*
DISYS Q+9!
DIU Q+9!
DIW Q+9!
DIWF Q+9!
DIWL Q+9!
DIWR Q+9!
DIWT Q+9!
DLAYGO BAQUES+5*, BAQUES+6!
DN Q+9!
DO PL+21!
DQ BAQUES+15!
DR BAQUES+10*, BAQUES+13, BAQUES+15!
DT ENADD+9, CREATE1+6
DTIME ADDORD1+1
>> DTOUT MODS+4
>> DUOUT MODS+4
DUZ PL+20
I Q+9!, ALLERGY+8*, ALLERGY+9*, ALLERGY+10!
ORCHART Q+9!
ORCOST ENADD+1!
ORIFN Q+7!
ORIT Q+7!
ORL ENADD+2, Q+7!
ORNP ENADD+2, Q+7!
ORNS Q+7!
ORPCL Q+7!
ORPK Q+7!
ORPURG ENADD+1!, Q+7!
ORPV Q+7!
ORSTOP ENADD+1!
ORSTS Q+7!
ORTO ENADD+1!
ORTX Q+7!
ORVP ENADD+2, Q+7!
POP Q+9!
RABWDX RAORD1+18!
RACAT ENADD+12, ENADD+13*, ENADD+14*, ENADD+15*, ENADD+16*, Q+5!
>> RACNT ADDORD1, ADDORD1+6
RACOPYOR RAORD1+20~
RACPRS27 PL+1~*, PL+13
>> RACT CREATE*, MODS+5*
RADFN PAT+3*, ENADD+2*, ENADD+6, ENADD+14, ADDORD+4, Q+3, Q+4, Q+5!, CREATE1+6, BAQUES+3
, BAQUES+5, BAQUES+13, BAQUES+16, ALLERGY+3
>> RADIV ENADD+9*, ENADD+10*, ENADD+11, BAQUES+8
RADR1 ADDORD, BAQUES+4, BAQUES+10, BAQUES+15!
RADR2 BAQUES+10, BAQUES+15!
RADTM BAQUES+2~*, BAQUES+3, BAQUES+13
>> RAEXMUL ADDORD1+5*, BAQUES+10
RAFIN BAQUES+16, BAQUES+17, BAQUES+18, BAQUES+19!
>> RAFIN1 BAQUES+10
>> RAFOERR ENADD+2*
RAGMTS RAORD1+20~
RAHSMULT ADDORD1+5!, Q+8!
RAIMAG Q+8!, MODS+2*, MODS+4!
>> RAIMGTYI ADDORD+7
>> RAJ ADDORD1+6*
>> RAL0 ENADD+8*, ENADD+9
>> RALIFN RAORD1+21, PL+15*, ENADD+2*, ENADD+8
RALOC BAQUES+21~, BAQUES+22*, BAQUES+23, BAQUES+24
>> RALOCFLG BAQUES+8*
RAMDIV Q+6!
RAMDV ENADD+11*, Q+6!, SAVE+3, SAVE+4, SAVE+5*
RAMDVZZ Q+9!, SAVE+3, SAVE+4*, SAVE+5
RAMLC Q+6!
>> RAMOD( MODS+5*
RANME ENADD+6*, Q+5!
>> RANUM BAQUES+7*, BAQUES+17
>> RAOIFN BAQUES+6*, BAQUES+7, BAQUES+9, BAQUES+16, BAQUES+17, BAQUES+18, BAQUES+22, BAQUES+28
RAORD0 BAQUES+16*!, BAQUES+21~, BAQUES+22*, BAQUES+24
>> RAORDS( BAQUES+7*, BAQUES+17!
>> RAOUT ADDORD1+6, ADDORD1+7, CREATE, CREATE1+1*, CREATE1+6, CREATE1+8, BAQUES+4, MODS+4*
>> RAPIFN RAORD1+21, PL+21*, ENADD+2*
RAPKG RAORD1+20*, ENADD+2, ENADD+6, ENADD+21, ENADD+22, Q+6, Q+7!, BAQUES+16, SAVE+2
RAPOP Q+8!
>> RAPRC( ADDORD1+6
>> RAPREG CREATE1+6*
RAPRI ADDORD1+6!, CREATE1+1, MODS+2, ALLERGY+4, ALLERGY+6, ALLERGY+9
RAPRI(0 ALLERGY+4*, ALLERGY+5, ALLERGY+12!
RAPTLKUP RAORD1+20~, RAORD1+23, PAT+1*, PAT+3*
RAPTLOCK RAORD1+23~, PAT+2*, Q+3
RAREASK ADDORD1+7!
RAREAST Q+8!
>> RAREGFLG RAORD1+23, PL+15, ENADD+6, Q+5, BAQUES+7, BAQUES+17
RAREQLOC Q+8!
>> RARX ADDORD1+1*, ADDORD1+2*, ADDORD1+3*, ADDORD1+4, ADDORD1+6
RASCI Q+9!
RASERIES Q+9!
>> RASEX ENADD+6*
>> RASKPREG CREATE1+6*
>> RASTOP ADDORD1+6*
>> RASX ADDORD1+3, ADDORD1+6*
>> RAVSTFLG RAORD1+21, RAORD1+23, PL+21, ADDORD+5, Q+5, BAQUES+7, BAQUES+17
RAWARD RAORD1+23!, PAT+4*, PL+2, PL+13, PL+15!, ENADD+6*, ENADD+13, Q+5!
>> RAWHEN CREATE1+1*, CREATE1+2*
U ENADD+15, ALLERGY+5
VA200 PAT+3*, PL+21!, ENADD+6*
>> VAEL ADDORD+3
VAERR PL+21!
VAIP PL+21!
VAIP(1 PAT+4, ENADD+6
VAIP(5 PAT+4, ENADD+6
>> X ADDORD1+6*, BAQUES+5*, MODS+4
>> XQORS ENADD+22
Y PAT+1, PAT+2, PAT+3, PL+15, PL+20*, PL+21, ENADD+14~*, ENADD+15, ADDORD1+4, BAQUES+6
, MODS+4, MODS+5
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