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

ORRCSIG.m

Go to the documentation of this file.
  1. ORRCSIG ;SLC/MKB - Signature utilities for CM ; 25 Jul 2003 9:31 AM
  1. ;;1.0;CARE MANAGEMENT;;Jul 15, 2003
  1. ;
  1. ; ID = "DOC:"_Document# or "ORU:"_Order# everywhere below
  1. ;
  1. LIST(ORY,ORUSR,ORPAT,ORDET) ; -- Return unsigned orders and documents by ORUSR for ORPAT
  1. ; in @ORY@(#) = Item=ID^Text^Date in HL7 format, and also if ORDET
  1. ; = Text=line of report text
  1. ; RPC = ORRC UNSIGNED BY PATIENT
  1. N ORN,ORI,ORORD,ORDOC
  1. S ORUSR=+$G(ORUSR),ORPAT=+$G(ORPAT)
  1. D LISTUNS^ORRCOR(.ORORD,ORUSR,ORPAT,$G(ORDET))
  1. D LISTUNS^ORRCTIU(.ORDOC,ORUSR,ORPAT,$G(ORDET))
  1. S ORY=$NA(^TMP($J,"ORRCSIG")),ORN=0 K @ORY
  1. S ORI=0 F S ORI=$O(@ORORD@(ORI)) Q:ORI<1 S ORN=ORN+1,@ORY@(ORN)=@ORORD@(ORI)
  1. S ORI=0 F S ORI=$O(@ORDOC@(ORI)) Q:ORI<1 S ORN=ORN+1,@ORY@(ORN)=@ORDOC@(ORI)
  1. K @ORORD,@ORDOC
  1. Q
  1. ;
  1. DETAIL(ORY,ITEM) ; -- Return details of unsigned ITEMs
  1. ; where ITEM(#) = ID
  1. ; in @ORY@(#) = Item=ID^Text^Date in HL7 format
  1. ; = Text=line of report text
  1. ; RPC = ORRC UNSIGNED BY ID
  1. N ORN,ORI,ORID,ORO,ORD,ORORD,ORDOC
  1. S ORI="" F S ORI=$O(ITEM(ORI)) Q:ORI="" S ORID=ITEM(ORI) D
  1. . I ORID["OR" S ORO(ORI)=ORID
  1. . I ORID["DOC" S ORD(ORI)=ORID
  1. D DETAIL^ORRCOR(.ORORD,.ORO),TEXT^ORRCTIU(.ORDOC,.ORD)
  1. S ORY=$NA(^TMP($J,"ORRCSIG")),ORN=0 K @ORY
  1. S ORI=0 F S ORI=$O(@ORORD@(ORI)) Q:ORI<1 S ORN=ORN+1,@ORY@(ORN)=@ORORD@(ORI)
  1. S ORI=0 F S ORI=$O(@ORDOC@(ORI)) Q:ORI<1 S ORN=ORN+1,@ORY@(ORN)=@ORDOC@(ORI)
  1. K @ORORD,@ORDOC
  1. Q
  1. ;
  1. SIGN(ORY,ORNP,LOC,ESCODE,ITEM) ; -- Apply signature to ITEMs
  1. ; where ITEM(#) = ID for notes, or for orders
  1. ; = ID^DFN^Release Flag^Signature Status^Nature of Order
  1. ; in @ORY@(#) = ID^Success Indicator^Error Message (if 'Success)
  1. ; RPC = ORRC SIGN ITEMS
  1. N ORN,DFN,ORID,ORO,ORD,ORORD,ORDOC
  1. S ORI="" F S ORI=$O(ITEM(ORI)) Q:ORI="" D
  1. . S ORID=$P(ITEM(ORI),U)
  1. . I ORID["OR" S ORO(ORI)=$P(ORID,":",2)_U_$P(ITEM(ORI),U,2,5)
  1. . I ORID["DOC" D
  1. . . N ERROR
  1. . . D SIGN^TIUSRVP(.ERROR,$P(ORID,":",2),ESCODE)
  1. . . S ORDOC(ORI)=ORID_U_'+ERROR_$P(ERROR,U,2)
  1. I $D(ORO) D SIGNORDR(.ORORD,ORNP,LOC,.ORO)
  1. S ORY=$NA(^TMP($J,"ORRCSIG")),ORN=0 K @ORY
  1. S ORI=0 F S ORI=$O(ORORD(ORI)) Q:ORI<1 S ORN=ORN+1,@ORY@(ORN)=ORORD(ORI)
  1. S ORI=0 F S ORI=$O(ORDOC(ORI)) Q:ORI<1 S ORN=ORN+1,@ORY@(ORN)=ORDOC(ORI)
  1. Q
  1. SIGNORDR(ORORD,ORNP,LOC,ORO) ; Sign orders
  1. N OROBYPT,DFN,OREI,ORNDX,ORERRS
  1. D SORTORDR(.ORBYPT,.ORO),INDEX(.ORNDX,.ORO,.ORORD)
  1. S DFN=0 F S DFN=$O(ORBYPT(DFN)) Q:+DFN'>0 D
  1. . N ORLST M ORLST=ORBYPT(DFN)
  1. . ;D SIGN^ORWD(.ORERRS,DFN,ORNP,LOC,.ORLST)
  1. S OREI=0 F S OREI=$O(ORERRS(OREI)) Q:+OREI'>0 D
  1. . N ORID,ORI S ORID=$P(ORERRS(OREI),U),ORI=$G(ORNDX(ORID))
  1. . I +ORI S ORORD(ORI)=ORID_U_0_U_$P(ORERRS(OREI),U,2)
  1. Q
  1. TSTSORT ; Test SORTORDR and INDEX calls
  1. N ORO,ORI,ORBYPT,ORNDX,ORORD
  1. S ORO(1)="123^987^1^U^E"
  1. S ORO(3)="176^789^1^U^E"
  1. S ORO(5)="221^987^1^U^E"
  1. S ORO(6)="233^321^1^U^E"
  1. S ORO(9)="311^789^1^U^E"
  1. S ORO(15)="339^321^1^U^E"
  1. ;W ! S ORI=0 F S ORI=$O(ORO(ORI)) Q:+ORI'>0 D
  1. ;. W !,"ORO(",ORI,")=",ORO(ORI)
  1. ;D SORTORDR(.ORBYPT,.ORO),INDEX(.ORNDX,.ORO,.ORORD)
  1. ;W ! ZW ORBYPT W ! ZW ORNDX W ! ZW ORORD
  1. Q
  1. SORTORDR(ORBYPT,ORO) ; Sort orders by patient
  1. N ORI S ORI=0
  1. F S ORI=$O(ORO(ORI)) Q:+ORI'>0 D
  1. . N ORDER,DFN,ID S ORDER=ORO(ORI),DFN=$P(ORDER,U,2),ID=$P(ORDER,U)
  1. . S ORBYPT(DFN,ORI)=ID_U_$P(ORDER,U,3,5)
  1. Q
  1. INDEX(ORNDX,ORO,ORORD) ; Index orders
  1. N ORI S ORI=0
  1. F S ORI=$O(ORO(ORI)) Q:+ORI'>0 D
  1. . N ORID S ORID=$P(ORO(ORI),U)
  1. . S ORNDX(ORID)=ORI,ORORD(ORI)=ORID_U_1
  1. Q