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 |  Local Variables |  All
Print Page as PDF
Routine: MAGDHOWE

Package: Imaging

Routine: MAGDHOWE


Information

MAGDHOWE ;WOIFO/PMK - Clincial Specialty MWL & HL7 Editor ; 01 Apr 2013 12:39 PM

Source Information

Source file <MAGDHOWE.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 UPDATE^DIE  ^DIK  ($$GET1,GETS)^DIQ  ^DIR  
Imaging 3 ($$CHOOSE,$$YESNO)^MAGDAIRF  $$IREQUEST^MAGDHOW1  (HEADING,WORKLIST)^MAGDTRDX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Imaging 1 MAGD EDIT CLIN SPEC DICOM/HL7  

Entry Points

Name Comments DBIA/ICR reference
PROC(PROCEDURE,SERVICE) ;
DISPLAY ;
LOCATION(LOCATION) ;
UPDATE(IEN) ; delete or update the consult or procedure
CPT(CPT) ;
HL7SUBL(HL7SUBLIST) ;
LOOKUP(ITEM,NAME,FILE,FIELDS,REQUIRED) ; lookup entry
GETVALUE(FILE,IEN,FIELDS) ;
CHOICE ; option driver
ISPECIDX(ISPECIDX) ;
CLINIC(CLINIC) ;
UPDATE1 ; update a the consult or procedure
ENTRY ; entry point from menu
IPROCIDX(IPROCIDX) ;
CONSULT(SERVICE,PROCEDURE) ;
P(X) ;

External References

Name Field # of Occurrence
UPDATE^DIE CHOICE+43, CHOICE+51, UPDATE1+25, UPDATE1+37
^DIK UPDATE+23, UPDATE1+32
$$GET1^DIQ UPDATE+4, UPDATE+5, CPT+3, CPT+8, CPT+9, GETVALUE+4
GETS^DIQ PROC+4, CPT+5, DISPLAY+20
^DIR LOOKUP+16
$$CHOOSE^MAGDAIRF ENTRY+14, PROC+16
$$YESNO^MAGDAIRF CHOICE+31, UPDATE+16, UPDATE+19, UPDATE1+15, LOOKUP+7
$$IREQUEST^MAGDHOW1 CHOICE+9
HEADING^MAGDTRDX ENTRY+7
WORKLIST^MAGDTRDX CHOICE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENTRY+7
Function Call: WRITE
  • Prompt: !!,"Add/Edit a Consult or a Procedure?"
  • Line Location: ENTRY+8
Function Call: WRITE
  • Prompt: !,"-- End of File --",!!
  • Line Location: CHOICE+1
Function Call: WRITE
  • Prompt: !!,"An entry for the "
  • Line Location: CHOICE+11
Function Call: WRITE
  • Prompt: $P(SERVICE,"^",2)," consult"
  • Line Location: CHOICE+12
Function Call: WRITE
  • Prompt: $P(PROCEDURE,"^",2)," procedure"
  • Line Location: CHOICE+14
Function Call: WRITE
  • Prompt: !,"for the ",$P(SERVICE,"^",2)," service"
  • Line Location: CHOICE+15
Function Call: WRITE
  • Prompt: !,"is already on file."
  • Line Location: CHOICE+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHOICE+30
Function Call: WRITE
  • Prompt: " -- entry not created"
  • Line Location: CHOICE+32
Function Call: WRITE
  • Prompt: !!,"*** Entry NOT Created ***"
  • Line Location: CHOICE+44
Function Call: WRITE
  • Prompt: " -- entry created"
  • Line Location: CHOICE+45
Function Call: WRITE
  • Prompt: " -- entry not changed"
  • Line Location: UPDATE+17
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDATE+18
Function Call: WRITE
  • Prompt: " -- entry deleted"
  • Line Location: UPDATE+24
Function Call: WRITE
  • Prompt: " -- entry not deleted"
  • Line Location: UPDATE+26
Function Call: WRITE
  • Prompt: !!,"No changes"
  • Line Location: UPDATE1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDATE1+14
Function Call: WRITE
  • Prompt: " -- entry not updated"
  • Line Location: UPDATE1+16
Function Call: WRITE
  • Prompt: !!,"*** Entry NOT Updated ***"
  • Line Location: UPDATE1+26
Function Call: WRITE
  • Prompt: !!,"Entry Updated"
  • Line Location: UPDATE1+27
