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

Package: Registration

Routine: DGRP61


Information

DGRP61 ;ALB/PJH,LBD,DJS,JAM,JAM,ARF - Patient MSDS History - List Manager Screen ;16 Oct 2017 16:04:16

Source Information

Source file <DGRP61.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA FileMan 7 ^DIC  WAIT^DICD  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  ^DIWP  
Registration 5 SETCLNO^DGENCLEA  $$WARNMSG^DGMSEUTL  $$SVCCOMP^DGRP6CL  $$FV^DGRPMS  LISTHDR^DGRPU  
List Manager 3 EN^VALM  (CLEAR,FULL,PAUSE)^VALM1  (CLEAN,MSG)^VALM10  
Kernel 2 $$FMTE^XLFDT  DISP^XQORM1  

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

Package Total Caller Graph
Registration 9 DGEN MSDS ADD  DGEN MSDS DELETE  DGEN MSDS EDIT  DGEN MSDS MENU  DGEN MSDS PATIENT  DGRP6  DGRP62  DGRPCE  
DGRPE  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN) ;Main entry point to invoke the DGEN MSDS PATIENT list
; Input -- DFN Patient IEN
HDR ;Header code
INIT ;Build patient MSDS screen
GETMSE(DFN,GLBL,NUM) ;Load service episodes from .3216 array
; INPUT: DFN = Patient IEN
; GLBL = ^TMP global ref
; NUM = 1 - display line numbers
EPISODE(DGDATA,GLBL,NUM) ;Format individual service episode
HELP ;Help code
EXIT ;Exit code
PEXIT ;DGEN MSDS MENU protocol exit code
ACT(DGACT) ; Entry point for menu action selection
; INPUT: DGACT = "A" - Add - DGEN MSDS ADD protocol
; = "E" - Edit - DGEN MSDS EDIT protocol
; = "D" - Delete - DGEN MSDS DELETE protocol
ACTQ ; menu action exit point
ADD ; Add new MSE to #2.3216 sub-file
SEL(ACT) ; function, prompt for episode to edit/delete
SELHLP(ACT) ; Help message for episode prompt
HECHLP ; Help message for episodes that can only be changed by HEC
ZNODE(VAL) ; Update zero node of MSE multiple .3216
SETDR1 ; Set DR array to edit MSE fields
SETDR2 ; Set DR array to add MSE fields
FVP() ; Prompt for FILIPINO VET PROOF
SET0(DA,DIPA) ; Set DIPA(0) to values of Service Branch and Service Component
WARN(DIPA,Y) ;Warns that the Service Branch was changed so the
; Service Component was deleted
; Returns Y to skip component if the component should not be asked
; for this branch of service
CMP(X) ; Function to determine if service component is valid for
; branch of service ien in X 0 = invalid 1 = valid
; Component only valid for ARMY/AIR FORCE/MARINES/COAST GUARD/NOAA/USPHS/SPACE FORCE
RUSURE() ; Confirmation prompt for deleting episode

External References

Name Field # of Occurrence
SETCLNO^DGENCLEA ACTQ+1
$$WARNMSG^DGMSEUTL INIT+8
$$SVCCOMP^DGRP6CL EPISODE+9
$$FV^DGRPMS EPISODE+12
LISTHDR^DGRPU HDR+3
^DIC ACT+16
WAIT^DICD EN+3
^DIE ACT+18, ADD+6, ADD+16
^DIK ACT+20, ADD+7, ADD+11
$$GET1^DIQ EPISODE+49
^DIR SEL+6, FVP+3, RUSURE+4
^DIWP EPISODE+56
EN^VALM EN+4
CLEAR^VALM1 EXIT+2
FULL^VALM1 ACT+7
PAUSE^VALM1 ACT+6, ACT+12, ACT+16, SELHLP+4
CLEAN^VALM10 INIT+1, EXIT+1
MSG^VALM10 INIT+10
$$FMTE^XLFDT EPISODE+18, EPISODE+20, EPISODE+25
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"View only. This action cannot be selected."
  • Line Location: ACT+6
Function Call: WRITE
  • Prompt: !,"There are no episodes to "_$S(DGACT="E":"edit.",1:"delete.")
  • Line Location: ACT+10
Function Call: WRITE
  • Prompt: !,"This episode is not in the patient's record."
  • Line Location: ACT+16
Function Call: WRITE
  • Prompt: !,"Select an episode to ",$S(ACT="E":"edit.",1:"delete.")
  • Line Location: SELHLP+1
