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

Package: PCE Patient Care Encounter

Routine: PXBAPI2


Information

PXBAPI2 ;ISL/DCM - API for check-out d/t ;7/10/96

Source Information

Source file <PXBAPI2.m>

Entry Points

Name Comments DBIA/ICR reference
CHIKOUT(ENCOWNTR,DFN,LOC,APTDT) ;Edit check-out date/time
; Input - ENCOWNTR - ien of ^SCE(DA,0)
; ENCOWNTR optional if DFN,LOC,APTDT params used
; DFN - ien of ^DPT(DFN, (only used if no ENCOWNTR)
; LOC - ien of ^SC(LOC, (only used if no ENCOWNTR)
; APTDT - Appointment Date/time (only used if no ENCOWNTR)
; Output - PXCHKOUT = Check out Date/time (-1 if not found or allowed)
; External References: ^SCE(DA,0)
; ^SC(DA(2),"S",DA(1),1,DA,"C")
; ^SC(DA,0)
ON ;
AGN
READ(TYPE,PROMPT,DEFAULT,HELP) ; Calls reader, returns response
TEST ;Test call to CHIKOUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),">>> Only appointments have a check out date to edit."
  • Line Location: CHIKOUT+13
Function Call: WRITE
  • Prompt: !!,$C(7),">>> No check out date for this appointment."
  • Line Location: CHIKOUT+14
Function Call: WRITE
  • Prompt: !!,"Check out dates for future appointments not allowed.",!,$C(7)
  • Line Location: ON+1
Function Call: WRITE
  • Prompt: !!,"Check out date cannot be in the future.",!,$C(7)
  • Line Location: AGN+2
Function Call: WRITE
  • Prompt: !!,"Check in date must be before Check out date.",!,$C(7)
  • Line Location: AGN+3
Info |  Source |  Entry Points |  Interaction Calls