Function Call: WRITE
  • Prompt: !,"Request Service: ",$P(OPTION(I),":",2)
  • Line Location: PROC+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+3
Function Call: WRITE
  • Prompt: !,"Clinic: ",$$P(CLINIC(I))," ",$TR($J("",40-$X)," ","-")," Remove this clinic? n// "
  • Line Location: CLINIC+7
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: CLINIC+8
Function Call: WRITE
  • Prompt: X
  • Line Location: CLINIC+8
Function Call: WRITE
  • Prompt: !,"Enter YES to keep the clinic or NO to remove it."
  • Line Location: CLINIC+9
Function Call: WRITE
  • Prompt: " -- removed"
  • Line Location: CLINIC+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+15
Function Call: WRITE
  • Prompt: " -- already there"
  • Line Location: CLINIC+20
Function Call: WRITE
  • Prompt: !!,NAME,": ",$$P(ITEM)
  • Line Location: LOOKUP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !," Request Service = ",$$P(SERVICE)
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !," Procedure = ",$$P(PROCEDURE)
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !," Specialty Index = ",$$P(ISPECIDX)
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !," Procedure Index = ",$$P(IPROCIDX)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !," Worklist = ",$P(ISPECIDX,"^",3)
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: "/",$P(IPROCIDX,"^",3)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: " (",$P(ISPECIDX,"^",2)
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: "/",$P(IPROCIDX,"^",2)
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: ")"
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: !," Acquired at = ",$$P(LOCATION)
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: !," CPT Code = ",$$P(CPT)
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: !," HL7 Subscriber List = ",$$P(HL7SUBLIST)
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: !," Clinic = ",$$P(CLINIC(I))
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+18
Function Call: WRITE
  • Prompt: !,"Associated Stop Code = ",X(123.5688,I,.01,"E")
  • Line Location: DISPLAY+23
Function Call: WRITE
  • Prompt: !,"Warning: No Associated Stop Codes are defined for this Request Service."
  • Line Location: DISPLAY+27
Function Call: WRITE
  • Prompt: !," Use CONSULT ASSOCIATED STOP CODE menu option to define them."
  • Line Location: DISPLAY+28
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+29
Routine Call
  • DIE
  • Line Location:
    • CHOICE+43
    • CHOICE+51
    • UPDATE1+25
    • UPDATE1+37
