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 |  Local Variables  | All
Print Page as PDF
Routine: DGOTHD1

Package: Registration

Routine: DGOTHD1


Information

DGOTHD1 ;SLC/SS,RM,MKN - OTHD (OTHER THAN HONORABLE DISCHARGE) APIs ; 12/27/17

Source Information

Source file <DGOTHD1.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Registration 6 ^DGDDC  ($$GETEXPMH,$$ISOTH,$$ISOTHD,STRDATE)^DGOTHD  $$OTHSOC^DGOTHD1  ($$CHCKPAT,$$CROTHENT,$$GETSITE,$$HASENTRY)^DGOTHD2  (CRTEELCH,INACT33)^DGOTHEL  FILAUTH^DGOTHUT1  
VA FileMan 6 EN^DDIOL  MSG^DIALOG  $$GET1^DID  (FILE,HELP)^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 $$NOW^XLFDT  $$UP^XLFSTR  $$NAME^XUSER  

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

Package Total Caller Graph
Registration 5 DGOTHD  DGOTHD1  DGOTHEL  DGRP7  DGRPX73  

Entry Points

Name Comments DBIA/ICR reference
FRSTNTRY(DGDFN,DGSTRDT,DGEXPMH) ;
OTHDATA(DG365,DG90) ;
XPANDED(DGDFN) ;
EMHCTYP(DGDFN) ;prompt for EXPANDED MH CARE TYPE
QUITYN(QUESTION) ;
UPDTEMHT(DGDFN) ;set the associated EXPANDED MH CARE TYPE
; Input :
; DGDFN - Patient IEN
; Output:
; Create EXPANDED MH CARE TYPE entry in field #.5501 node #.55 in Patient File (#2)
OTHSOC(EMHCT) ;Extract OTHER THAN HONORABLE set of codes
EMHCT(DGDFN) ;EXPANDED MH CARE TYPE 'OTH' in Patient file #2
; Input :
; DGDFN - Patient IEN
; Output:
; Remove EXPANDED MH CARE TYPE entry in field #.5501 node #.55 in Patient File (#2)
PREVSEL(DGDFN) ;put back the patient's previous primary eligibility code
; Input :
; DGDFN - Patient IEN

External References

Name Field # of Occurrence
EN^DDIOL XPANDED+22, EMHCTYP+47
^DGDDC XPANDED+50
$$GETEXPMH^DGOTHD FRSTNTRY+3
$$ISOTH^DGOTHD EMHCTYP+30, EMHCTYP+33
$$ISOTHD^DGOTHD XPANDED+15
STRDATE^DGOTHD XPANDED+48
$$OTHSOC^DGOTHD1 EMHCTYP+13
$$CHCKPAT^DGOTHD2 UPDTEMHT+6
$$CROTHENT^DGOTHD2 FRSTNTRY+7
$$GETSITE^DGOTHD2 OTHDATA+6
$$HASENTRY^DGOTHD2 FRSTNTRY+3, XPANDED+26, EMHCTYP+28, EMHCTYP+30, EMHCTYP+33, UPDTEMHT+9
CRTEELCH^DGOTHEL UPDTEMHT+9
INACT33^DGOTHEL XPANDED+16
FILAUTH^DGOTHUT1 FRSTNTRY+3, FRSTNTRY+12
MSG^DIALOG EMHCTYP+37
$$GET1^DID OTHSOC+6
FILE^DIE UPDTEMHT+8, EMHCT+10, PREVSEL+5
HELP^DIE EMHCTYP+37
$$GET1^DIQ XPANDED+28, EMHCTYP+12
^DIR EMHCTYP+18, QUITYN+7
$$NOW^XLFDT OTHDATA+7, UPDTEMHT+9
$$UP^XLFSTR OTHDATA+5
$$NAME^XUSER OTHDATA+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," *** A record on file indicates that this patient was previously"
  • Line Location: XPANDED+30
