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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: KMPDHUA

Package: Capacity Management

Routine: KMPDHUA


Information

KMPDHUA ;OAK/RAK - Remote Synchronous HL7 Protocol ;3/15/04 07:48

Source Information

Source file <KMPDHUA.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
Capacity Management 3 SELECT^KMPDUT4  DATERNG^KMPDUTL2  HDR^KMPDUTL4  
VA FileMan 2 ^DIC  ^DIR  
Health Level Seven 1 $$CMF^HLUCM  
Registration 1 $$SITE^VASITE  

Entry Points

Name Comments DBIA/ICR reference
EN ;-entry point
EN1 ;-- entry point from taskman
DATA ;
; if 'all' namespaces
EXIT ;
PRINT ;-- print sync/facility data
HDR ;
NMSPARRY(KMPDNMSP) ;-- namespace arry

External References

Name Field # of Occurrence
^%ZIS EN+26
^%ZISC EXIT+4
^%ZTLOAD EN+32
^DIC EN+9
^DIR EN+21
$$CMF^HLUCM DATA+3, DATA+6
SELECT^KMPDUT4 NMSPARRY+4
DATERNG^KMPDUTL2 EN+15
HDR^KMPDUTL4 EN+6
$$SITE^VASITE HDR+6
$$FMTE^XLFDT HDR+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !,"No action taken."
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !?5," No Data to Report"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?$S(J=1:45,J=2:56,1:67),$J($FN($P($G(TOT(I)),U,J),",",0),9)
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?(80-$L(X)\2),X,?62,"Printed: ",$$FMTE^XLFDT(DT,2)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?21,"Synchronous Remote Protocol Distribution"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?((80-$L(X))\2),X
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !?(80-$L(X)\2),X
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !?((80-$L(X))\2),X
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,"Rank",?6,X,?17,"Remote Facility",?37,"Nmsp",?45,$J("Chrs",9),?56,$J("Messages",9),?67,$J("Seconds",9)
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !,"----",?6,"---------",?17,"------------------",?37,"----",?45,"---------",?56,"---------",?67,"---------"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !
  • Line Location: NMSPARRY+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+26
Routine Call
  • DIC
  • Line Location:
    • EN+9
Routine Call
  • DIR
  • Line Location:
    • EN+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] NMSPARRY+9
