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

Package: Automated Medical Information Exchange

Routine: DVBCROPN


Information

DVBCROPN ;ALB/GTS-557/THM-REOPEN REQUEST/SELECTED EXAMS ; 9/22/91 4:54 PM

Source Information

Source file <DVBCROPN.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Automated Medical Information Exchange 6 WR^DVBAUTL4  STATUS1^DVBCROP1  (HDR,KILL)^DVBCUTIL  ($$EXSRH,CONTMES)^DVBCUTL4  $$RSTAT^DVBCUTL8  EN1^DVBCXFRE  
VA FileMan 3 ^DIC  YN^DICN  ^DIE  
Kernel 1 HOME^%ZIS  
MailMan 1 ^XMB  

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

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBA C REOPEN REQUEST/EXAMS  

Entry Points

Name Comments DBIA/ICR reference
LOOK1
EN
LOOK
ROPN
DATA
UPDATE
EXIT
KILL
HDR
STATCHK
ALL
ALL1
NOTIFY
BULL
XMB

External References

Name Field # of Occurrence
HOME^%ZIS EN
^DIC LOOK+1
YN^DICN ROPN
^DIE DATA+10, ALL1+2
WR^DVBAUTL4 LOOK+11
STATUS1^DVBCROP1 UPDATE, ALL+1
HDR^DVBCUTIL DATA, HDR
KILL^DVBCUTIL EXIT
$$EXSRH^DVBCUTL4 DATA+2
CONTMES^DVBCUTL4 LOOK+12
$$RSTAT^DVBCUTL8 LOOK+3, LOOK+17, NOTIFY
EN1^DVBCXFRE XMB+1
^XMB XMB

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"Your user number (DUZ) is invalid !",!!
  • Line Location: DVBCROPN+2
Function Call: WRITE
  • Prompt: @FF,!?(IOM-$L(HD)\2),HD,!?(IOM-$L(HD2)\2),HD2,!!
  • Line Location: LOOK+0
Function Call: WRITE
  • Prompt: *7," ???"
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !!,*7,"Status prohibits activity except by supervisors.",!!
  • Line Location: LOOK+4
Function Call: WRITE
  • Prompt: !!,"Do you want to reopen the ENTIRE request"
  • Line Location: ROPN+0
Function Call: WRITE
  • Prompt: !,"Enter Y to reopen the ENTIRE request or N to reopen only selected exams.",!!
  • Line Location: ROPN+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DATA+1
Function Call: WRITE
  • Prompt: *7," ???"
  • Line Location: DATA+3
Function Call: WRITE
  • Prompt: *7,!!,"Exam name not found in file 396.6 !",!!
  • Line Location: DATA+5
Function Call: WRITE
  • Prompt: *7,!!,"Already open!",!!
  • Line Location: DATA+6
Function Call: WRITE
  • Prompt: " .. reopened"
  • Line Location: DATA+10
Function Call: WRITE
  • Prompt: *7," reopen error !"
  • Line Location: DATA+11
Function Call: WRITE
  • Prompt: @FF
  • Line Location: UPDATE+0
Function Call: WRITE
  • Prompt: !!,*7,"There are no cancelled or completed exams remaining on this request.",!!
  • Line Location: STATCHK+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: @FF
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>50
  • Line Location: ALL1+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(EXMNM)>25&($X>45)
  • Line Location: ALL1+2
Function Call: WRITE
  • Prompt: EXMNM," reopened, "
  • Line Location: ALL1+2
Function Call: WRITE
  • Prompt: *7,!,"Reopen error on ",EXMNM," exam !",!
  • Line Location: ALL1+3
Function Call: WRITE
  • Prompt: !!,"Entire exam is now REOPENED.",!!
  • Line Location: NOTIFY+0
Function Call: WRITE
  • Prompt: *7,!!,"Reopen error !",!!
  • Line Location: NOTIFY+1
Function Call: WRITE
  • Prompt: !!,"Sending a bulletin to the 2507 REOPENED mail group ...",!!
  • Line Location: BULL+0
Function Call: WRITE
  • Prompt: !!,*7,"I am sending updated information to "_DOMAIN,!,"since this was transferred in.",!!
  • Line Location: BULL+7
Routine Call
  • %ZIS
  • Line Location:
    • EN
Routine Call
  • DIC
  • Line Location:
    • LOOK+1