Function Call: WRITE
  • Prompt: !," defined as OTH.",!
  • Line Location: XPANDED+31
Function Call: WRITE
  • Prompt: !!," NO ACTION TAKEN!!!",!
  • Line Location: XPANDED+34
Function Call: WRITE
  • Prompt: !
  • Line Location: XPANDED+38
Function Call: WRITE
  • Prompt: !!," DELETION NOT ALLOWED!!!",!
  • Line Location: EMHCTYP+34
Function Call: WRITE
  • Prompt: !
  • Line Location: EMHCTYP+37
Function Call: WRITE
  • Prompt: !
  • Line Location: EMHCTYP+38
Function Call: WRITE
  • Prompt: !," No Expanded MH Care Type found."
  • Line Location: EMHCTYP+39
Function Call: WRITE
  • Prompt: !," Nothing to delete.",!
  • Line Location: EMHCTYP+40
Function Call: WRITE
  • Prompt: !!,"An error occurred during filing."
  • Line Location: EMHCT+11
Function Call: WRITE
  • Prompt: !!,"An error occurred during filing."
  • Line Location: PREVSEL+6
Routine Call
  • DIALOG
  • Line Location:
    • EMHCTYP+37
Routine Call
  • DIE
  • Line Location:
    • UPDTEMHT+8
    • EMHCT+10
    • PREVSEL+5
Routine Call
  • DIE
  • Line Location:
    • EMHCTYP+37
