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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DID,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call