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

ACRFDHR2.m

Go to the documentation of this file.
  1. ACRFDHR2 ;IHS/OIRM/DSD/THL,AEF - UTILITY TO SET X-REFS IN DHR FILE; [ 11/01/2001 9:44 AM ]
  1. ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
  1. ;;CALL BY FILEMAN X-REFS
  1. Q
  1. SFYLOC(DA) ;EP;TO SET FY/LOCATION CODE XREF
  1. Q:'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. Q:$P(ACR10,U)=""
  1. S ^ACRDHR("FYLOC",$P(ACR1,U,11),$P(ACR10,U),DA)=""
  1. Q
  1. KFYLOC(DA,X) ;EP;TO KILL FY/LOCATION CODE XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR10,U)=""
  1. K ^ACRDHR("FYLOC",X,$P(ACR10,U),DA)
  1. Q
  1. KFYLOC2(DA,X) ;EP;TO KILL FY/LOCATION CODE XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. K ^ACRDHR("FYLOC",$P(ACR1,U,11),X,DA)
  1. Q
  1. SFYSSA(DA) ;EP;TO SET FY/SSA XREF
  1. Q:'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. Q:$P(ACR10,U,2)=""
  1. S ^ACRDHR("FYSSA",$P(ACR1,U,11),$P(ACR10,U,2),DA)=""
  1. Q
  1. KFYSSA(DA,X) ;EP;TO KILL FY/SSA XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR10,U,2)=""
  1. K ^ACRDHR("FYSSA",X,$P(ACR10,U,2),DA)
  1. Q
  1. KFYSSA2(DA,X) ;EP;TO KILL FY/SSA XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. K ^ACRDHR("FYSSA",$P(ACR1,U,11),X,DA)
  1. Q
  1. SFYCAN(DA) ;EP;TO SET FY/CAN XREF
  1. Q:'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. Q:$P(ACR1,U,12)=""
  1. S ^ACRDHR("FYCAN",$P(ACR1,U,11),$P(ACR1,U,12),DA)=""
  1. Q
  1. KFYCAN(DA,X) ;EP;TO KILL FY/CAN XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,12)=""
  1. K ^ACRDHR("FYCAN",X,$P(ACR1,U,12),DA)
  1. Q
  1. KFYCAN2(DA,X) ;EP;TO KILL FY/CAN XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. K ^ACRDHR("FYCAN",$P(ACR1,U,11),X,DA)
  1. Q
  1. SFYVND(DA) ;EP;TO SET FY/VND XREF
  1. Q:'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. Q:$P(ACR1,U,16)=""
  1. S ^ACRDHR("FYVND",$P(ACR1,U,11),$P(ACR1,U,16),DA)=""
  1. Q
  1. KFYVND(DA,X) ;EP;TO KILL FY/VND XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,16)=""
  1. K ^ACRDHR("FYVND",X,$P(ACR1,U,16),DA)
  1. Q
  1. KFYVND2(DA,X) ;EP;TO KILL FY/VND XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. K ^ACRDHR("FYVND",$P(ACR1,U,11),X,DA)
  1. Q
  1. SFYOCC(DA) ;EP;TO SET FY/OCC XREF
  1. Q:'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. Q:$P(ACR1,U,13)=""
  1. S ^ACRDHR("FYOCC",$P(ACR1,U,11),$P(ACR1,U,13),DA)=""
  1. Q
  1. KFYOCC(DA,X) ;EP;TO KILL FY/OCC XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,13)=""
  1. K ^ACRDHR("FYOCC",X,$P(ACR1,U,13),DA)
  1. Q
  1. KFYOCC2(DA,X) ;EP;TO KILL FY/OCC XREF
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. K ^ACRDHR("FYOCC",$P(ACR1,U,11),X,DA)
  1. Q
  1. S S ACR0=$G(^ACRDHR(DA,0))
  1. S ACR1=$G(^ACRDHR(DA,1))
  1. S ACR10=$G(^ACRDHR(DA,10))
  1. Q
  1. SFYLOCS(DA) ;EP;TO SET FY/LOCATION/SSA CODE XREF
  1. Q:'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. Q:$P(ACR10,U)=""
  1. Q:$P(ACR10,U,2)=""
  1. S ^ACRDHR("FYLOCSSA",$P(ACR1,U,11),$P(ACR10,U),$P(ACR10,U,2),DA)=""
  1. Q
  1. KFYLOCS(DA,X) ;EP;TO KILL FY/LOCATION/SSA CODE XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR10,U)=""
  1. Q:$P(ACR10,U,2)=""
  1. K ^ACRDHR("FYLOCSSA",X,$P(ACR10,U),$P(ACR10,U,2),DA)
  1. Q
  1. KFYLOCS2(DA,X) ;EP;TO KILL FY/LOCATION/SSA CODE XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. Q:$P(ACR10,U,2)=""
  1. K ^ACRDHR("FYLOCSSA",$P(ACR1,U,11),X,$P(ACR10,U,2),DA)
  1. Q
  1. KFYLOCS3(DA,X) ;EP;TO KILL FY/LOCATION/SSA CODE XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. Q:$P(ACR10,U)=""
  1. K ^ACRDHR("FYLOCSSA",$P(ACR1,U,11),$P(ACR10,U),X,DA)
  1. Q
  1. SFYSSAL(DA) ;EP;TO SET FY/LOCATION/SSA CODE XREF
  1. Q:'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. Q:$P(ACR10,U)=""
  1. Q:$P(ACR10,U,2)=""
  1. S ^ACRDHR("FYSSALOC",$P(ACR1,U,11),$P(ACR10,U,2),$P(ACR10,U),DA)=""
  1. Q
  1. KFYSSAL(DA,X) ;EP;TO KILL FY/LOCATION/SSA CODE XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR10,U)=""
  1. Q:$P(ACR10,U,2)=""
  1. K ^ACRDHR("FYSSALOC",X,$P(ACR10,U,2),$P(ACR10,U),DA)
  1. Q
  1. KFYSSAL2(DA,X) ;EP;TO KILL FY/LOCATION/SSA CODE XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. Q:$P(ACR10,U)=""
  1. K ^ACRDHR("FYSSALOC",$P(ACR1,U,11),X,$P(ACR10,U),DA)
  1. Q
  1. KFYSSAL3(DA,X) ;EP;TO KILL FY/LOCATION/SSA CODE XREF
  1. Q:X=""!(X[U)!'DA
  1. N ACR0,ACR1,ACR10
  1. D S
  1. Q:$P(ACR1,U,11)=""
  1. Q:$P(ACR10,U,2)=""
  1. K ^ACRDHR("FYSSALOC",$P(ACR1,U,11),$P(ACR10,U,2),X,DA)
  1. Q