- PSSCKOS ;BP/AGV - Returns order status for OP pharmacy using the CK option ;12/14/12
- ;;1.0;PHARMACY DATA MANAGEMENT;**175**;9/30/97;Build 9
- ;
- ; @Author - Alberto Vargas
- ; @Date - December 14, 2012
- ; @Version - 1.0
- ; @CCRs - 5828, 6450, 6600
- ;
- THOSTAT(DRG,THR,TCTR) ;**Add order status to THERAPY order check messages while using the hidden CK option
- NEW DRGN,PSOSTA,PSONM,PSOPON,PSOCFLG,PSOFLG SET DRGN="",PSOSTA="",PSONM="",PSOPON="",PSOCFLG="",PSOFLG=""
- ;**Retrieve and extract associated order number
- SET DRGN=DRG,PSOPON=$P($G(^TMP($J,LIST,"OUT","THERAPY",THR,"DRUGS",TCTR)),U,1),PSOCFLG=$P(PSOPON,";",1),PSOPON=$P(PSOPON,";",2)
- ;**Check for a clinic order
- IF PSOCFLG["C" SET DRGN=DRG_" (Clinic order)" Q DRGN
- ;**Order through PSOSD array to retrieve associated order statuses from patient's profile
- FOR SET PSOSTA=$O(PSOSD(PSOSTA)) Q:(PSOSTA="")!($G(PSOFLG)) D
- .IF '$D(PSOSD(PSOSTA,DRG)),DRG=PSODRUG("NAME") SET DRGN=DRG_" (Prospective)",PSOFLG=1
- .FOR SET PSONM=$O(PSOSD(PSOSTA,PSONM)) Q:(PSONM="")!($G(PSOFLG)) D
- ..IF DRG=$P(PSONM,U,1) D
- ...IF PSOSTA="ACTIVE",PSOPON=$P(PSOSD(PSOSTA,PSONM),U,1) SET DRGN=DRG_" (Local Rx)",PSOFLG=1
- ...IF PSOSTA="ZNONVA",PSOPON=$P(PSOSD(PSOSTA,PSONM),U,10) SET DRGN=DRG_" (Non-VA)",PSOFLG=1
- ...IF PSOSTA="DISCONTINUED",PSOPON=$P(PSOSD(PSOSTA,PSONM),U,1) SET DRGN=DRG_" (Discontinued)",PSOFLG=1
- ...IF PSOSTA="PENDING",PSOPON=$P(PSOSD(PSOSTA,PSONM),U,10) SET DRGN=DRG_" (Pending)",PSOFLG=1
- Q DRGN
- ;
- OSTAT(DRG,ON) ;**Add order status to DRUG order check messages while using the hidden CK option
- NEW DRGN,PSOSTA,PSONM,PSOPON,PSOCFLG,PSOFLG SET DRGN="",PSOSTA="",PSONM="",PSOPON="",PSOCFLG="",PSOFLG=""
- ;**Retrieve and extract associated order number
- SET DRGN=DRG,PSOCFLG=$P(ON,";",1),PSOPON=$P(ON,";",2)
- ;**Check for a clinic order
- IF PSOCFLG["C" SET DRGN=DRG_" (Clinic order)" Q DRGN
- ;**Order through PSOSD array to retrieve associated order statuses from patient's profile
- FOR SET PSOSTA=$O(PSOSD(PSOSTA)) Q:(PSOSTA="")!($G(PSOFLG)) D
- .IF '$D(PSOSD(PSOSTA,DRG)),DRG=PSODRUG("NAME") SET DRGN=DRG_" (Prospective)",PSOFLG=1
- .FOR SET PSONM=$O(PSOSD(PSOSTA,PSONM)) Q:(PSONM="")!($G(PSOFLG)) D
- ..IF DRG=$P(PSONM,U,1) D
- ...IF PSOSTA="ACTIVE",PSOPON=$P(PSOSD(PSOSTA,PSONM),U,1) SET DRGN=DRG_" (Local Rx)",PSOFLG=1
- ...IF PSOSTA="ZNONVA",PSOPON=$P(PSOSD(PSOSTA,PSONM),U,10) SET DRGN=DRG_" (Non-VA)",PSOFLG=1
- ...IF PSOSTA="PENDING",PSOPON=$P(PSOSD(PSOSTA,PSONM),U,10) SET DRGN=DRG_" (Pending)",PSOFLG=1
- Q DRGN
- ;
- POSTAT(DRG,PDRG,SV,ON,CT) ;**Add order status to PDRUG order check messages while using the hidden CK option
- NEW PDRGN,PSOSTA,PSONM,PSOPON,PSOCFLG,PSOFLG SET PDRGN="",PSOSTA="",PSONM="",PSOPON="",PSOCFLG="",PSOFLG=""
- ;**Retrieve and extract associated order number
- SET PDRGN=PDRG,PSOPON=$P($G(^TMP($J,LIST,"OUT","DRUGDRUG",SV,DRG,ON,CT)),U,1),PSOCFLG=$P(PSOPON,";",1),PSOPON=$P(PSOPON,";",2)
- ;**Check for a clinic order
- IF PSOCFLG["C" SET PDRGN=PDRG_" (Clinic order)" Q PDRGN
- ;**Order through PSOSD array to retrieve associated order statuses from patient's profile
- FOR SET PSOSTA=$O(PSOSD(PSOSTA)) Q:(PSOSTA="")!($G(PSOFLG)) D
- .IF '$D(PSOSD(PSOSTA,PDRG)),PDRG=PSODRUG("NAME") SET PDRGN=PDRG_" (Prospective)",PSOFLG=1
- .FOR SET PSONM=$O(PSOSD(PSOSTA,PSONM)) Q:(PSONM="")!($G(PSOFLG)) D
- ..IF PDRG=$P(PSONM,U,1) D
- ...IF PSOSTA="ACTIVE",PSOPON=$P(PSOSD(PSOSTA,PSONM),U,1) SET PDRGN=PDRG_" (Local Rx)",PSOFLG=1
- ...IF PSOSTA="ZNONVA",PSOPON=$P(PSOSD(PSOSTA,PSONM),U,10) SET PDRGN=PDRG_" (Non-VA)",PSOFLG=1
- ...IF PSOSTA="PENDING",PSOPON=$P(PSOSD(PSOSTA,PSONM),U,10) SET PDRGN=PDRG_" (Pending)",PSOFLG=1
- Q PDRGN
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSCKOS 3671 printed Apr 23, 2025@18:44:29 Page 2
- PSSCKOS ;BP/AGV - Returns order status for OP pharmacy using the CK option ;12/14/12
- +1 ;;1.0;PHARMACY DATA MANAGEMENT;**175**;9/30/97;Build 9
- +2 ;
- +3 ; @Author - Alberto Vargas
- +4 ; @Date - December 14, 2012
- +5 ; @Version - 1.0
- +6 ; @CCRs - 5828, 6450, 6600
- +7 ;
- THOSTAT(DRG,THR,TCTR) ;**Add order status to THERAPY order check messages while using the hidden CK option
- +1 NEW DRGN,PSOSTA,PSONM,PSOPON,PSOCFLG,PSOFLG
- SET DRGN=""
- SET PSOSTA=""
- SET PSONM=""
- SET PSOPON=""
- SET PSOCFLG=""
- SET PSOFLG=""
- +2 ;**Retrieve and extract associated order number
- +3 SET DRGN=DRG
- SET PSOPON=$PIECE($GET(^TMP($JOB,LIST,"OUT","THERAPY",THR,"DRUGS",TCTR)),U,1)
- SET PSOCFLG=$PIECE(PSOPON,";",1)
- SET PSOPON=$PIECE(PSOPON,";",2)
- +4 ;**Check for a clinic order
- +5 IF PSOCFLG["C"
- SET DRGN=DRG_" (Clinic order)"
- QUIT DRGN
- +6 ;**Order through PSOSD array to retrieve associated order statuses from patient's profile
- +7 FOR
- SET PSOSTA=$ORDER(PSOSD(PSOSTA))
- if (PSOSTA="")!($GET(PSOFLG))
- QUIT
- Begin DoDot:1
- +8 IF '$DATA(PSOSD(PSOSTA,DRG))
- IF DRG=PSODRUG("NAME")
- SET DRGN=DRG_" (Prospective)"
- SET PSOFLG=1
- +9 FOR
- SET PSONM=$ORDER(PSOSD(PSOSTA,PSONM))
- if (PSONM="")!($GET(PSOFLG))
- QUIT
- Begin DoDot:2
- +10 IF DRG=$PIECE(PSONM,U,1)
- Begin DoDot:3
- +11 IF PSOSTA="ACTIVE"
- IF PSOPON=$PIECE(PSOSD(PSOSTA,PSONM),U,1)
- SET DRGN=DRG_" (Local Rx)"
- SET PSOFLG=1
- +12 IF PSOSTA="ZNONVA"
- IF PSOPON=$PIECE(PSOSD(PSOSTA,PSONM),U,10)
- SET DRGN=DRG_" (Non-VA)"
- SET PSOFLG=1
- +13 IF PSOSTA="DISCONTINUED"
- IF PSOPON=$PIECE(PSOSD(PSOSTA,PSONM),U,1)
- SET DRGN=DRG_" (Discontinued)"
- SET PSOFLG=1
- +14 IF PSOSTA="PENDING"
- IF PSOPON=$PIECE(PSOSD(PSOSTA,PSONM),U,10)
- SET DRGN=DRG_" (Pending)"
- SET PSOFLG=1
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +15 QUIT DRGN
- +16 ;
- OSTAT(DRG,ON) ;**Add order status to DRUG order check messages while using the hidden CK option
- +1 NEW DRGN,PSOSTA,PSONM,PSOPON,PSOCFLG,PSOFLG
- SET DRGN=""
- SET PSOSTA=""
- SET PSONM=""
- SET PSOPON=""
- SET PSOCFLG=""
- SET PSOFLG=""
- +2 ;**Retrieve and extract associated order number
- +3 SET DRGN=DRG
- SET PSOCFLG=$PIECE(ON,";",1)
- SET PSOPON=$PIECE(ON,";",2)
- +4 ;**Check for a clinic order
- +5 IF PSOCFLG["C"
- SET DRGN=DRG_" (Clinic order)"
- QUIT DRGN
- +6 ;**Order through PSOSD array to retrieve associated order statuses from patient's profile
- +7 FOR
- SET PSOSTA=$ORDER(PSOSD(PSOSTA))
- if (PSOSTA="")!($GET(PSOFLG))
- QUIT
- Begin DoDot:1
- +8 IF '$DATA(PSOSD(PSOSTA,DRG))
- IF DRG=PSODRUG("NAME")
- SET DRGN=DRG_" (Prospective)"
- SET PSOFLG=1
- +9 FOR
- SET PSONM=$ORDER(PSOSD(PSOSTA,PSONM))
- if (PSONM="")!($GET(PSOFLG))
- QUIT
- Begin DoDot:2
- +10 IF DRG=$PIECE(PSONM,U,1)
- Begin DoDot:3
- +11 IF PSOSTA="ACTIVE"
- IF PSOPON=$PIECE(PSOSD(PSOSTA,PSONM),U,1)
- SET DRGN=DRG_" (Local Rx)"
- SET PSOFLG=1
- +12 IF PSOSTA="ZNONVA"
- IF PSOPON=$PIECE(PSOSD(PSOSTA,PSONM),U,10)
- SET DRGN=DRG_" (Non-VA)"
- SET PSOFLG=1
- +13 IF PSOSTA="PENDING"
- IF PSOPON=$PIECE(PSOSD(PSOSTA,PSONM),U,10)
- SET DRGN=DRG_" (Pending)"
- SET PSOFLG=1
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +14 QUIT DRGN
- +15 ;
- POSTAT(DRG,PDRG,SV,ON,CT) ;**Add order status to PDRUG order check messages while using the hidden CK option
- +1 NEW PDRGN,PSOSTA,PSONM,PSOPON,PSOCFLG,PSOFLG
- SET PDRGN=""
- SET PSOSTA=""
- SET PSONM=""
- SET PSOPON=""
- SET PSOCFLG=""
- SET PSOFLG=""
- +2 ;**Retrieve and extract associated order number
- +3 SET PDRGN=PDRG
- SET PSOPON=$PIECE($GET(^TMP($JOB,LIST,"OUT","DRUGDRUG",SV,DRG,ON,CT)),U,1)
- SET PSOCFLG=$PIECE(PSOPON,";",1)
- SET PSOPON=$PIECE(PSOPON,";",2)
- +4 ;**Check for a clinic order
- +5 IF PSOCFLG["C"
- SET PDRGN=PDRG_" (Clinic order)"
- QUIT PDRGN
- +6 ;**Order through PSOSD array to retrieve associated order statuses from patient's profile
- +7 FOR
- SET PSOSTA=$ORDER(PSOSD(PSOSTA))
- if (PSOSTA="")!($GET(PSOFLG))
- QUIT
- Begin DoDot:1
- +8 IF '$DATA(PSOSD(PSOSTA,PDRG))
- IF PDRG=PSODRUG("NAME")
- SET PDRGN=PDRG_" (Prospective)"
- SET PSOFLG=1
- +9 FOR
- SET PSONM=$ORDER(PSOSD(PSOSTA,PSONM))
- if (PSONM="")!($GET(PSOFLG))
- QUIT
- Begin DoDot:2
- +10 IF PDRG=$PIECE(PSONM,U,1)
- Begin DoDot:3
- +11 IF PSOSTA="ACTIVE"
- IF PSOPON=$PIECE(PSOSD(PSOSTA,PSONM),U,1)
- SET PDRGN=PDRG_" (Local Rx)"
- SET PSOFLG=1
- +12 IF PSOSTA="ZNONVA"
- IF PSOPON=$PIECE(PSOSD(PSOSTA,PSONM),U,10)
- SET PDRGN=PDRG_" (Non-VA)"
- SET PSOFLG=1
- +13 IF PSOSTA="PENDING"
- IF PSOPON=$PIECE(PSOSD(PSOSTA,PSONM),U,10)
- SET PDRGN=PDRG_" (Pending)"
- SET PSOFLG=1
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +14 QUIT PDRGN
