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
Print Page as PDF
Routine: DGSDUTL

Package: Registration

Routine: DGSDUTL


Information

DGSDUTL ;ALB/PHH,RMM - DG/SD API UTILITIES ;3/4/2004 10:03

Source Information

Source file <DGSDUTL.m>

Entry Points

Name Comments DBIA/ICR reference
PCTEAM(DFN,DATE,ASSTYPE) ; Get Primary Care Team
; DFN - IEN of patient file (#2)
; DATE - Date of interest (Default=DT)
; ASSTYPE - Assignment Type (Default=1 for PC Team)
  • ICR #5311
    • Status: Withdrawn
    • Usage: Private
    PCPRACT(DFN,DATE,PCROLE) ; Get PC Practitioner
    ; DFN - Pointer to Patient file
    ; DATE - Date of interest
    ; PCROLE - Practitioner Position where '1' = PC provider
    ; '2' = PC attending
    ; '3' = PC associate provider
    ; Returned: Pointer to file #200 ^ External value of name
    ; or, if error or none defined, returns a 0 or null
    DATE ; Get Begin Date and End Date
    EX
    HELP
    TDATA(DFN,VALMCNT,SDATE,SDPRT,SDCOL) ;
    TDQ
    S1(SDT,SDX) ;Set first piece of string
    ; Input: SDT=subtitle, SDX=data value
    S2(SDT,SDX) ;Set second piece of string
    ; Input: SDT=subtitle, SDX=data value
    S3(SDT,SDX) ;Set first piece of string that displays phone numbers
    ; Input: SDT=subtitle, SDX=data value
    S4(SDT,SDX) ;Set second piece of string that displays phone numbers
    PHONE(IEN) ;Get provider's pager and phone numbers.
    STL(SDY) ; Set text line
    ; Input: SDY=string
    PRT ; Write assignment information
    PCLINE(DFN,SDATE) ;PC provider, associate and team in a single line
    ; Input: DFN=patient ifn
    ; SDATE=effective date (optional)
    ; Output: PC provider, associate and team formatted as 80 character
    ; line, or "" if none
    PCL(SDSUB) ; Get name value
    ; Input: SDSUB=node from GETALL^SCAPMCA
    LAST() ; Output - the latest date, beginning day or -100 days
    ; the APPOINTMENT STATUS UPDATE LOG was updated

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"**** Date Range Selection ****"
    • Line Location: DATE+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: DATE+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: DATE+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: DATE+3
    Function Call: WRITE
    • Prompt: "??",!?5,"Ending date must not be before beginning date"
    • Line Location: HELP+0
    Info |  Source |  Entry Points |  Interaction Calls