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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DIC(26 - [#26] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call