Routine Call
  • DIR
  • Line Location:
    • EMHCTYP+18
    • QUITYN+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DID,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGOTH(33 - [#33] FRSTNTRY+3

Label References

Name Line Occurrences
$$EMHCTYP XPANDED+44
$$QUITYN XPANDED+32
OTHDATA FRSTNTRY+3, FRSTNTRY+11
PREVSEL XPANDED+36, EMHCTYP+23, EMHCTYP+28, EMHCTYP+30
UPDTEMHT XPANDED+46

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA XPANDED+13~, XPANDED+50*, EMHCTYP+8~, EMHCTYP+11*, PREVSEL+3~
DG365 OTHDATA~, OTHDATA+2
DG90 OTHDATA~, OTHDATA+3
DGARR XPANDED+12~
DGDFN FRSTNTRY~, FRSTNTRY+3, FRSTNTRY+7, FRSTNTRY+12, XPANDED~, XPANDED+11, XPANDED+15, XPANDED+16, XPANDED+26, XPANDED+28
, XPANDED+36, XPANDED+44, XPANDED+46, XPANDED+48, XPANDED+50, EMHCTYP~, EMHCTYP+11, EMHCTYP+12, EMHCTYP+23, EMHCTYP+28
, EMHCTYP+30, EMHCTYP+33, UPDTEMHT~, UPDTEMHT+6, UPDTEMHT+7, UPDTEMHT+9, EMHCT~, EMHCT+5, EMHCT+7, PREVSEL~
, PREVSEL+4
DGDIRB EMHCTYP+8~, EMHCTYP+12*, EMHCTYP+13, EMHCTYP+22, EMHCTYP+30, EMHCTYP+33, EMHCTYP+48
>> DGECODE XPANDED+37, XPANDED+52
DGEH PREVSEL+3~
DGEMHC XPANDED+43~, XPANDED+44*, XPANDED+45
>> DGEMHCNVT XPANDED+10*, EMHCTYP+26*, EMHCTYP+28
DGERR XPANDED+12~, UPDTEMHT+5~, OTHSOC+5~, OTHSOC+7
DGEXPMH FRSTNTRY~, FRSTNTRY+9
DGFDA UPDTEMHT+5~
DGFDA(2 UPDTEMHT+7*
DGFDART EMHCT+6~, PREVSEL+3~
DGFDART( EMHCT+8*, EMHCT+9*, PREVSEL+4*
DGIEN33 FRSTNTRY+1~, FRSTNTRY+3*, FRSTNTRY+5, FRSTNTRY+7*, FRSTNTRY+14, XPANDED+12~, PREVSEL+3~
DGIEN365 FRSTNTRY+1~
DGIEN90 FRSTNTRY+1~
DGMSG XPANDED+12~, XPANDED+22, EMHCTYP+47
DGMSG(1 XPANDED+18*, EMHCTYP+43*
DGMSG(2 XPANDED+19*, EMHCTYP+44*
DGMSG(3 XPANDED+20*, EMHCTYP+45*
DGMSG(4 XPANDED+21*, EMHCTYP+46*
DGOTHERR EMHCT+6~, EMHCT+11, PREVSEL+3~, PREVSEL+6
DGOTHSOC OTHSOC+5~, OTHSOC+6*, OTHSOC+8
DGOTHSOC( OTHSOC+8*, OTHSOC+9
DGPREEL PREVSEL+3~
>> DGPRVSPE XPANDED+28, PREVSEL+4
DGQUIT XPANDED+12~, EMHCTYP+21*, EMHCTYP+26*, EMHCTYP+35*, EMHCTYP+38*, EMHCTYP+48*, EMHCTYP+50
DGSTRDT FRSTNTRY~
DGTYPHLP EMHCTYP+9~, EMHCTYP+17!
DGXRF XPANDED+13~, XPANDED+50*
DGYN XPANDED+12~, XPANDED+26*, XPANDED+32*, XPANDED+33
DIK PREVSEL+3~
DIR EMHCTYP+8~, EMHCTYP+49!, QUITYN+1~
DIR("?" QUITYN+4*, QUITYN+5*, QUITYN+6*
DIR("A" QUITYN+3*
DIR("B" EMHCTYP+13*
DIR("T" EMHCTYP+14*
DIR(0 EMHCTYP+11*, QUITYN+2*
DIROUT EMHCTYP+8~, EMHCTYP+25
DIRUT EMHCTYP+8~, EMHCTYP+32
DONE EMHCTYP+9~, EMHCTYP+11*, EMHCTYP+15, EMHCTYP+21*, EMHCTYP+26*, EMHCTYP+35*, EMHCTYP+38*, EMHCTYP+48*
DT OTHDATA+4
DTOUT EMHCTYP+8~, EMHCTYP+20
DUOUT EMHCTYP+8~, EMHCTYP+25
DUZ OTHDATA+5, OTHDATA+6
EMHCNV XPANDED+12~, XPANDED+15*, XPANDED+16
EMHCT OTHSOC~, OTHSOC+9
FIELD EMHCTYP+9~, EMHCTYP+10*, EMHCTYP+11, EMHCTYP+37
FILE EMHCTYP+9~, EMHCTYP+10*, EMHCTYP+11, EMHCTYP+37
I OTHSOC+5~, OTHSOC+8*
IENS EMHCT+6~, EMHCT+7*, EMHCT+8, EMHCT+9
OTHDATA FRSTNTRY+1~, FRSTNTRY+3, FRSTNTRY+12, OTHDATA+1!, OTHDATA+2*, OTHDATA+3*, OTHDATA+4*, OTHDATA+5*, OTHDATA+6*, OTHDATA+7*
QUESTION QUITYN~, QUITYN+3
SVX XPANDED+13~, XPANDED+14*, XPANDED+50
U OTHDATA+2, OTHDATA+3, OTHDATA+4, OTHDATA+5, OTHDATA+6, OTHDATA+7, XPANDED+52
>> X XPANDED+14, XPANDED+50*, EMHCTYP+36
Y XPANDED+37*, XPANDED+52*, EMHCTYP+36, EMHCTYP+42, EMHCTYP+48, QUITYN+1~, QUITYN+8, UPDTEMHT+7
YY OTHSOC+5~, OTHSOC+8*
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 |  Local Variables  | All