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

Package: Registration

Routine: DGSAUTL


Information

DGSAUTL ;ALB/MTC - SHARING AGREEMENTS UTILITY FUNCTIONS ; 9/12/13 9:54am

Source Information

Source file <DGSAUTL.m>

Entry Points

Name Comments DBIA/ICR reference
EN(ORG) ;-- Entry point to Add/Edit Sharing Agreement Sub-Categories
ENQ ;
GOGO(ORG,ATR,CAT) ;-- This function does something
GOGOQ
GET(ORG) ;-- This function will get the appropriate App Type or Admit Reg
GETAT() ;-- get appointment type
GETAR() ;-- get admitting regulation
CAT(DGORG) ;
HLP ;-- help for Sub-Category file
HLPQ ;
ADCAT(ADCAT) ;-- This function will prompt the user for the category
; associated with the admitting regulation selected.
GETSA(ATAR,SOURCE,ACTIVE) ;-- This function will build the DGSA array containing all the
; sub-categories associated with an admitting reg.
SUB(ATAR,SOURCE,DEFAULT) ;-- This function will check and prompt for sharing
; agreement sub-categories associated with either an Admitting Reg
; or a Appointment Type.
  • ICR #5928
    • Status: Active
    • Usage: Private
    DISP ;-- display choices
    1
    SUBQ ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"APPOINTMENT TYPE :",$P(DGAPT,U,2),!,?5,"CATEGORY :"
    • Line Location: HLP+9
    Function Call: WRITE
    • Prompt: !,"VA ADMITTING REGULATION :",$P(DGAPT,U,2),!,?5,"CATEGORY :"
    • Line Location: HLP+11
    Function Call: WRITE
    • Prompt: !,?10,$P(^DG(35.2,$P(^DG(35.1,DGK,0),U,2),0),U),?35,$S($P(^DG(35.1,DGK,0),U,3)=1:"ACTIVE",1:"INACTIVE")
    • Line Location: HLP+12
    Function Call: WRITE
    • Prompt: !,"THE ["_DGNAME_$S(SOURCE=1:"] ADMITTING REGULATION",1:"] APPOINTMENT TYPE")
    • Line Location: DISP+7
    Function Call: WRITE
    • Prompt: !,"HAS THE FOLLOWING SUB-CATEGORIES DEFINED."
    • Line Location: DISP+8
    Function Call: WRITE
    • Prompt: !?5,$P(DGSA(1,X),U,2)
    • Line Location: DISP+10
    Function Call: WRITE
    • Prompt: !,"ENTER THE SUB-CAT FOR THE ["_DGNAME_$S(SOURCE=1:"] ADMITTING REG",1:"] APPT TYPE")_": "_$P(DGDEF,U,2)_"// "
    • Line Location: 1+0
    Function Call: WRITE
    • Prompt: !?5,I_" "_$P(RES(I),U,2)
    • Line Location: 1+16
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: 1+18
    Function Call: WRITE
    • Prompt: " "_$P(RES(+X),U,2)
    • Line Location: 1+18

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DG(35.1 - [#35.1] Classic Fileman Calls
    ^DG(35.2 - [#35.2] Classic Fileman Calls
    ^SD(409.1 - [#409.1] Classic Fileman Calls
    ^DIC(43.4 - [#43.4] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call