Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: MAGDHOWE

Package: Imaging

Routine: MAGDHOWE


Information

MAGDHOWE ;WOIFO/PMK/JSJ - Clinical Specialty MWL & HL7 Editor ; Apr 27, 2022@11:43:08

Source Information

Source file <MAGDHOWE.m>

Entry Points

Name Comments DBIA/ICR reference
ENTRY ; entry point from menu
CHOICE ; option driver
UPDATE(IEN) ; delete or update the consult or procedure
UPDATE1 ; update a the consult or procedure
CONSULT(SERVICE,PROCEDURE) ;
PROC(PROCEDURE,SERVICE) ;
ISPECIDX(ISPECIDX) ;
IPROCIDX(IPROCIDX) ;
LOCATION(LOCATION) ;
HL7SUBL(HL7SUBLIST) ;
QRSCP(QRSCP) ;
CPT(CPT) ;
CLINIC(CLINIC) ;
LOOKUP(ITEM,NAME,FILE,FIELDS,REQUIRED) ; lookup entry
GETVALUE(FILE,IEN,FIELDS) ;
BLDPXLST ;build alpha sorted procedure list filtered by specialty ;P278 added sub
DISPLAY ; Display data
P(X) ;
YESNO(PROMPT,DEFAULT,CHOICE) ; generic YES/NO question driver
CHOOSE(PROMPT,DEFAULT,CHOICE,OPTION) ; generic question driver

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+31
Function Call: WRITE
  • Prompt: " -- entry not created"
  • Line Location: CHOICE+33
Function Call: WRITE
  • Prompt: !!,"*** Entry NOT Created ***"
  • Line Location: CHOICE+46
Function Call: WRITE
  • Prompt: " -- entry created"
  • Line Location: CHOICE+47
Function Call: WRITE
  • Prompt: " -- entry not changed"
  • Line Location: UPDATE+18
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDATE+19
Function Call: WRITE
  • Prompt: " -- entry deleted"
  • Line Location: UPDATE+25
Function Call: WRITE
  • Prompt: " -- entry not deleted"
  • Line Location: UPDATE+27
Function Call: WRITE
  • Prompt: !!,"No changes"
  • Line Location: UPDATE1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDATE1+15
Function Call: WRITE
  • Prompt: " -- entry not updated"
  • Line Location: UPDATE1+17
Function Call: WRITE
  • Prompt: !!,"*** Entry NOT Updated ***"
  • Line Location: UPDATE1+28
Function Call: WRITE
  • Prompt: !!,"Entry Updated"
  • Line Location: UPDATE1+29
Function Call: WRITE
  • Prompt: !,"No RELATED SERVICE on file"
  • Line Location: PROC+11
Function Call: WRITE
  • Prompt: !,"Request Service: ",$P(OPTION(I),":",2)
  • Line Location: PROC+14
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
  • Variable: X
  • Timeout: DTIME
  • Line Location: CLINIC+8
Function Call: WRITE
  • Prompt: X
  • Line Location: CLINIC+10
Function Call: WRITE
  • Prompt: !,"Enter YES to keep the clinic or NO to remove it."
  • Line Location: CLINIC+11
Function Call: WRITE
  • Prompt: " -- removed"
  • Line Location: CLINIC+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+17
Function Call: WRITE
  • Prompt: " -- already there"
  • Line Location: CLINIC+22
Function Call: WRITE
  • Prompt: !!,NAME,": ",$$P(ITEM)
  • Line Location: LOOKUP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOKUP+24
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: !,"Query/Retrieve Provider = ",$$P(QRSCP)
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: !," Clinic = ",$$P(CLINIC(I))
  • Line Location: DISPLAY+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+19
Function Call: WRITE
  • Prompt: !,"Associated Stop Code = ",X(123.5688,I,.01,"E")
  • Line Location: DISPLAY+24
Function Call: WRITE
  • Prompt: !,"Warning: No Associated Stop Codes are defined for this Request Service."
  • Line Location: DISPLAY+28
Function Call: WRITE
  • Prompt: !," Use CONSULT ASSOCIATED STOP CODE menu option to define them."
  • Line Location: DISPLAY+29
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+30

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call