Routine Call
  • DIR
  • Line Location:
    • LOOKUP+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123.3 - [#123.3] GET1^DIQ,  GETS^DIQ
^GMR(123.5 - [#123.5] GET1^DIQ,  GETS^DIQ
^MAG(2006.5831 - [#2006.5831] Classic Fileman Calls
^MCAR(697.2 - [#697.2] GETS^DIQ
^ICPT - [#81] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAG(2006.5831 - [#2006.5831] UPDATE+2, UPDATE+11, UPDATE+12, UPDATE1+30

Label References

Name Line Occurrences
$$CLINIC CHOICE+26, UPDATE1+8
$$CONSULT CHOICE+4
$$CPT CHOICE+24, UPDATE1+6
$$GETVALUE UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+12, LOOKUP+20
$$HL7SUBL CHOICE+25, UPDATE1+7
$$IPROCIDX CHOICE+22, UPDATE1+4
$$ISPECIDX CHOICE+21, UPDATE1+3
$$LOCATION CHOICE+23, UPDATE1+5
$$LOOKUP CONSULT+2, PROC+2, ISPECIDX+1, IPROCIDX+1, LOCATION+1, HL7SUBL+1, CPT+12, CLINIC+19
$$P CLINIC+7, LOOKUP+6, DISPLAY+3, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+12, DISPLAY+13, DISPLAY+14, DISPLAY+16
$$PROC CHOICE+7
CHOICE ENTRY+17
DISPLAY CHOICE+28, UPDATE+14, UPDATE1+12
ENTRY ENTRY+17
UPDATE CHOICE+18
UPDATE1 UPDATE+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A PROC+1~, CPT+2~, LOOKUP+1~
A( PROC+5, PROC+6, PROC+7, CPT+6, CPT+7
CHANGE ENTRY+1~, ENTRY+4*, UPDATE1+10, CLINIC+10*, CLINIC+21*, LOOKUP+9*
CHOICE ENTRY+1~, ENTRY+14, ENTRY+16, CHOICE+1, CHOICE+3, CHOICE+31, CHOICE+32, UPDATE+16, UPDATE+17, UPDATE+19
, UPDATE+20, UPDATE1+15, UPDATE1+16, PROC+1~, PROC+16, PROC+17, LOOKUP+7, LOOKUP+8
CLINIC ENTRY+1~, CHOICE+26, UPDATE+1~, UPDATE1+8, CLINIC~, CLINIC+4, CLINIC+23!
CLINIC( CHOICE+48, CHOICE+50, UPDATE+12*, UPDATE1+34, UPDATE1+36, CLINIC+5, CLINIC+7, CLINIC+11, CLINIC+24*, DISPLAY+15
, DISPLAY+16
CPT ENTRY+1~, CHOICE+24, CHOICE+41, UPDATE+1~, UPDATE+9*, UPDATE1+6, UPDATE1+23, CPT~, CPT+1, CPT+7*
, CPT+8*, CPT+9*, CPT+12, DISPLAY+13
DA UPDATE+21~, UPDATE+22*, UPDATE1+31~, UPDATE1+32*
DA(1 UPDATE1+32*
DIERR ENTRY+3~, CHOICE+44, CHOICE+49~, UPDATE1+1~, UPDATE1+26, UPDATE1+35~
DIK UPDATE+21~, UPDATE+22*, UPDATE1+31~, UPDATE1+32*
DIR LOOKUP+1~
DIR("A" LOOKUP+12*
DIR("B" LOOKUP+13*!
DIR(0 LOOKUP+14*, LOOKUP+15*
DONE CLINIC+1~, CLINIC+6*, CLINIC+12*, LOOKUP+1~, LOOKUP+3*, LOOKUP+5, LOOKUP+8*
DTIME CLINIC+8
FIELDS LOOKUP~, LOOKUP+20, GETVALUE~, GETVALUE+3, GETVALUE+4
FILE LOOKUP~, LOOKUP+15, LOOKUP+20, GETVALUE~, GETVALUE+4
HL7SUBLIST ENTRY+1~, CHOICE+25, CHOICE+42, UPDATE+1~, UPDATE+10*, UPDATE1+7, UPDATE1+24, HL7SUBL~, HL7SUBL+1, DISPLAY+14
I CHOICE+48*, CHOICE+50, UPDATE+1~, UPDATE+11*, UPDATE+12, UPDATE1+30*, UPDATE1+32, UPDATE1+34*, UPDATE1+36, PROC+1~
, PROC+5*, PROC+6, PROC+7, PROC+9*, PROC+10, PROC+11, PROC+12, CLINIC+1~, CLINIC+5*, CLINIC+7
, CLINIC+11, CLINIC+17*, CLINIC+19, CLINIC+20*, CLINIC+24*, LOOKUP+1~, GETVALUE+1~, GETVALUE+3*, GETVALUE+4, DISPLAY+1~
, DISPLAY+15*, DISPLAY+16, DISPLAY+22*, DISPLAY+23
IEN ENTRY+1~, CHOICE+9*, CHOICE+10, CHOICE+18, CHOICE+46*, CHOICE+50, UPDATE~, UPDATE+2, UPDATE+11, UPDATE+12
, UPDATE+22, UPDATE1+19, UPDATE1+30, UPDATE1+32, UPDATE1+36, GETVALUE~, GETVALUE+2, GETVALUE+4
IENS ENTRY+1~, ENTRY+3~, CHOICE+35*, CHOICE+36, CHOICE+37, CHOICE+38, CHOICE+39, CHOICE+40, CHOICE+41, CHOICE+42
, UPDATE1+1~, UPDATE1+19*, UPDATE1+20, UPDATE1+21, UPDATE1+22, UPDATE1+23, UPDATE1+24
IPROCIDX ENTRY+1~, CHOICE+22, CHOICE+39, UPDATE+1~, UPDATE+7*, UPDATE1+4, UPDATE1+21, IPROCIDX~, IPROCIDX+1, DISPLAY+6
, DISPLAY+8, DISPLAY+10
ISPECIDX ENTRY+1~, CHOICE+21, CHOICE+38, UPDATE+1~, UPDATE+6*, UPDATE1+3, UPDATE1+20, ISPECIDX~, ISPECIDX+1, DISPLAY+5
, DISPLAY+7, DISPLAY+9
ITEM LOOKUP~, LOOKUP+5, LOOKUP+6, LOOKUP+13, LOOKUP+19*, LOOKUP+20*
J PROC+1~, PROC+5*, PROC+6, PROC+7, CLINIC+1~, CLINIC+2*, CLINIC+11*, CLINIC+17, CLINIC+24*
LOCATION ENTRY+1~, CHOICE+23, CHOICE+40, UPDATE+1~, UPDATE+8*, UPDATE1+5, UPDATE1+22, LOCATION~, LOCATION+1, DISPLAY+12
MAGERR ENTRY+3~, CHOICE+49~, UPDATE1+1~, UPDATE1+35~
MAGFDA ENTRY+3~, CHOICE+49~, UPDATE1+1~, UPDATE1+35~
MAGFDA( CHOICE+36*, CHOICE+37*, CHOICE+38*, CHOICE+39*, CHOICE+40*, CHOICE+41*, CHOICE+42*, CHOICE+50*, UPDATE1+20*, UPDATE1+21*
, UPDATE1+22*, UPDATE1+23*, UPDATE1+24*, UPDATE1+36*
MAGIENS ENTRY+3~, CHOICE+49~, UPDATE1+1~, UPDATE1+35~
MAGIENS(1 CHOICE+46
MCAR6972 CPT+2~, CPT+3*, CPT+4, CPT+5
MSG ENTRY+2~, ENTRY+7
MSG(1 ENTRY+5*
MSG(2 ENTRY+6*
MSG(3 ENTRY+5*
NAME LOOKUP~, LOOKUP+6, LOOKUP+12
NEWCLINIC CLINIC+18~, CLINIC+19, CLINIC+20, CLINIC+21
OPTION ENTRY+2~, ENTRY+14, PROC+1~, PROC+16
OPTION( PROC+6*, PROC+10, PROC+11, PROC+12, PROC+17
OPTION("" PROC+9
OPTION(1 ENTRY+9*
OPTION(2 ENTRY+10*
OPTION(3 ENTRY+11*
OPTION(4 ENTRY+12*
OPTIONIEN PROC+1~
OPTIONIEN( PROC+7*, PROC+11, PROC+17
PROCEDURE ENTRY+2~, CHOICE+4, CHOICE+7, CHOICE+9, CHOICE+12, CHOICE+14, CHOICE+37, UPDATE+1~, UPDATE+3*, UPDATE+5*
, CONSULT~, CONSULT+1*, PROC~, PROC+2, PROC+4, CPT+1, CPT+3, DISPLAY+4
PROMPT ENTRY+2~, ENTRY+13*, ENTRY+14, PROC+15*, PROC+16
REQUIRED LOOKUP~, LOOKUP+14
SERVICE ENTRY+2~, CHOICE+4, CHOICE+7, CHOICE+9, CHOICE+12, CHOICE+15, CHOICE+36, UPDATE+1~, UPDATE+3*, UPDATE+4*
, CONSULT~, CONSULT+2, PROC~, PROC+11*, PROC+17*, DISPLAY+3, DISPLAY+20
TMP CLINIC+1~
TMP( CLINIC+11*, CLINIC+20, CLINIC+21*, CLINIC+24
VALUE GETVALUE+1~, GETVALUE+2*, GETVALUE+4*, GETVALUE+6
X ENTRY+2~, ENTRY+14*, CHOICE+3, CHOICE+4*, CHOICE+6, CHOICE+7*, CHOICE+21*, CHOICE+22*, CHOICE+23*, CHOICE+24*
, CHOICE+25*, CHOICE+26*, CHOICE+31*, UPDATE+1~, UPDATE+2*, UPDATE+3, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+9
, UPDATE+10, UPDATE+16*, UPDATE+19*, UPDATE1+1~, UPDATE1+3*, UPDATE1+4*, UPDATE1+5*, UPDATE1+6*, UPDATE1+7*, UPDATE1+8*
, UPDATE1+15*, PROC+1~, PROC+2*, PROC+3, PROC+16*, PROC+19, CLINIC+1~, CLINIC+8*, CLINIC+9, CLINIC+10
, CLINIC+17, CLINIC+19*, LOOKUP+1~, LOOKUP+7*, DISPLAY+1~, P~, P+2, P+3
X( DISPLAY+21, DISPLAY+22, DISPLAY+23
Y LOOKUP+1~, LOOKUP+17, LOOKUP+18, LOOKUP+19, LOOKUP+20
Z P+1~, P+2*, P+3*, P+4
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 |  Local Variables |  All