Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDCO2

SDCO2.m

Go to the documentation of this file.
  1. SDCO2 ;ALB/RMO - Classification - Check Out;30 DEC 1992 1:10 pm
  1. ;;5.3;Scheduling;**27,132**;08/13/93
  1. ;
  1. EN ;Entry point for SDCO CLASSIFICATION protocol
  1. ; Input -- SDOE
  1. N I,SDCLI,SDCLOEY,SDCOMF,SDCOQUIT,SDCTI,SDI,SDLINE,SDSEL,SDSELY
  1. S VALMBCK=""
  1. ;
  1. IF '$$EDITOK^SDCO3(SDOE,1) G Q
  1. ;
  1. N SDVISIT
  1. S SDVISIT=$P($G(^SCE(+SDOE,0)),U,5)
  1. S X=$$INTV^PXAPI("SCC","SD","PIMS",SDVISIT)
  1. D BLD^SDCO S VALMBCK="R"
  1. Q Q
  1. ;
  1. ASK(SDOE,SDCLOEY,SDCLHDL,SDCOQUIT) ;Ask Outpatient Classifications
  1. ; Input -- SDOE Outpatient Encounter file IEN
  1. ; SDCLOEY Classification Array for Outpatient Encounter
  1. ; SDCLHDL Classification Event Handle [Optional]
  1. ; Output -- SDCOQUIT User entered '^' or timeout
  1. N I,IOINHI,IOINORM,SDCTI,SDCTIS,SDCTS,SDEVTF,X
  1. S X="IOINHI;IOINORM" D ENDR^%ZISS
  1. I '$D(SDCLOEY) G ASKQ
  1. W !!,"--- ",IOINHI,"Classification",IOINORM," --- [",IOINHI,"Required",IOINORM,"]"
  1. I '$G(SDCLHDL) N SDATA,SDCLHDL S SDEVTF=1 D EVT^SDCOU1(SDOE,"BEFORE",.SDCLHDL,.SDATA)
  1. W ! S SDCTIS=$$SEQ^SDCO21
  1. F SDCTS=1:1 S SDCTI=+$P(SDCTIS,",",SDCTS) Q:'SDCTI!($D(SDCOQUIT)) D
  1. .I $D(SDCLOEY(SDCTI)) D
  1. ..D ONE^SDCO20(SDCTI,SDCLOEY(SDCTI),SDOE,.SDCOQUIT)
  1. ..I SDCTI=3 F I=1,2,4 D SC^SDCO21(I,SDOE,"",.SDCLOEY)
  1. I $G(SDEVTF) D EVT^SDCOU1(SDOE,"AFTER",SDCLHDL,.SDATA)
  1. ASKQ Q
  1. ;
  1. CLASK(SDOE,SDCLOEY) ;Ask Classifications on Check Out
  1. ; Input -- SDOE Outpatient Encounter file IEN
  1. ; Output -- SDCLOEY Classification Array for Outpatient Encounter
  1. ; Subscripted by Class Type file IEN
  1. ; Null or 409.42 IEN^Internal Value^1=n/a
  1. N SDOE0,SDORG
  1. S SDOE0=$G(^SCE(+SDOE,0)),SDORG=+$P(SDOE0,"^",8)
  1. I $$REQ^SDM1A(+SDOE0)'="CO" G CLASKQ
  1. I SDORG=1,'$$CLINIC^SDAMU(+$P(SDOE0,"^",4)) G CLASKQ
  1. I "^1^2^"[("^"_SDORG_"^"),$$INP^SDAM2(+$P(SDOE0,"^",2),+SDOE0)="I" G CLASKQ
  1. I $$EXOE^SDCOU2(SDOE) G CLASKQ
  1. D CLOE^SDCO21(SDOE,.SDCLOEY)
  1. CLASKQ Q