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

ONCOFUM.m

Go to the documentation of this file.
  1. ONCOFUM ;Hines OIFO/GWB -FOLLOW-UP CONTACT (160,420) ;06/23/10
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;
  1. AC ;Add patient to ONCOLOGY CONTACT file (165) using ^DPT(D0,.11) and
  1. ;^DPT(D0,.13) node data from PATIENT file (2)
  1. S FIL=$P(ONCOVP,";",2),DFN=$P(ONCOVP,";",1),GLR="^"_FIL_DFN_","
  1. S X=$P(@(GLR_"0)"),U,1)
  1. S DIC="^ONCO(165,",DIC(0)="Z" D ^DIC
  1. S CP0=+Y
  1. I +Y>0 G CKP
  1. K DO S DIC(0)="ZL" D FILE^DICN S (DA,CP0)=+Y
  1. S X11=$G(@(GLR_".11)"))
  1. S X13=$G(@(GLR_".13)"))
  1. S CITY=$P(X11,U,4)
  1. S STATE=$P(X11,U,5)
  1. S ZIP=$P(X11,U,6)
  1. S XX11=$P(X11,U,1,3)_"^"_CITY_"^"_STATE_"^^^^"_ZIP
  1. S $P(^ONCO(165,CP0,0),U,2)=1,^(.11)=XX11,^(.13)=X13
  1. ;
  1. CKP G:FIL["LRT" PTCONT
  1. ;
  1. K1 ;Add NOK (Next of Kin) to ONCOLOGY CONTACT file (165) using
  1. ;^DPT(D0,.21) node data from PATIENT file (2)
  1. G K2:$D(^ONCO(160,ONCOD0,"C","B","NOK"))
  1. S X21=$G(^DPT(DFN,.21)) G K2:X21=""
  1. F J=1,6,7,8,9,10 S ONCOX(J)=$P(X21,U,J)
  1. S CITY=ONCOX(6)
  1. S STATE=ONCOX(7)
  1. S ZIP=ONCOX(8)
  1. S XX21=$P(X21,U,3,5)_"^"_CITY_"^"_STATE_"^^^^"_ZIP
  1. S X=ONCOX(1)
  1. S (DIC,DIE)="^ONCO(165,",DIC(0)="Z" D ^DIC
  1. S CK0=+Y
  1. G SK1:+Y>0
  1. K DO S DIC(0)="ZL" D FILE^DICN S (DA,CK0)=+Y
  1. S DR="1///^S X=3"
  1. D ^DIE S ^ONCO(165,CK0,.11)=XX21,^(.13)=ONCOX(9)
  1. I ($P(XX21,U,1)="")&(ONCOX(10)="Y") D
  1. .S ^ONCO(165,CK0,.11)=^ONCO(165,CP0,.11)
  1. ;
  1. SK1 ;Add NOK (Next of Kin) TYPE OF FOLLOW-UP CONTACT (160,420)
  1. S DA(1)=ONCOD0,(DIC,DIE)="^ONCO(160,"_DA(1)_",""C"",",X="NOK"
  1. K DO D FILE^DICN S DA=+Y,DR="1///^S X=CK0" D ^DIE
  1. ;
  1. K2 ;Add KIN (Other Kin) to ONCOLOGY CONTACT file (165) using ^DPT(D0,.211)
  1. ;node data from PATIENT file (2)
  1. G DE:$D(^ONCO(160,ONCOD0,"C","B","KIN"))
  1. S X211=$G(^DPT(DFN,.211)) G DE:X211=""
  1. F J=1,2,6,7,8,9,10 S ONCOX(J)=$P(X211,U,J)
  1. S CITY=ONCOX(6)
  1. S STATE=ONCOX(7)
  1. S ZIP=ONCOX(8)
  1. S XX211=$P(X211,U,3,5)_"^"_CITY_"^"_STATE_"^^^^"_ZIP
  1. S X=ONCOX(1)
  1. S (DIC,DIE)="^ONCO(165,",DIC(0)="Z" D ^DIC
  1. S CK2=+Y G SK2:+Y>0
  1. K DO S DIC(0)="ZL" D FILE^DICN S (DA,CK2)=+Y
  1. S DR="1///^S X=3;2///^S X=ONCOX(2)" D ^DIE
  1. S ^ONCO(165,CK2,.11)=XX211,^(.13)=ONCOX(9)
  1. I ($P(XX211,U)="")&(ONCOX(10)="Y") D
  1. .S ^ONCO(165,CK2,.11)=^ONCO(165,CP0,.11)
  1. ;
  1. SK2 ;Add KIN (Other Kin) TYPE OF FOLLOW-UP CONTACT (160,420)
  1. S DA(1)=ONCOD0,(DIC,DIE)="^ONCO(160,"_DA(1)_",""C"",",X="KIN"
  1. K DO D FILE^DICN S DA=+Y,DR="1///^S X=CK2;" D ^DIE
  1. ;
  1. DE ;Add GR (Guardian) to ONCOLOGY CONTACT file (165) using ^DPT(D0,.34)
  1. ;node data from PATIENT file (2)
  1. G EX:$D(^ONCO(160,ONCOD0,"C","B","GR"))
  1. S X34=$G(^DPT(DFN,.34)) G EX:X34=""
  1. F J=1,6,7,8,9,10 S ONCOX(J)=$P(X34,U,J)
  1. S CITY=ONCOX(6)
  1. S STATE=ONCOX(7)
  1. S ZIP=ONCOX(8)
  1. S XX34=$P(X34,U,3,5)_"^"_CITY_"^"_STATE_"^^^^"_ZIP
  1. S X=ONCOX(1)
  1. S (DIC,DIE)="^ONCO(165,",DIC(0)="Z" D ^DIC
  1. S GR0=+Y G SDE:+Y>0
  1. K DO S DIC(0)="ZL" D FILE^DICN S (DA,GR0)=+Y
  1. S DR="1///^S X=3" D ^DIE S ^ONCO(165,GR0,.11)=XX34,^(.13)=ONCOX(9)
  1. I ($P(XX34,U)="")&(ONCOX(10)="Y") D
  1. .S ^ONCO(165,GR0,.11)=^ONCO(165,CP0,.11)
  1. ;
  1. SDE ;Add GR (Guardian) TYPE OF FOLLOW-UP CONTACT (160,420)
  1. S DA(1)=ONCOD0,(DIC,DIE)="^ONCO(160,"_DA(1)_",""C"",",X="GR"
  1. K DO D FILE^DICN S DA=+Y,DR="1///^S X=GR0;" D ^DIE
  1. ;
  1. PTCONT ;Add PT (Patient) TYPE OF FOLLOW-UP CONTACT (160,420)
  1. G EX:$D(^ONCO(160,ONCOD0,"C","B","PT"))
  1. S DA(1)=ONCOD0,(DIE,DIC)="^ONCO(160,"_DA(1)_",""C"",",X="PT"
  1. K DO D FILE^DICN S DA=+Y,DR="1///^S X=CP0;" D ^DIE
  1. G EX
  1. ;
  1. TYP ;TYPE OF FOLLOW-UP CONTACT (160.03,.01) EXECUTABLE HELP
  1. W !?5,"PT (Patient) refers to this patient.",!
  1. Q
  1. ;
  1. NAM ;CONTACT NAME (160.03,1) EXECUTABLE HELP
  1. W !?3,"To change the contact, change the CONTACT NAME."
  1. W !?3,"To edit the contact details, edit the CONTACT"
  1. W !?3,"entry in the ONCOLOGY CONTACT File.",!
  1. Q
  1. ;
  1. EX ;Exit
  1. K CITY,CK0,CK2,CP0,DA,DFN,DIC,DIE,DR,FIL,GLR,GR0,J,ONCOVP,ONCOX,STATE
  1. K X,X11,X13,X21,X211,X34,XX11,XX21,XX211,XX34,Y,ZIP
  1. Q
  1. ;
  1. CLEANUP ;Cleanup
  1. K ONCOD0