Function Call: WRITE
  • Prompt: !,"Only numbers in square brackets [ ] are selectable."
  • Line Location: SELHLP+2
Function Call: WRITE
  • Prompt: !,"Angled brackets < > indicate episodes that cannot be changed in VistA."
  • Line Location: HECHLP+1
Function Call: WRITE
  • Prompt: !,"Please contact the HECAlert mail group or the HEC if you need to update"
  • Line Location: HECHLP+2
Function Call: WRITE
  • Prompt: !,"this information."
  • Line Location: HECHLP+3
Function Call: WRITE
  • Prompt: !!,*7,"** WARNING - BRANCH OF SERVICE WAS CHANGED SO THE COMPONENT WAS DELETED",!
  • Line Location: WARN+8
Function Call: WRITE
  • Prompt: !,"<< NOTHING DELETED >>"
  • Line Location: RUSURE+4
Routine Call
  • DIC
  • Line Location:
    • ACT+16
Routine Call
  • DIE
  • Line Location:
    • ACT+18
    • ADD+6
    • ADD+16
Routine Call
  • DIR
  • Line Location:
    • SEL+6
    • FVP+3
    • RUSURE+4
Routine Call
  • VALM
  • Line Location:
    • EN+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DIC(26 - [#26] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(23 - [#23] EPISODE+6
^DIC(25 - [#25] EPISODE+29
^DPT - [#2] GETMSE+8, GETMSE+9, GETMSE+10, EPISODE+12, ADD+3, ADD+9, ADD+10, ZNODE+3, ZNODE+4*, SET0+2
^TMP("DGRP61" INIT+2!, INIT+5, EXIT+3!
^UTILITY($J EPISODE+54!, EPISODE+57

Label References

Name Line Occurrences
$$CMP WARN+4
$$RUSURE ACT+20
$$SEL ACT+13
ACTQ ACT+5, ACT+6, ACT+8, ACT+9, ACT+13, ACT+14, ACT+16, ACT+18
ADD ACT+8
EPISODE GETMSE+11
GETMSE INIT+6
HECHLP ACT+11, SELHLP+3
INIT ACTQ+1
SETDR1 ACT+18
SETDR2 ADD+6
ZNODE ADD+4, ADD+9, ADD+11

Naked Globals

Name Field # of Occurrence
^(0 EPISODE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT SEL~, SELHLP~, SELHLP+1
DA ACT+4~, ACT+18!*, ACT+20*!, ADD+1~, ADD+6*, ADD+7*, ADD+11*, ADD+15!*, FVP+1~, FVP+2*
, SET0~, SET0+2
DA(1 ACT+15*, ACT+20*, ADD+6*, ADD+7*, ADD+11*, SET0+2
DFN EN~, INIT+6, INIT+8, GETMSE~, GETMSE+8, GETMSE+9, GETMSE+10, EPISODE+12, ACT+15, ACT+18
, ACT+20, ADD+3, ADD+6, ADD+7, ADD+9, ADD+10, ADD+11, ADD+15, ZNODE+1, ZNODE+3
, ZNODE+4, FVP+2
DGACT ACT~, ACT+5, ACT+8, ACT+10, ACT+13, ACT+18, ACT+20
DGDATA GETMSE+4~, GETMSE+10*, GETMSE+11, EPISODE~, EPISODE+4, EPISODE+17, EPISODE+25, EPISODE+27, EPISODE+36, EPISODE+48
, EPISODE+49, EPISODE+50
DGDATE GETMSE+4~, GETMSE+7*, GETMSE+8*, GETMSE+9
DGFDD EPISODE+1~, EPISODE+25*, EPISODE+63
DGFDD("DISP" EPISODE+25*, EPISODE+64
DGFRDT ACT+18!, ADD+1~
DGRPSB EPISODE+1~, EPISODE+4*, EPISODE+6, EPISODE+12
DGRPSC EPISODE+1~, EPISODE+4*, EPISODE+7, EPISODE+9
DGRPSD EPISODE+1~, EPISODE+27*, EPISODE+28, EPISODE+29
DGRPSE EPISODE+1~, EPISODE+17*, EPISODE+18, EPISODE+38
DGRPSN EPISODE+1~, EPISODE+4*, EPISODE+14
DGRPSS EPISODE+1~, EPISODE+17*, EPISODE+20
>> DGRPV EPISODE+36, ACT+6
DGSEL INIT+2!, GETMSE+7!
DGSEL( EPISODE+38*, ACT+14
DGSEL("episod e count" , GETMSE+7*, EPISODE+3*, EPISODE+36, EPISODE+38, SEL+3
DGSEL(0 ACT+9
DGSUB GETMSE+4~, GETMSE+9*, GETMSE+10
DGX ACT+4~, ACT+13*, ACT+14*, ACT+15
DIC ACT+4~, ACT+15*, ACT+18!, ACT+20
DIC(0 ACT+15*
DIE ACT+4~, ACT+18*, ADD+1~, ADD+6*, ADD+15*
DIK ACT+4~, ACT+20*!, ADD+1~, ADD+7*, ADD+11*
DIPA ACT+4~, SET0~, WARN~
DIPA("DA" ACT+17*, ACT+20
DIPA("FVP" ADD+14
DIPA("X" WARN+4, WARN+6
DIPA(0 SET0+1!, SET0+2*, WARN+5, WARN+6
>> DIQUIET WARN+8
DIR SEL+1~, SELHLP+4~, FVP+1~, RUSURE+1~
DIR("?" SEL+5*
DIR("A" SEL+4*, RUSURE+3*
DIR("B" RUSURE+2*
DIR(0 SEL+3*, FVP+2*, RUSURE+2*
DIROUT SEL+1~, FVP+1~, RUSURE+1~
DIRUT SEL+1~, FVP+1~, RUSURE+1~
DIWF EPISODE+53~, EPISODE+55*
DIWL EPISODE+53~, EPISODE+55*
DIWR EPISODE+53~, EPISODE+55*
DR ACT+4~, ADD+1~, ADD+15!*, SETDR1+1*, SETDR2+1*
DR(2 SETDR1+2*, SETDR1+3*, SETDR1+4*
DTOUT SEL+1~, FVP+1~, RUSURE+1~
DUOUT SEL+1~, FVP+1~, RUSURE+1~
GLBL INIT+4~, INIT+5*, INIT+6, GETMSE~, GETMSE+11, EPISODE~, EPISODE+41, EPISODE+43, EPISODE+60, EPISODE+64
I EPISODE+53~, EPISODE+58*, EPISODE+59
NEXT ADD+1~, ADD+3*, ADD+6, ADD+7, ADD+9, ADD+10, ADD+11
NUM GETMSE~, GETMSE+11, EPISODE~, EPISODE+33, EPISODE+41
RESDESC EPISODE+47~, EPISODE+49*, EPISODE+50*, EPISODE+51, EPISODE+55, EPISODE+57*, EPISODE+58
RESDESC( EPISODE+59
RESLINE EPISODE+53~, EPISODE+59*, EPISODE+60
U EPISODE+4, EPISODE+12, EPISODE+17, EPISODE+25, EPISODE+27, EPISODE+36, EPISODE+48, EPISODE+49, EPISODE+50, ADD+10
, ZNODE+4, SET0+2, WARN+5, WARN+6
VAL ZNODE~, ZNODE+1, ZNODE+4
>> VALMBCK ACTQ+1*
>> VALMCNT GETMSE+7*, EPISODE+31*, EPISODE+41, EPISODE+43, EPISODE+60*, EPISODE+64*, ACT+11
>> VALMHDR(1 HDR+2*
>> VALMHDR(4 HDR+12*, HDR+13*
>> VALMSG INIT+9*, INIT+10, PEXIT+1*
X HDR+1~, GETMSE+4~, EPISODE+18*, EPISODE+19, EPISODE+20*, EPISODE+21, EPISODE+53~, EPISODE+55*, HELP+1*, ACT+4~
, ACT+15*, ADD+1~, ADD+7, SEL+1~, FVP+1~, CMP~, CMP+3, RUSURE+1~
X1 GETMSE+4~
X2 GETMSE+4~
Y ACT+4~, ACT+16, ACT+17, ADD+1~, SEL+1~, SEL+6, SEL+7, FVP+1~, FVP+3, FVP+4
, WARN~, WARN+4*, RUSURE+1~, RUSURE+4
Z EPISODE+1~, EPISODE+6*, EPISODE+10*, EPISODE+12*, EPISODE+14*, EPISODE+15*, EPISODE+19*, EPISODE+21*, EPISODE+28*, EPISODE+29*
, EPISODE+36*, EPISODE+38*, EPISODE+41
Z0 EPISODE+8~, EPISODE+9*, EPISODE+10
ZNODE ZNODE+2~, ZNODE+3*, ZNODE+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 |  Naked Globals |  Local Variables  | All