Routine: DGCOMPACT

Information

DGCOMPACT ;ALB/BPA,CMC - Routine for COMPACT Act processing the DG;12/18/2023@9:26am

Name	Comments	DBIA/ICR reference
SETPTFFLG(DGENC,DGVAL)	; ; API to set TRT FOR ACUTE SUICIDAL CRISIS flag in PTF 101 ; DGENC - Encounter ID (PTF IEN) ; DGVAL - Value to set into flag ; For YES: D SETPTFFLG^DGCOMPACT(DGENC,1) ; For NO: D SETPTFFLG^DGCOMPACT(DGENC,0) ; For NULL: D SETPTFFLG^DGCOMPACT(DGENC,"") ; Create a 70 level in the PTF file if it is not set	ICR #7463 Status: Active Usage: Private
SETPTFMVMT(DGENC,DGVAL,DGSEQ)	; ; API to set TREATMENT FOR SUICIDAL CRISIS flag in PTF 501 ; DGENC - Encounter ID (PTF IEN) ; DGVAL - Value to set into flag ; DGSEQ - Movement sequence *not required ; For YES: D SETPTFMVMT^DGCOMPACT(DGENC,"Y",DGSEQ) ; For NO: D SETPTFMVMT^DGCOMPACT(DGENC,"N",DGSEQ) ; For NULL: D SETPTFMVMT^DGCOMPACT(DGENC,"",DGSEQ) ; When setting a sequence other than the first one, pass the sequence number	ICR #7463 Status: Active Usage: Private
EDITADMIT(PTF)	;
QUERY	;
ADMIT(DFN,PTF)	;
GO
DT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Data Not Available" Line Location: QUERY+3
Function Call: WRITE	Prompt: !,"Site # ",SITE Line Location: QUERY+19
Function Call: WRITE	Prompt: !!,"Calling Routine: ",ROUTINE," Request Count: ",COUNT Line Location: QUERY+23
Function Call: WRITE	Prompt: !,ICN Line Location: QUERY+26
Function Call: WRITE	Prompt: !," Request: ",$S($L(REQ)=18:REQ_":00",1:REQ) Line Location: QUERY+31
Function Call: WRITE	Prompt: !," Response: ",$S($L(RESP)=18:RESP_":00",1:RESP)," ",$TR(RESPCODE,"~","^"),! Line Location: QUERY+32
Function Call: WRITE	Prompt: !!,"ADMITTED FOR ACUTE SUICIDAL CRISIS" Line Location: GO+1
Function Call: WRITE	Prompt: !," ACUTE SUICIDAL CRISIS START DATE?: NOW//" Line Location: DT+2
Function Call: WRITE	Prompt: $C(7),"??",!," Invalid Date!" Line Location: DT+4