^TMP("KMPDH" EN1+13!, DATA+10, DATA+12, EXIT+3!, PRINT+12, PRINT+14, PRINT+16, PRINT+17, PRINT+18, PRINT+20
PRINT+21, PRINT+22
^TMP("KMPDH-1" EN1+13!, DATA+21*, EXIT+3!, PRINT+3, PRINT+5, PRINT+8, PRINT+10

Label References

Name Line Occurrences
DATA EN1+15
EN1 EN+35
EXIT EN+33, EN1+15
HDR PRINT+2
NMSPARRY EN+12
PRINT EN1+15

Naked Globals

Name Field # of Occurrence
^( DATA+12, PRINT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+3~, EN+25*
%ZIS("A" EN+25*
%ZIS("B" EN+25*
DATA PRINT+1~, PRINT+14*, PRINT+25
DATA("I" PRINT+20*, PRINT+29
DATA("IOU" PRINT+22*, PRINT+31
DATA("M" PRINT+17*, PRINT+27
DATA("O" PRINT+21*, PRINT+30
DATA("T" PRINT+16*, PRINT+26
DATA("TMU" PRINT+18*, PRINT+28
DATE PRINT+1~, PRINT+11*, PRINT+12*, PRINT+14, PRINT+16, PRINT+17, PRINT+18, PRINT+20, PRINT+21, PRINT+22
DIC EN+2~, EN+8*, NMSPARRY+2~, NMSPARRY+3*
DIC("A" EN+8*, NMSPARRY+3*
DIC(0 EN+8*, NMSPARRY+3*
DIR EN+18!
DIR("B" EN+20*
DIR(0 EN+19*
DT HDR+7
END EN1+6~, EN1+8*, EN1+9, DATA+3, DATA+6
ERROR EN1+6~, DATA+3, DATA+6
FAC DATA+9*, DATA+10*, DATA+12, DATA+21, PRINT+1~, PRINT+7*, PRINT+8*, PRINT+9, PRINT+10, PRINT+12
PRINT+14, PRINT+16, PRINT+17, PRINT+18, PRINT+20, PRINT+21, PRINT+22
I EN+2~, EN+31*, PRINT+1~, PRINT+24*, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+30
PRINT+31, PRINT+39*, PRINT+40, PRINT+41, PRINT+42, PRINT+43, NMSPARRY+8*, NMSPARRY+11
IO("Q" EN+28!
IOF HDR+4
J PRINT+1~, PRINT+43*
KMPDATE EN+2~, EN+15, EN1+2, EN1+8, EXIT+2!, HDR+1*, HDR+11, HDR+12
KMPDNMSP EN+2~, EN+12, EN1+3, DATA+6, EXIT+2!, NMSPARRY~, NMSPARRY+1!, NMSPARRY+12*
KMPDNMSP( NMSPARRY+8, NMSPARRY+11!
KMPDNMSP(0 DATA+2, NMSPARRY+5, NMSPARRY+6, NMSPARRY+7!
KMPDPROT EN+2~, EN+9*, DATA+3, DATA+6, EXIT+2!, HDR+2*, HDR+9
KMPDSRCH EN+2~, EN+22*, EN1+4, DATA+17, DATA+18, DATA+19, EXIT+2!, PRINT+6, HDR+3*, HDR+14
HDR+16
NM1 NMSPARRY+2~, NMSPARRY+7!, NMSPARRY+12
NM1( NMSPARRY+10*
NMSP DATA+11*, DATA+12*, DATA+21, PRINT+1~, PRINT+9*, PRINT+10*, PRINT+11, PRINT+12, PRINT+14, PRINT+16
PRINT+17, PRINT+18, PRINT+20, PRINT+21, PRINT+22, NMSPARRY+2~, NMSPARRY+9*, NMSPARRY+10
PKG NMSPARRY+2~, NMSPARRY+8*, NMSPARRY+9, NMSPARRY+10
POP EN+2~, EN+26
PROT PRINT+1~, PRINT+13*, PRINT+14*, PRINT+16, PRINT+17, PRINT+18, PRINT+20, PRINT+21, PRINT+22
RANK PRINT+1~, PRINT+4*, PRINT+6, PRINT+7*
SRCH DATA+16*, DATA+17*, DATA+18*, DATA+19*, DATA+20, DATA+21, PRINT+1~, PRINT+4*, PRINT+5*, PRINT+6
PRINT+8, PRINT+10
STR EN1+6~, EN1+8*, EN1+9, DATA+3, DATA+6
TOT DATA+12*, DATA+17, DATA+18, DATA+19, PRINT+11!, PRINT+25*, PRINT+35, PRINT+36, PRINT+37
TOT( PRINT+43
TOT("I" PRINT+29*
TOT("IOU" PRINT+31*
TOT("M" PRINT+27*
TOT("O" PRINT+30*
TOT("T" PRINT+26*
TOT("TMU" PRINT+28*
U EN1+8, DATA+17, DATA+18, DATA+19, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+30
PRINT+31, PRINT+35, PRINT+36, PRINT+37, PRINT+43, HDR+6, HDR+11, HDR+12, HDR+14, NMSPARRY+9
X EN+2~, EN1+6~, DATA+3*, DATA+6*, HDR+5~, HDR+6*, HDR+7, HDR+9*, HDR+10, HDR+11*
HDR+12*, HDR+13, HDR+14*, HDR+15, HDR+16*, HDR+18, NMSPARRY+2~
Y EN+2~, EN+9, EN+21, EN+22, NMSPARRY+2~
Y(0 EN+22
ZTDESC EN+3~, EN+29*
>> ZTQUEUED EN1+12, EXIT+1
>> ZTREQ EXIT+1*
ZTRTN EN+3~, EN+30*
ZTSAVE EN+3~
ZTSAVE( EN+31*
ZTSK EN+3~, EN+32
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All