Routine Call
  • DIE
  • Line Location:
    • DATA+10
    • ALL1+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396.3 - [#396.3] Classic Fileman Calls
^DVB(396.4 - [#396.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BULL+1, BULL+2
^DIC(4.2 - [#4.2] BULL+6
^DPT - [#2] LOOK+5, LOOK+6
^DVB(396.3 - [#396.3] LOOK+3, LOOK+5, LOOK+7, LOOK+9, LOOK+17, NOTIFY, BULL+6
^DVB(396.4 - [#396.4] LOOK1, LOOK1+2, LOOK+8, DATA+4, DATA+12
^DVB(396.6 - [#396.6] LOOK1+1, DATA+4
^TMP($J LOOK1+2*, DATA+6, DATA+12*, KILL!, STATCHK, ALL, ALL1+1
^VA(200 - [#200] BULL+3, BULL+8, BULL+9, BULL+10
^XUSEC("DVBA C SUPERVISOR" DVBCROPN+3

Label References

Name Line Occurrences
ALL ROPN
ALL1 ALL
BULL UPDATE, NOTIFY+2
DATA DATA+3, DATA+6, DATA+7, DATA+13
EN DVBCROPN+4, LOOK+4, ALL+1
EXIT DVBCROPN+2, LOOK+1, ROPN, DATA+3, DATA+5, DATA+11
KILL LOOK
LOOK LOOK+1, LOOK+15, LOOK+17, UPDATE+1, ALL
LOOK1 LOOK+8
NOTIFY ALL+1
ROPN ROPN+1
STATCHK LOOK+17, DATA+7, ALL
UPDATE DATA+3
XMB BULL+8, BULL+9

Naked Globals

Name Field # of Occurrence
^( LOOK+6, STATCHK
^(0 LOOK1+1, LOOK+5, DATA+4, BULL+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ROPN*, KILL!
>> %Y ROPN+1
ALLROPN KILL!, ALL*, BULL+6, BULL+7, XMB+1, XMB+2!
CANC XMB+2!
>> CNUM LOOK+6*
D0 KILL!
D1 KILL!
DA LOOK1, LOOK1+2, LOOK+8*, DATA+8*, KILL!, ALL1+1*
DA(1 LOOK+3*, LOOK+5, LOOK+7, LOOK+8, LOOK+9, LOOK+17, NOTIFY, BULL+6, XMB+1
DATA LOOK+5*, LOOK+6, KILL!
DFN LOOK+3*, LOOK+5, LOOK+6, KILL!
DIC LOOK+1*, KILL!, ALL1+1*
DIC("A" LOOK+1*
DIC("W" LOOK+1*
DIC(0 LOOK+1*, ALL1*
DICW LOOK+6!
>> DIE DATA+8*, ALL1+1*
DOMAIN BULL+6*, BULL+7, XMB+2!
DOMNUM BULL+6*, BULL+7, XMB+1, XMB+2!
DR DATA+9*, KILL!, ALL1!*
>> DTOUT ROPN, DATA+3
DUZ DVBCROPN+2, DVBCROPN+3, BULL+1, BULL+3, BULL+8, BULL+9, BULL+10
EDIT DATA+12*, UPDATE, KILL!
EXAM LOOK1*, LOOK1+1*, LOOK1+2, KILL!
EXMNM DATA+4*, DATA+5, DATA+6, DATA+12, KILL!, ALL*, ALL1+1, ALL1+2, ALL1+3
EXY DATA+4*, DATA+8, DATA+12, KILL!
>> FF EN*, LOOK, UPDATE, ALL+1
>> HD EN*, LOOK
>> HD2 EN*, LOOK
>> I STATCHK*
IOF EN
IOM LOOK
>> J STATCHK*
>> JJY ALL*
NCN LOOK+17, DATA+7, KILL!, STATCHK*!, STATCHK+1, ALL
NOFND DATA!, KILL!
NOTRPT LOOK+13*, LOOK+15, KILL!
OLDEXAM KILL!
>> OUT NOTIFY+1*
OWNDOM BULL+6*, BULL+7, XMB+1, XMB+2!
>> PNAM LOOK+6*, BULL+3
RELDAT LOOK+7*, KILL!, BULL+2, BULL+3, BULL+4, BULL+5, XMB+2!
REQDA LOOK+3*, KILL!, XMB+1*
REQDT LOOK+5*, KILL!, BULL+1
SEND XMB+2!
>> SSN LOOK+6*, BULL+3
STAT LOOK1+2*, LOOK+3*, LOOK+4, LOOK+17*, DATA+6*, DATA+12*, KILL!, ALL*
>> SUPER DVBCROPN+3*, LOOK+4
TVAR LOOK+14!
TVAR(1 LOOK+10*
U LOOK1, LOOK1+1, LOOK1+2, LOOK+1, LOOK+3, LOOK+5, LOOK+6, LOOK+7, LOOK+9, LOOK+17
, DATA+3, DATA+4, DATA+6, DATA+12, STATCHK, ALL, ALL1+1, NOTIFY, BULL+3, BULL+6
X LOOK+1, DATA+3, KILL!, ALL*, NOTIFY*, NOTIFY+1!, NOTIFY+2!
XDOM BULL+6*, XMB+2!
XMB BULL+3*, XMB+2!
XMB(1 BULL+3*
XMB(2 BULL+3*
XMB(3 BULL+3*
XMB(4 BULL+3*
XMB(5 BULL+3*
XMB(6 BULL+4*
XMB(7 BULL+5*
XMDUZ BULL+1*, BULL+8, BULL+9, XMB!
>> XMY( BULL+8*, BULL+9*, BULL+10*
>> XMY("G.DVBA C 2507 EXAM REOPENED@" , BULL+7*
XRELDAT BULL+2*, BULL+3, XMB+2!
XREQDT BULL+1*, BULL+3, XMB+2!
Y LOOK+1, LOOK+3, DATA+2*, DATA+3, DATA+4, DATA+10, DATA+11, KILL!, ALL1+2, ALL1+3
, BULL+1*, BULL+2*
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