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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGPFLMA5

Package: Registration

Routine: DGPFLMA5


Information

DGPFLMA5 ;SLC/SS - PRF ASSIGNMENT LM PROTOCOL ACTIONS CONT. ; 01/24/18

Source Information

Source file <DGPFLMA5.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 6 $$GETASGN^DGPFAA  ($$LOCK,UNLOCK)^DGPFAA3  $$SEND^DGPFHLT  BLDLIST^DGPFLMU  $$ASKRSN^DGPFTR1  $$PARENT^DGPFUT1  
List Manager 2 (FULL,PAUSE)^VALM1  EN^VALM2  
Kernel 1 ($$NS,$$STA,F4)^XUAF4  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Kernel 1 ^ORD(101  
Registration 1 DGPF TRANSFER FLAG  

Entry Points

Name Comments DBIA/ICR reference
TR ; Entry point for DGPF TRANSFER FLAG action protocol.
TRX ; exit point
; Release lock on assignment record
ASKCONT() ; Asks user if they wish to continue
; Returns 1 if response is "YES", 0 otherwise
DISPMSG(MSG) ; Display message to the user
; status^HL7 message id^error code^error description^error source
CHKINT() ; check for integrated site divisions
; only ingrated site divisions are allowed to use FT action

External References

Name Field # of Occurrence
$$GETASGN^DGPFAA TR+30
$$LOCK^DGPFAA3 TR+28
UNLOCK^DGPFAA3 TRX+2
$$SEND^DGPFHLT TR+49
BLDLIST^DGPFLMU TR+53
$$ASKRSN^DGPFTR1 TR+38
$$PARENT^DGPFUT1 TR+32, TR+34, CHKINT+11
^DIR ASKCONT+5
FULL^VALM1 TR+12
PAUSE^VALM1 DISPMSG+15
EN^VALM2 TR+21
$$NS^XUAF4 TR+26
$$STA^XUAF4 CHKINT+11
F4^XUAF4 CHKINT+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You're about to request ownership transfer of the following"
  • Line Location: TR+40
Function Call: WRITE
  • Prompt: !,"record flag assignment to division "_$P(DIV,U)_" (station #"_$P(DIV,U,2)_"):"
  • Line Location: TR+41
Function Call: WRITE
  • Prompt: !!,"Patient: ",$P($G(DGPFA("DFN")),U,2)
  • Line Location: TR+42
Function Call: WRITE
  • Prompt: !,"PRF flag: ",$P($G(DGPFA("FLAG")),U,2)
  • Line Location: TR+43
Function Call: WRITE
  • Prompt: !,"PRF flag status: ",$P($G(DGPFA("STATUS")),U,2)
  • Line Location: TR+44
Function Call: WRITE
  • Prompt: !,"Current owner: ",$P($G(DGPFA("OWNER")),U,2)
  • Line Location: TR+45
Function Call: WRITE
  • Prompt: !,"Request reason: ",REASON
  • Line Location: TR+46
Function Call: WRITE
  • Prompt: !!,HL7OK
  • Line Location: DISPMSG+5
Function Call: WRITE
  • Prompt: !!,"Unable to proceed, ",ERRSTR
  • Line Location: DISPMSG+7
Function Call: WRITE
  • Prompt: !!,"Unable to send transfer request, ",ERRSTR
  • Line Location: DISPMSG+8
Function Call: WRITE
  • Prompt: !!,HL7OK,!,"...but error occurred while filing log entry:"
  • Line Location: DISPMSG+9
Function Call: WRITE
  • Prompt: !?2,"HL7 Message ID: ",Z
  • Line Location: DISPMSG+11
Function Call: WRITE
  • Prompt: !?2,"Error Code: ",Z
  • Line Location: DISPMSG+12
Function Call: WRITE
  • Prompt: !?2,"Error Text: ",!,Z
  • Line Location: DISPMSG+13
Routine Call
  • DIR
  • Line Location:
    • ASKCONT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] TR+17

Label References

Name Line Occurrences
$$ASKCONT TR+47
$$CHKINT TR+19
DISPMSG TR+15, TR+17, TR+19, TR+28, TR+30, TR+34, TR+36, TR+51
TRX TR+30, TR+34, TR+36, TR+38, TR+47

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DGDFN TR+1~, TR+15, TR+25*, TR+49, TR+53
DGIEN TR+2~, TR+21*, TR+24*, TR+28, TR+30, TRX+2
DGPFA TR+3~, TR+30
DGPFA("DFN" TR+42
DGPFA("FLAG" TR+36, TR+43, TR+49
DGPFA("OWNER" TR+32, TR+33, TR+45
DGPFA("STATUS" TR+44
DIR ASKCONT+3~
DIR("A" ASKCONT+4*
DIR("B" ASKCONT+4*
DIR(0 ASKCONT+4*
DIROUT ASKCONT+3~
DIRUT ASKCONT+3~
DIV TR+7~, TR+26*, TR+41, CHKINT+5~, CHKINT+9*, CHKINT+11, CHKINT+12
DIVST CHKINT+5~, CHKINT+11*, CHKINT+13, CHKINT+17
DTOUT ASKCONT+3~
DUOUT ASKCONT+3~
DUZ(2 TR+17, TR+26, TR+34, CHKINT+9
ERRSTR DISPMSG+2~, DISPMSG+3*, DISPMSG+7, DISPMSG+8
EXCLUDE CHKINT+5~, CHKINT+8*, CHKINT+13
FDATA CHKINT+5~, CHKINT+17
FDATA("TYPE" CHKINT+18
HL7OK DISPMSG+2~, DISPMSG+4*, DISPMSG+5, DISPMSG+9
INTFCLTY CHKINT+5~, CHKINT+7*, CHKINT+15
MSG DISPMSG~, DISPMSG+5, DISPMSG+6, DISPMSG+7, DISPMSG+8, DISPMSG+9, DISPMSG+11, DISPMSG+12, DISPMSG+13
OWNER TR+8~, TR+33*, TR+34, TR+49
PARENT CHKINT+5~, CHKINT+11*
PRNTIEN CHKINT+5~, CHKINT+11*, CHKINT+12
PRNTST CHKINT+5~, CHKINT+11*, CHKINT+12, CHKINT+15
REASON TR+5~, TR+38*, TR+46, TR+49
RES TR+6~, TR+49*, TR+51, CHKINT+5~, CHKINT+10*, CHKINT+12*, CHKINT+13, CHKINT+18*, CHKINT+21
SEL TR+4~, TR+23*, TR+24, TR+25
U TR+24, TR+25, TR+32, TR+33, TR+34, TR+41, TR+42, TR+43, TR+44, TR+45
, TR+49, DISPMSG+7, DISPMSG+8, DISPMSG+9, DISPMSG+11, DISPMSG+12, DISPMSG+13, CHKINT+11, CHKINT+13, CHKINT+15
>> VALMAR TR+15, TR+24, TR+25
>> VALMBCK TR+13*
>> VALMY("" TR+23
X ASKCONT+3~
>> XQORNOD(0 TR+21
Y ASKCONT+3~, ASKCONT+6
Z TR+9~, TR+32*, TR+33, DISPMSG+2~, DISPMSG+11*, DISPMSG+12*, DISPMSG+13*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All